Excel マクロ Month関数がおかしい

Question

Sub 日付()
   Dim todayDate As Date '本日の日付
   Dim todayDateMonth As Date '本日の日付（月）

   todayDate = Date
   todayDateMonth = Month(todayDate)

End Sub

以上のようにコードを書くと、
変数 todayDate には 2020/11/20 とデータが格納されるのですが、
変数 todayDateMonth には 1900/01/10 と、期待した値「11」とは全然違う値が入ります。

シリアル型の値を代入しないと、このような値が出る、とまで調べたのですが、
では2020/11/20 はいったい何なのか、まで分からず、
結局腑に落ちませんでした。

どなたかご教示頂けますでしょうか。

Answer 1

こんにちは。
todayDateMonth をDate型で宣言しているからです。

Dim todayDateMonth As Integer

として再実行してみてください。

Comments

[Josh_Jan_J]

ご回答ありがとうございます、代入するのはただの整数なので確かにIntegerですね...笑笑