"你可以用DateDiff函式,這個函式的作用就是判斷2個日期型變數的差,DateDiff後邊先跟的一個引數是選擇按照什麼方式計算差值(我們可以按照年,月,日等)
"只需要在TEXT1中輸入例如 2006-7-30 就能判斷出2日期的日期之差
Private Sub Command1_Click()
Dim Str As String
Str = Text1.Text
Label1.Caption = DateDiff("d", CDate(Format(Now, "YYYY-MM-DD")), CDate(Format(Str, "yyyy-mm-dd")))
"CDate強制轉換。把變數強制轉換成日期型變數
"這裡邊第一“d”就是DateDiff的引數。如果按照年來判斷，你把"d"改成"yyyy"就可以
"yyyy 年
"q 季
"m 月
"y 一年的日數
"d 日
"w 一週的日數
"ww 周
"h 時
"n 分鐘
"s 秒
"如果你輸入的不想按照例如（2006-10-15）這樣輸入，只需要改Format(Str, "YYYY-MM-DD")這個裡。把這裡的"YYYY-MM-DD"改掉
"（06-10-11，就改成Format(Str, "YY-MM-DD")
End Sub
"你可以用DateDiff函式,這個函式的作用就是判斷2個日期型變數的差,DateDiff後邊先跟的一個引數是選擇按照什麼方式計算差值(我們可以按照年,月,日等)
"只需要在TEXT1中輸入例如 2006-7-30 就能判斷出2日期的日期之差
Private Sub Command1_Click()
Dim Str As String
Str = Text1.Text
Label1.Caption = DateDiff("d", CDate(Format(Now, "YYYY-MM-DD")), CDate(Format(Str, "yyyy-mm-dd")))
"CDate強制轉換。把變數強制轉換成日期型變數
"這裡邊第一“d”就是DateDiff的引數。如果按照年來判斷，你把"d"改成"yyyy"就可以
"yyyy 年
"q 季
"m 月
"y 一年的日數
"d 日
"w 一週的日數
"ww 周
"h 時
"n 分鐘
"s 秒
"如果你輸入的不想按照例如（2006-10-15）這樣輸入，只需要改Format(Str, "YYYY-MM-DD")這個裡。把這裡的"YYYY-MM-DD"改掉
"（06-10-11，就改成Format(Str, "YY-MM-DD")
End Sub