vb.net 教程 1-8 日期时间类型2

最新推荐文章于 2024-07-29 17:16:53 发布

原创最新推荐文章于 2024-07-29 17:16:53 发布 · 2.6k 阅读

1 ·

CC 4.0 BY-SA版权

本文为博主原创文章，转载请显著位置标明出处，未经博主允许不得用于商业目的。

文章标签：

#日期 #vb.net

vb.net 教程专栏收录该内容

409 篇文章

订阅专栏

本文介绍了VB.NET中处理日期时间的方法，重点讲解了如何利用DateDiff()函数计算两个日期之间的差异，包括年、月、日等不同单位，并演示了DateTime类的AddYears和AddMonths等方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

可惜的是TimeSpan没有提供TimeSpan.Months这样的方法。那么还有没有办法求相差的月份呢？

vb.net还提供了DateDiff()方法。

DateDiff 属于 Microsoft.VisualBasic 命名空间，我个人理解是.net为了兼容之前的vb专门建立的命名空间。
我们来看看DateDiff的说明：
DateDiff(DateInterval, DateTime, DateTime, FirstDayOfWeek, FirstWeekOfYear) 返回一个 Long 值，该值指定两个 Date 值之间的时间间隔数。
使用DateDiff 的代码如下：

    Sub Main()
        Dim date1, date2 As DateTime
        date1 = Date.Now()
        date2 = New DateTime(2018, 5, 12, 10, 12, 13)

        Dim yearDiff As Integer
        Dim monthDiff As Integer
        Dim dayDiff As Integer
        Dim hourDiff As Integer
        Dim minuteDiff As Integer
        Dim secondDiff As Integer

        yearDiff = DateDiff("yyyy", date1, date2)
        monthDiff = DateDiff("M", date1, date2)
        dayDiff = DateDiff("d", date1, date2)
        hourDiff = DateDiff("H", date1, date2)
        minuteDiff = DateDiff("n", date1, date2)
        secondDiff = DateDiff("s", date1, date2)

        Console.WriteLine("{0} 与 {1}", Format(date1, "yyyy年M月d日 H时m分s秒"), Format(date2, "yyyy年M月d日 H时m分s秒"))
        Console.WriteLine("相差年份：{0}", yearDiff)
        Console.WriteLine("相差月份：{0}", monthDiff)
        Console.WriteLine("相差天数：{0}", dayDiff)
        Console.WriteLine("相差小时：{0}", hourDiff)
        Console.WriteLine("相差分钟：{0}", minuteDiff)
        Console.WriteLine("相差秒钟：{0}", secondDiff)

        Console.ReadKey()
    End Sub

运行结果如下：

DateDiff()的第一个参数是一个字符串或者是DateInterval 枚举，包括DateInterval.Year 等。

例如：
minuteDiff = DateDiff("n", date1, date2)
等同于：
minuteDiff = DateDiff(DateInterval.Minute, date1, date2)

下表来自于MSDN：

枚举值	字符串值	时间差额的单位
DateInterval.Day	"d"	天
DateInterval.DayOfYear	"y"	天
DateInterval.Hour	"h"	小时
DateInterval.Minute	"n"	分钟
DateInterval.Month	"m"	月份
DateInterval.Quarter	"q"	季度
DateInterval.Second	"s"	秒
DateInterval.Weekday	"w"	周
DateInterval.WeekOfYear	"ww"	日历周
DateInterval.Year	"yyyy"	年份

如果在现有日期时间基础上增加或减少求得新的日期时间呢？

DateTime.AddYears、DateTime.AddMonth。。。。

例如以下代码在现在时间基础上增加25小时：

    Sub Main()
        Dim date1, date2 As DateTime
        date1 = Date.Now()
        date2 = date1.AddHours(25)

        Dim date3 As TimeSpan
        date3 = date2.Subtract(date1)
        Console.WriteLine("{0} 与 {1}", Format(date1, "yyyy年M月d日 H时m分s秒"), Format(date2, "yyyy年M月d日 H时m分s秒"))
        Console.WriteLine("相差小时：" & date3.Hours)
        Console.WriteLine("相差小时：" & date3.TotalHours)
        Console.ReadKey()
    End Sub

运行结果如下：