Function getTimeStamp()
sHour = CStr(String(2 - Len(Hour(Now)), "0") & Hour(Now))
sMin = CStr(String(2 - Len(Minute(Now)), "0") & Minute(Now))
sSecond = CStr(String(2 - Len(Second(Now)), "0") & Second(Now))
sMillSecond = CStr(Right(Replace(Timer, ".", ""), 2))
getTimeStamp = Day(Now) & MonthName(Month(Now), True) & Year(Now) & "_" & sHour & sMin & sSecond & sMillSecond
End Function
sHour = CStr(String(2 - Len(Hour(Now)), "0") & Hour(Now))
sMin = CStr(String(2 - Len(Minute(Now)), "0") & Minute(Now))
sSecond = CStr(String(2 - Len(Second(Now)), "0") & Second(Now))
sMillSecond = CStr(Right(Replace(Timer, ".", ""), 2))
getTimeStamp = Day(Now) & MonthName(Month(Now), True) & Year(Now) & "_" & sHour & sMin & sSecond & sMillSecond
End Function
No comments:
Post a Comment