VBA：日付をシリアル値にできるの関数教えてください。

VBAにより、あるセルに"yyyy / mm / dd hh:mm:ss"のフォーマットで日付を記入しました。それを手動で書式を標準にすると例えばシリアル値38148.4768981481になります。これをVBA上でできる関数を知りたいです。つまり、日付をシリアル値にできるVBAの関数を教えて頂きたいです。宜しくお願いいたします。

No.2 ベストアンサー 回答者： wonwonwon 回答日時： 2004/06/20 01:21

私の勘違いでしたらすいません。

Doubleの変数を宣言し

Dim Time_Serial As Double
Time_Serial = Range("A1").Value

このようにすれば、Time_Serialの中身は
シリアル値になっているとおもいます

この回答へのお礼

有難う御座います。

お礼日時：2004/06/20 01:51

No.1 回答者： 7_7_7 回答日時： 2004/06/20 01:08

A1 = Format(Date, "#,#")

で良いと思います。

Ａ1に日付を記入があるとすれば
A1 = Format(Range("a1"), "#,#")
です。

この回答へのお礼

有難う御座います。

お礼日時：2004/06/20 01:52