日付や時刻を扱う代表的な関数を説明します。

Year,Month,Day,Date関数

Year関数、Month関数、Date関数は、それぞれ日付のデータから年、月、日を整数に変換した値を返します。日付は、リテラル文字(#)を使っても、文字形式でも指定できます。
また、Date関数はシステム日付を返します。

システム日付から当日の日付を取得して、それぞれ年、月、日の取りだすには次のように記述します。

（例）

  Sub Hiduke()
  	Dim Hiduke As Date
  	Hiduke = Date
  	MsgBox "年は" & Year(Hiduke) & Chr(13) & _
  		      "月は" & Month(Hiduke) & Chr(13) & _
  		      "日は" & Day(Hiduke)
  End Sub
    

当日が「2010年11月9日」である場合、以下のようなメッセージが表示されます。

Format関数

日付を指定した書式に変換して返します。Format関数は日付を扱うだけの関数ではなく、書式を指定したい場合に利用します。

変換方法には以下のような書式を使います。

文字列を変数に格納して、文字列の中の文字を取り出すには以下のように記述します。

システム日付を年、月、日、曜日の順で表示するには、以下のように記述します。

（例）

  Sub format_kansuu()
  	Dim Hiduke  As Date
  	Hiduke = Date
  	MsgBox "今日は" & Format(Date, "ggge年mm月dd日(aaa)") & "です。"
  End Sub
    

日付が指定した書式どおりに、メッセージ表示されます。

DateDiff関数

開始日から終了日までを時間単位の値で返します。この関数は、年齢、在籍年数などを求める時に使用します。時間単位は、年数、月数、日数、または週数を指定できます。

時間単位には以下のような書式があります。

※ 時間単位は、開始日と終了日の日付期間を計算する書式で、かならずダブルクォーテーションで囲みます。

今日（操作した当日）で、今年は何日過ぎているかを表示するには、以下のように記述します。

（例）

  Sub datediff_kansuu()
  	Dim Birth As Date
  	Birth = #5/20/1975#
  	MsgBox "今年で年齢は" & DateDiff("yyyy", Birth, Date) & "才です。"
  End Sub
    

1975年5月20日生まれの方は、今年で何歳かを表示するメッセージとなります。

Time,Hour,Minute,Second関数

時刻を取得する関数です。Time関数は、現在の時刻を取得します。Hour関数、Minute関数、Second関数は、引数に指定した時刻から時間、分、秒を取得します。

時刻に設定可能な書式は次のようなものがあります。

現在の時刻をコロン（：）で表示するには以下のような記述をします。

（例）

  Sub zikoku_kansuu()
  	MsgBox Format(Time, "現在の時刻はhh時nn分ss秒です")
  End Sub
    

現在の時刻を表示するメッセージとなります。

日付を扱うその他の関数