つらつら Excel VBA

私の備忘録です。

Excel VBA yyyymmddhhMMss + ミリ秒

'現在の時刻をyyyymmddHHMMSS+ミリ秒で取得
Function getNow() As String
    getNow = Format(Now, "yyyymmddHHMMSS") & getMSec()
End Function

 

'ミリ秒を取得
Function getMSec() As String
    Dim dblTimer As Double
    Dim s_return As String
    dblTimer = CDbl(Timer)
    s_return = Format(Fix*1 * 1000), "000")
    getMSec = s_return
End Function

 

※他言語ではyyyymmddhhMMssとyyyymmddHHMMSSで取れる値が違うので注意。

*1:dblTimer - Fix(dblTimer