第十九章 日期‧時間

第十九章　日期‧時間
19-01　現在的日期及時間

應用範例
Sub 現在的日期時間()
MsgBox “顯示現在的日期及時間”
MsgBox “現在的日期” & Date
MsgBox “現在的時間” & Time
MsgBox “現在的日期及時間” & Now
End Sub

19-02　年、月、日、時、分、秒

應用範例
Sub 年月日時分秒()
MsgBox “顯示現在的時刻”
MsgBox “今天的日期是：” & Year(date) & “ 年 ” & Month(date) & “ 月 ” & Day(date) & “ 日” & Chr(10) & Chr(13) & “現在的時間是：” & Hour(time) & “ 時 ” & Minute(time) & “ 分 ” & Second(time) & “ 秒 ”
End Sub

19-03　月份的名稱

應用範例
Sub 顯示月份的名稱()
MsgBox “從使用中儲存格開始，依序將各月份的名稱填入儲存格內”
ActiveCell.Value = MonthName(1)
For i = 2 To 12
ActiveCell.Offset(rowoffset:=1).Activate
ActiveCell.Value = MonthName(i)
Next i
End Sub

19-04　星期的名稱

應用範例
Sub 今天是星期幾()
MsgBox “顯示今天是星期幾”
youbi = Weekday(date)
MsgBox WeekdayName(youbi)
End Sub

19-05　將字串轉換為日期

應用範例
Sub 將字串轉換為日期()
MsgBox “將字串「2004年12月28日」轉換為日期”
hizuke = “2004年12月28日”
MsgBox DateValue(hizuke)
End Sub

19-06　將字串轉換為時間

應用範例
Sub 將字串轉換為時間()
MsgBox “將字串「4:15:20 PM」轉換為時間”
jikoku = “4:15:20 PM”
MsgBox TimeValue(jikoku)
End Sub

19-07　日期的計算及應用

應用範例1
Sub 彙整個別的年月日數值()
MsgBox “將橫列、相鄰的儲存格內的年、月、日三個數值彙整為完整的日期”
nen = ActiveCell.Value
ActiveCell.Next.Select
tuki =ActiveCell.Value
ActiveCell.Next.Select
hi = ActiveCell.Value
ActiveCell.Next.Select
Selection.Value = DateSerial(nen, tuki, hi)
End Sub

應用範例2
Sub 將日期中的年月日分開()
MsgBox “將儲存格中的日期依年、月、日分別寫入不同的儲存格中”
hizuke = ActiveCell.Value
ActiveCell.Next.Select
ActiveCell.Value = Year(hizuke)
ActiveCell.Next.Select
ActiveCell.Value = Month(hizuke)
ActiveCell.Next.Select
ActiveCell.Value = Day(hizuke)
End Sub

19-08　時間的計算及應用

應用範例
Sub 時間的計算()
MsgBox “顯示中午12時前15分鐘的時間”
MsgBox TimeSerial(12, -15, 0)
End Sub

19-09　計算兩個日期的時間差

應用範例
Sub 計算日期的時間差()
MsgBox “以秒為單位，計算兩個日期的時間差”
hizuke1 = “2005/1/1”
hizuke2 = “2005/12/31”
MsgBox “從2005年1月1日起，要等 ” & DateDiff(“s”, hizuke1, hizuke2) & “ 秒才會到2005年年底”
End Sub

19-10　經過的時間

應用範例
Sub 經過的時間()
MsgBox “在使用中儲存格內輸入今天的日期，於右邊的儲存格顯示兩年後的日期”
ActiveCell.Value = Date
ActiveCell.Next.Select
ActiveCell.Value = DateAdd(“yyyy”, 2, Date)
End Sub

19-11　今天是今年的第幾天

應用範例
Sub 指定的日期在一年中是哪一個部份()
MsgBox “今天是今年的第幾天”
MsgBox “今天(” & Date & “)是今年的第 ” & DatePart(“y”, date) & “ 天”
End Sub

19-12　從00:00起經過多少秒

應用範例
Sub 計時碼錶()
MsgBox “按下確定按鈕後開始計時”
byou1 = Timer
MsgBox “再按一次確定按鈕停止計時”
byou2 = Timer
MsgBox “經過的時間為 ” & byou2 – byou1 & “ 秒”
End Sub

19-13　變更日期、時間的格式

應用範例
Sub 日期與時間的格式()
MsgBox “依序顯示現在日期與時間的格式”
For i = 0 To 4
MsgBox “常數值為 ” & i & “ 的日期時間格式：” & FormatDateTime(Now, i)
Next i
End Sub

19-14　設定系統的日期和時間

應用範例
Sub 系統日期與時間()
MsgBox “將系統日期與時間變更為2006年3月12日上午7時”
Date = #3/12/2006#
Time = #07:00:00 AM#
End Sub