ｖｂａ 「02」を返したいのですが

質問

Sub test()
Debug.Print Month(Date)
End Sub

のようなコードの時に
月の表記を02のように2桁で返すにはどうすればいいですか？

Debug.Print Format(Month(Date), "mm")

これだと、なぜか「01」が返ります。

「02」を返したいのですが、どうすればいいでしょうか？

回答No.7

Meegeren · ベストアンサー

>Debug.Print Format(Date, "mm")
>Month関数自体が不要。

これじゃ、あまりにも不親切なので一応説明

Month関数はVariant型を返します
つまり、対象がDate関数なので当日の「月」に当たる値（数値）を返してるんですね
これが質問にある２月の「２」です
この時点で返り値は数値タイプのVariant型になっています
日付型の管理は数値で管理されています
MSの場合、日付の初期値「0」は1899/12/30です
ですから、Month関数で返した「2」は初期値の「２」日後である「1890/1/1」を示しています
Format関数は変換対象の「1890/1/1」の月の値「1」に対して、”mm"の日付型書式で返しているので「01」が返っているんです

Format関数の日付型書式は、変換対象が日付と認識できる数値かDate型であれば機能します
つまり、Date関数はDate型の値（当日）を返します

Format(Month(Date), "00")
と書き換えれば、”00”の文字列型書式で「02」を返すことができますが、プログラミングをする場合、無用な関数の使用はバグの原因になりますので、Month関数を削り
Format(Date, "mm")
で十分と思います

お礼

ありがとうございました。

回答No.6

chayamati

フォームにテキストボックスを配置してこのプロパティーの
データタグ内のコントロールソースに
=Format(Month(Date()),"00")とするのはいかがですか

お礼

ありがとうございました。

回答No.5

山田 太郎（@f_a_007）

続補足：なぜ、01が戻るのか？

お礼

ありがとうございました。

回答No.4

imogasi

Sub test01()
MsgBox Month(Date)
MsgBox Format(Date, "mm")
End Sub
ｍｍは、エクセルの日付シリアル値を年月日表示に直し、その月部分をＭｏｎｔｈで取るので、そのままでよい。
Format(Month(Date),だと、２月２１日では）Month(Date),が「２」なので、日付シリアル値が「２」の１９００年１月２日の月を取る（すなわち０１ででしょう）。
１段余分なことをしているのことになるのでしょう。

お礼

ありがとうございました。

回答No.3

山田 太郎（@f_a_007）

【補足】

Month(date) ---> 1900/01/01ですから

? Format("1900/01/01", "mm")
01

となります。

お礼

ありがとうございました。

回答No.2

Meegeren

Debug.Print Format(Date, "mm")
Month関数自体が不要。

お礼

ありがとうございました。

回答No.1

山田 太郎（@f_a_007）

Q、「02」を返したいのですが、どうすればいいでしょうか？
A、やり方は２つ。

添付図を参照して試してみて下さい。

お礼

ありがとうございました。