- 249 名前：236 mailto:sage [2011/06/21(火) 14:45:46.70 ]
- >>243
ありがとうございました。
教えていただいた通り以下の通りで出来ました。
DataAddという物があったのですねー。
236で書いたのは、シリアル値から日付へ変換する方法を
探している際に見つけて、これの逆をやればできるかなと
思ったんですが、差分の部分でつまづいていました。
本当にどうもありがとうございました！
'---------------------------------
'シリアル値から日付へ
'---------------------------------
Function STD(SR As Double)
Dim lngTime As Double
lngTime = SR
Dim DT As Variant
DT = DateAdd("s", (lngTime / 1000), "1970/1/1 9:0:0")
STD = DT
End Function
