13问答网 > 用VB2010编程求日期差距

用VB2010编程求日期差距

2025-04-29 02:53:04

推荐回答（1个）

回答1：

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim td As Date = Today
        Dim od As Date = "2010-1-9"
        Dim m As Integer = DateDiff(DateInterval.Month, od, td)
        Dim w As Integer = DateDiff(DateInterval.WeekOfYear, od, td)
        Dim d As Integer = DateDiff(DateInterval.Day, od, td)
        MsgBox(td.ToShortDateString & "与" & od.ToShortDateString & "相隔" & m & "个月/" & w & "星期/" & d & "天")
    End Sub