basTimestamp.bas

Attribute VB_Name = "basTimestamp"
Public Function DateStamp() As String
    Dim Tmp As String
    Tmp = Date$
    DateStamp = Mid(Tmp, 7, 4) & Mid(Tmp, 1, 2) & Mid(Tmp, 4, 2)
End Function
Public Function TimeStamp() As String
    Dim Tmp As String
    Tmp = Time$
    TimeStamp = Mid(Tmp, 1, 2) & Mid(Tmp, 4, 2) & Mid(Tmp, 7, 2)
End Function
Public Function Stamp() As String
    Stamp = DateStamp() & TimeStamp()
End Function