回覆列表
  • 1 # 藍風24

    "你可以用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

  • 中秋節和大豐收的關聯?
  • “南開之父”張伯苓為何在校慶時被拒之門外?