Format関数：Access
■ 構文
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
■ 引数
expression ： （必須） 変換する式を指定します。
format ： （省略可） 定義済み書式か書式指定文字を指定します。
firstdayofweek ： （省略可） 週の 1 日目を指定する定数を指定します。
firstweekofyear ： （省略可） 年の第 1 週を指定する定数を指定します。
■ 戻り値
変換した、文字列を示すバリアント型が返ります。
■ 実行後の画面
下記の書式指定を実行しています。
日付書式 ： Long Date 、 Short Date
時間書式 ： Long Time 、 Short Time 、 hh:mm:ss 、 hh:mm:ss AMPM 、 Short Time AMPM
数値書式 ： #,##0 、 #,##0.00
小文字変換 ： <
大文字変換 ： >
Private Sub コマンド2_Click()
Dim s1 As String
s1 = Format(Now, "Long Date")
Me!テキスト0 = "Long Date ： " & s1 & vbNewLine
s1 = Format(Now, "Short Date")
Me!テキスト0 = Me!テキスト0 & "Short Date ： " & s1 & vbNewLine
s1 = Format(Now, "Long Time")
Me!テキスト0 = Me!テキスト0 & "Long Time ： " & s1 & vbNewLine
s1 = Format(Now, "Short Time")
Me!テキスト0 = Me!テキスト0 & "Short Time ： " & s1 & vbNewLine
s1 = Format(Now, "hh:mm:ss")
Me!テキスト0 = Me!テキスト0 & "hh:mm:ss ： " & s1 & vbNewLine
s1 = Format(Now, "hh:mm:ss AMPM")
Me!テキスト0 = Me!テキスト0 & "Short Time AMPM： " & s1 & vbNewLine
s1 = Format(1234567.89, "#,##0")
Me!テキスト0 = Me!テキスト0 & "#,##0： " & s1 & vbNewLine
s1 = Format(1234567.89, "#,##0.00")
Me!テキスト0 = Me!テキスト0 & "#,##0.00： " & s1 & vbNewLine
s1 = Format("AbcdEfgHIJ", "<")
Me!テキスト0 = Me!テキスト0 & "<： " & s1 & vbNewLine
s1 = Format("AbcdEfgHIJ", ">")
Me!テキスト0 = Me!テキスト0 & ">： " & s1 & vbNewLine
End Sub
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
■ 引数
expression ： （必須） 変換する式を指定します。
format ： （省略可） 定義済み書式か書式指定文字を指定します。
firstdayofweek ： （省略可） 週の 1 日目を指定する定数を指定します。
firstweekofyear ： （省略可） 年の第 1 週を指定する定数を指定します。
■ 戻り値
変換した、文字列を示すバリアント型が返ります。
■引数 firstdayofweek の定数
vbUseSystem ： 0 NLS API の設定値を使用します。
vbSunday ： 1 (既定値) 日曜
vbMonday ： 2 月曜
vbTuesday ： 3 火曜
vbWednesday ： 4 水曜
vbThursday ： 5 木曜
vbFriday ： 6 金曜
vbSaturday ： 7 土曜
■引数 firstweekofyear 定数
vbUseSystem ： 0 NLS API の設定値を使用します。
vbFirstJan1 ： 1 (既定値) 1 月 1 日を含む週から始まります。
vbFirstFourDays ： 2 年の 4 日以上が含まれる最初の週から始まります。
vbFirstFullWeek ： 3 年のうち、7 日が含まれる最初の週から始まります。
■日付の書式1
Long Date ： 2009年4月25日 の形式
Medium Date ： 09-04-25 の形式
Short Date ： 2009/04/25 の形式
Long Time ： 21:04:18 の形式
Medium Time ： 21：04 午後 の形式
Short Time ： 21:04 の形式
General Date ： （規定値） Short DateとLong Timeの組み合わせ
■日付の書式2
/ ： 日付の区切り記号
c ： General Date/日付（標準）と同じ
d 1～31 ： 日付
dd 01～31 ： 日付
ddd ： 曜日の英語３文字の省略形（Sun～Sat）
aaa ： 曜日の日本語の省略形（日～土）
dddd ： 曜日を英語で（Sunday～Saturday）
aaaa ： 曜日を日本語で（日曜日～土曜日）
ddddd ： Short Date/日付（S）と同じ
dddddd ： Long Date/日付（L）と同じ
w ： 曜日を1～7の数値で
ww ： １年のうちの何週目であるか（1～53）
m ： 月を1～12で
mm ： 月を01～12で
mmm ： 月の英語３文字の省略形（Jan～Dec）
mmmm ： 月の英語の名前
q ： １年のうちの四半期を表示（1～4）
g ： 年号の頭文字（M，T，S，H）
gg ： 年号の先頭の１文字の漢字（明，大，昭，平）
ggg ： 年号（明治，大正，昭和，平成）
e ： 年を年号で
ee ： 年を年号で2桁の数値で
y ： 日付の1月1日からの日数（1～366）
yy ： 西暦の最後の２桁（01～99）
yyyy ： 西暦（0100～9999)
■時刻の書式
： ： 時刻の区切り記号
h ： 時刻（0～23）
hh ： 2桁の時刻（00～23）
n ： 分（0～59）
nn ： 2桁の分（00～59）
s ： 秒（0～59）
ss ： 2桁の秒（00～59）
ttttt ： Long Timeと同じ
AM/PM ： AM,PMを付けた12時間の時刻
am/pm ： am,pmを付けた12時間の時刻
A/P ： A,Pを付けた12時間の時刻
a/p ： a,pを付けた12時間の時刻
vbUseSystem ： 0 NLS API の設定値を使用します。
vbSunday ： 1 (既定値) 日曜
vbMonday ： 2 月曜
vbTuesday ： 3 火曜
vbWednesday ： 4 水曜
vbThursday ： 5 木曜
vbFriday ： 6 金曜
vbSaturday ： 7 土曜
■引数 firstweekofyear 定数
vbUseSystem ： 0 NLS API の設定値を使用します。
vbFirstJan1 ： 1 (既定値) 1 月 1 日を含む週から始まります。
vbFirstFourDays ： 2 年の 4 日以上が含まれる最初の週から始まります。
vbFirstFullWeek ： 3 年のうち、7 日が含まれる最初の週から始まります。
■日付の書式1
Long Date ： 2009年4月25日 の形式
Medium Date ： 09-04-25 の形式
Short Date ： 2009/04/25 の形式
Long Time ： 21:04:18 の形式
Medium Time ： 21：04 午後 の形式
Short Time ： 21:04 の形式
General Date ： （規定値） Short DateとLong Timeの組み合わせ
■日付の書式2
/ ： 日付の区切り記号
c ： General Date/日付（標準）と同じ
d 1～31 ： 日付
dd 01～31 ： 日付
ddd ： 曜日の英語３文字の省略形（Sun～Sat）
aaa ： 曜日の日本語の省略形（日～土）
dddd ： 曜日を英語で（Sunday～Saturday）
aaaa ： 曜日を日本語で（日曜日～土曜日）
ddddd ： Short Date/日付（S）と同じ
dddddd ： Long Date/日付（L）と同じ
w ： 曜日を1～7の数値で
ww ： １年のうちの何週目であるか（1～53）
m ： 月を1～12で
mm ： 月を01～12で
mmm ： 月の英語３文字の省略形（Jan～Dec）
mmmm ： 月の英語の名前
q ： １年のうちの四半期を表示（1～4）
g ： 年号の頭文字（M，T，S，H）
gg ： 年号の先頭の１文字の漢字（明，大，昭，平）
ggg ： 年号（明治，大正，昭和，平成）
e ： 年を年号で
ee ： 年を年号で2桁の数値で
y ： 日付の1月1日からの日数（1～366）
yy ： 西暦の最後の２桁（01～99）
yyyy ： 西暦（0100～9999)
■時刻の書式
： ： 時刻の区切り記号
h ： 時刻（0～23）
hh ： 2桁の時刻（00～23）
n ： 分（0～59）
nn ： 2桁の分（00～59）
s ： 秒（0～59）
ss ： 2桁の秒（00～59）
ttttt ： Long Timeと同じ
AM/PM ： AM,PMを付けた12時間の時刻
am/pm ： am,pmを付けた12時間の時刻
A/P ： A,Pを付けた12時間の時刻
a/p ： a,pを付けた12時間の時刻
下記の書式指定を実行しています。
日付書式 ： Long Date 、 Short Date
時間書式 ： Long Time 、 Short Time 、 hh:mm:ss 、 hh:mm:ss AMPM 、 Short Time AMPM
数値書式 ： #,##0 、 #,##0.00
小文字変換 ： <
大文字変換 ： >
■ Access VBA 実行コード
Option Compare DatabasePrivate Sub コマンド2_Click()
Dim s1 As String
s1 = Format(Now, "Long Date")
Me!テキスト0 = "Long Date ： " & s1 & vbNewLine
s1 = Format(Now, "Short Date")
Me!テキスト0 = Me!テキスト0 & "Short Date ： " & s1 & vbNewLine
s1 = Format(Now, "Long Time")
Me!テキスト0 = Me!テキスト0 & "Long Time ： " & s1 & vbNewLine
s1 = Format(Now, "Short Time")
Me!テキスト0 = Me!テキスト0 & "Short Time ： " & s1 & vbNewLine
s1 = Format(Now, "hh:mm:ss")
Me!テキスト0 = Me!テキスト0 & "hh:mm:ss ： " & s1 & vbNewLine
s1 = Format(Now, "hh:mm:ss AMPM")
Me!テキスト0 = Me!テキスト0 & "Short Time AMPM： " & s1 & vbNewLine
s1 = Format(1234567.89, "#,##0")
Me!テキスト0 = Me!テキスト0 & "#,##0： " & s1 & vbNewLine
s1 = Format(1234567.89, "#,##0.00")
Me!テキスト0 = Me!テキスト0 & "#,##0.00： " & s1 & vbNewLine
s1 = Format("AbcdEfgHIJ", "<")
Me!テキスト0 = Me!テキスト0 & "<： " & s1 & vbNewLine
s1 = Format("AbcdEfgHIJ", ">")
Me!テキスト0 = Me!テキスト0 & ">： " & s1 & vbNewLine
End Sub
Homeへ 
Access関数メニューへCopyright(C) FeedSoft