日付
Sub Formatテスト()
    Dim myDate As Date
    
    myDate = Now
    Debug.Print Format(myDate, "yyyy年mm月dd日(aaaa)")
    Debug.Print Format(myDate, "'yy m.d (aaa)")
    Debug.Print Format(myDate, "mmmm d (dddd)")
    Debug.Print Format(myDate, "mmm d (ddd)")
    Debug.Print Format(myDate, "gggee年oooo")
    Debug.Print Format(myDate, "gge年m月d日")
    Debug.Print Format(myDate, "ge.mm.dd")
    
End Sub

結果
2013年01月26日(土曜日)
'13 1.26 (土)
January 26 (Saturday)
Jan 26 (Sat)
平成25年1月
平25年1月26日
H25.01.26

 yyyy 2013 yy 13 ggg 平成 gg 平 g H ee 25  e 25
 mmmm  January mmm Jan mm 01 m 1
 dd 26 d 26
曜日 dddd Saturday ddd Sat aaaa 土曜日 aaa

----------------------------------------------
時間
Sub Formatテスト()
    Dim myDate As Date
    
    myDate = Now
    Debug.Print Format(myDate, "hh:nn.ss")
    Debug.Print Format(myDate, "h:n:s")
    Debug.Print Format(myDate, "AM/PM h:n s秒")
    Debug.Print Format(myDate, "am/pm h:n s秒")
    Debug.Print Format(myDate, "A/P h時秒")
    Debug.Print Format(myDate, "a/p h時")
    Debug.Print Format(myDate, "AMPM h時")
    
End Sub

結果
21:16.38
21:16:38
PM 9:16 38秒
pm 9:16 38秒
P 9時秒
p 9時
午後 9時

 hh 21 h 21
 nn 16 n 16
 ss 38 s 38
午前午後 AM/PM PM am/pm pm A/P P a/p p AMPM 午後

-------------------------------------------------------------
日時
Sub Formatテスト()
    Dim myDate As Date
    
    myDate = Now
    Debug.Print Format(myDate)
    Debug.Print String(10, "-")
    Debug.Print Format(myDate, "General Date")
    Debug.Print Format(myDate, "Long Date")
    Debug.Print Format(myDate, "Medium Date")
    Debug.Print Format(myDate, "Short Date")
    Debug.Print Format(myDate, "Long Time")
    Debug.Print Format(myDate, "Medium Time")
    Debug.Print Format(myDate, "Short Time")
    
End Sub

結果
2013/01/26 21:28:05
----------
2013/01/26 21:28:05
2013年1月26日
13-01-26
2013/01/26
21:28:05
09:28 午後
21:28

-------------------------------------------------------------
数値 金額
Sub TEST()

    Dim lngNo As Double
    
    lngNo = 123456789.1
    
    '小数点以下の桁数
    Debug.Print Format(lngNo, "#.000")
    Debug.Print Format(lngNo, "#.##0")
    
    '桁区切りを入れる
    Debug.Print Format(lngNo, "#,#")
    
    '桁区切りと\マークを入れる
    Debug.Print Format(lngNo, "\\#,#")
    
    lngNo = 0.456
    
    '%表示にする(四捨五入される)
    Debug.Print Format(lngNo, "0%")
    
    '%表示にする(小数表示する)
    Debug.Print Format(lngNo, "0.00%")

    lngNo = 567
    
    '0を含めた桁数の設定
    Debug.Print Format(lngNo, "00000")
    
End Sub

結果
123456789.100
123456789.100
123,456,789
\123,456,789
46%
45.60%
00567




Microsoft Office ブログランキングへ