2011年12月4日日曜日

[ExcelVBA] FormatDateTime関数


■構文
FormatDateTime(Date[,NamedFormat])

■説明
引数で指示したフォーマットに日付を変更します
第一引数:日付を指定します。
第二引数:(省略可能)フォーマットを指定します。
定数説明
vbGeneralDate0日付か時刻、または両方を表示します。日付部がある場合は、日付を短い形式で表示します。時刻部がある場合は、時刻を長い形式で表示します。両方がある場合は、両方とも表示します。
vbLongDate1[地域のプロパティ] で指定されている長い形式で日付を表示します。
vbShortDate2[地域のプロパティ] で指定されている短い形式で日付を表示します。
vbLongTime3[地域のプロパティ] で指定されている形式で時刻を表示します。
vbShortTime424 時間形式 (hh:mm) で時刻を表示します。

■サンプルコード
Option Explicit

Sub SampleCode()
    Dim TestDate As Date
    TestDate = "2011/12/04 12:34:56"
    
    Debug.Print FormatDateTime(TestDate, vbGeneralDate) '2011/12/04 12:34:56
    Debug.Print FormatDateTime(TestDate, vbLongDate)    '2011年12月4日
    Debug.Print FormatDateTime(TestDate, vbShortDate)   '2011/12/04
    Debug.Print FormatDateTime(TestDate, vbLongTime)    '12:34:56
    Debug.Print FormatDateTime(TestDate, vbShortTime)   '12:34
End Sub

0 件のコメント: