EXCEL VBA Day関数の戻り値がおかしい

Question

EXCEL 2010で、表示形式が”[h]:mm”に設定されていて,
見た目の表示が「76:55」となっているA1セルがあります。

A1セルをクリックすると、”1900/1/3 4:55:00”という値が表示されます。

と、ここまでは良いのですが、

このセルの日付を以下のようにVBAのDay関数で取得すると
結果が"3"ではなく、"2"となってしまいます。

MsgBox Day(Worksheets("Sheet1").Range("A1").Value)

原因がわからず、質問させていただきました。

どなたか、おわかりになる方がいらっしゃれば
教えていただけないでしょうか？

Comments

[kaina]

回答ではないのでこちらに書きます。
Office 365 ProPlusで実行したら結果は"3"になりました。

Answer 1

シリアル値60が、
ExcelとVBAとで違う日付になっているようです。（それ以降は問題なし）
なので、それ以前は1日ずれるようです。エクセルのバグ？

うるう年のルールってどうなってるんだっけなぁ。。。。。

Comments

[polupolu_0218]

ずれるのは仕様になるんでしょうね。

https://qiita.com/wagase/items/6444ce93a24aaaa74981

[mattuwan]

リンクありがとうございます。
結局エクセルを作った人とVBAを作った人で、考え方の違いの差が影響しているということですね＾＾

[SYO_chan]

回答くださり、ありがとうございます。
勉強にないりました。
他にこのような既知の問題がないか、調べてみます。

Answer 2

『Excel』は、1900年をうるう年と想定してしまっています。
https://www.724685.com/word/wd140917.htm

このため1900/1/1～1900/2/29で日付がずれたり、曜日がずれてしまいます。

この経緯は以下で説明されており過去のLotus 1-2-3 との互換性を維持しているためです。
https://docs.microsoft.com/ja-jp/office/troubleshoot/excel/wrongly-assumes-1900-is-leap-year

なお、『VBA』は正しく1900年のうるう年取り扱っているため、VBAで1900/1/1～1900/2/29を扱うと、Excelとずれてみえるようです。

Answer 3

エクセルでの日付を表す 日付シリアル値って物の仕様が変わっているみたい

本来、日付シリアル値=1ってのは 1900/1/1 になるはずなんだけど

日付シリアル値=1 が 1899/12/31 に変更されているみたいです。
(1900/1/1 の一日前に変わってる)

こうやってみるとわかるけど
a1=1
msgbox Year(a1) & "-" & Month(a1) & "-" & Day(a1) & "-" & Hour(a1) & "-" & Minute(a1) & "-" & Second(a1)

Comments

[SYO_chan]

回答くださり、ありがとうございます。
こんな問題があったとは、知りませんでした。
Microsoft曰く、バグではなく互換性を保つ方を優先した仕様のようですね。