シリアル値について

シリアル値について覚書。

コンピューターの世界では、時刻をシリアル値と言う値で持っている。

日付時刻をシリアル値に換算する場合の値とちょっとしたVBAのサンプルプログラムを覚え書き。

シリアル値

シリアル値の整数部が日付を表し、少数部が時刻を表す。

シリアル値 1 は、1900年1月1日 00:00:00を表す。

1日は1なので1加算すると日付データは1日進む。

つまり、2は1900年1月2日 00:00:00 となる。

00:00:00 ～ 23:59:59 までを0 ～ 0.99999999 で表す。

1時間は、24時間なので 0.99999999 / 24 = 0.041666666 となる。

したがって、0.99999999 / 24 / 60 = 0.000694444 が1分を表す。

サンプルプログラム

Sub Sample()
Dim TimeValue As Integer

Debug.Print Now '現在日時
Debug.Print Now + 1 '1日後
Debug.Print Now + 0.5 '12時間語
Debug.Print Now + 0.041666666 '1時間後
Debug.Print Now + 0.000694444 '1分後

End Sub