日付
Sub Formatテスト()
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
結果
----------------------------------------------
時間
結果
時 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 午後
-------------------------------------------------------------
日時
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 土
年 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")
結果
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%
00567Microsoft Office ブログランキングへ