最简单的入门学习的方法就是看代码
以下代码源于uruseibest博客
定义
Dim date1, date2 As DateTime
date1 = Date.Now() '获得当前本地日期和时间。这里也可以省略Date.，直接用Now()
date2 = New DateTime(2018, 5, 12, 10, 12, 13) '用指定的年、月、日、小时、分钟和秒初始化 DateTime
'使用Format将日期时间按照我们的要求输出来
Console.WriteLine(Format(date1, "yyyy-MM-dd HH:mm:ss"))
Console.WriteLine(Format(date2, "yyyy年MM月dd日 HH时mm分ss秒"))
计算
Dim date1, date2 As DateTime
date1 = Date.Now() '获得当前本地日期和时间。这里也可以省略Date.，直接用Now()
date2 = New DateTime(2018, 5, 12, 10, 12, 13) '用指定的年、月、日、小时、分钟和秒初始化 DateTime
'相差月份
Dim diffMonth As Integer
diffMonth = (date2.Year - date1.Year) * 12 + (date2.Month - date1.Month)
Console.WriteLine("相差月份：{0}", diffMonth)
Dim date1, date2 As DateTime
date1 = Date.Now() '获得当前本地日期和时间。这里也可以省略Date.，直接用Now()
date2 = New DateTime(2018, 5, 12, 10, 12, 13) '用指定的年、月、日、小时、分钟和秒初始化 DateTime
Dim tspan As TimeSpan
tspan = date2.Subtract(date1)
Console.WriteLine(tspan.Hours)
Console.WriteLine(tspan.TotalHours)
Sub Main()
Dim date1, date2 As DateTime
date1 = Date.Now()
date2 = New DateTime(2018, 5, 12, 10, 12, 13)
Console.WriteLine("相差天数：" & (date2 - date1).TotalDays)
Console.WriteLine("相差小时：" & (date2 - date1).TotalHours)
Console.WriteLine("相差分钟：" & (date2 - date1).TotalMinutes)
Console.WriteLine("相差秒钟：" & (date2 - date1).TotalSeconds)
Console.WriteLine("相差毫秒：" & (date2 - date1).TotalMilliseconds)
Console.ReadKey()
End Sub
