VBプログラマ質問スレ（Ver.6.0 まで） part57

236 名前：デフォルトの名無しさん mailto:sage [2011/06/20(月) 09:21:33.52 ] 下記サイトを参考に任意の日付までのシリアル値の計算はできたのですが、 逆にシリアル値からyyyy/mm/dd hh:mm:ssというように変換するにはどのように すればよいのでしょうか？ VB6を使用しています。 よろしくお願いします。 www.happy2-island.com/access/gogo03/capter01001.shtml '---------------------------------------------------------------------- '任意の日時までのシリアル値を求める '---------------------------------------------------------------------- Public Function getTimeB(pNow As Date) As Currency Dim lngTime As Currency 'pNowまでの経過秒数を求める lngTime = DateDiff("s" _ , "1970/1/1 9:0:0" _ , pNow) '1/1000秒部分を求める ':元の値を1000倍する lngTime = lngTime * 1000 ':Timer関数で求めた1/1000秒部分を加える lngTime = lngTime + Fix((CDbl(Timer) - Fix(CDbl(Timer))) * 1000) getTimeB = lngTime End Function

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef