vb.net日期时间获取,提取日期属性

'MessageBox.Show("Month:" & dtersults.Month, "date demo") 'Month 月份
'MessageBox.Show("Day:" & dtersults.Day, "date demo") 'Day 天
'MessageBox.Show("Year:" & dtersults.Year, "date demo") 'Year 年
'MessageBox.Show("Hour:" & dtersults.Hour, "date demo") 'Hour 小时
'MessageBox.Show("Minute:" & dtersults.Minute, "date demo") 'Minute 分钟
'MessageBox.Show("Second:" & dtersults.Second, "date demo") 'Second 秒
'MessageBox.Show("Day of week:" & dtersults.DayOfWeek, "date demo") 'DayOfWeek 星期几
'MessageBox.Show("Day of year:" & dtersults.DayOfYear, "date demo") 'DayOfYear 当年的第几天
MessageBox.Show(dtersults.Year & "年" & dtersults.Month & "月" & dtersults.Day & "日 " & dtersults.Hour & "时" & dtersults.Minute & "分" & dtersults.Second & "秒 " & "星期" & dtersults.DayOfWeek & " 第" & dtersults.DayOfYear & "天", "日期时间")

    '日期时间获取,提取日期属性
    Sub Dt_DateTime()
        Dim dtersults As Date
        dtersults = Now
        'MessageBox.Show("Month:" & dtersults.Month, "date demo")    'Month 月份
        'MessageBox.Show("Day:" & dtersults.Day, "date demo")    'Day 天
        'MessageBox.Show("Year:" & dtersults.Year, "date demo")    'Year 年
        'MessageBox.Show("Hour:" & dtersults.Hour, "date demo")    'Hour 小时
        'MessageBox.Show("Minute:" & dtersults.Minute, "date demo")    'Minute 分钟
        'MessageBox.Show("Second:" & dtersults.Second, "date demo")    'Second 秒
        'MessageBox.Show("Day of week:" & dtersults.DayOfWeek, "date demo")    'DayOfWeek 星期几
        'MessageBox.Show("Day of year:" & dtersults.DayOfYear, "date demo")    'DayOfYear 当年的第几天
        MessageBox.Show(dtersults.Year & "年" & dtersults.Month & "月" & dtersults.Day & "日 " & dtersults.Hour & "时" & dtersults.Minute & "分" & dtersults.Second & "秒 " & "星期" & dtersults.DayOfWeek & " 第" & dtersults.DayOfYear & "天", "日期时间")


        MessageBox.Show("日期:" & dtersults.ToString("yyyy/MM/dd , tt/hh/mm/ss"), "date demo")    '时间格式化
End Sub
 
© 版权声明
THE END
喜欢就支持一下吧
点赞1 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片