Take a look on this, It might help
"""this two will get you the actual date and time of your computer
MyDate = str(date)
MyTime = Str(time)
"""here is how you can manipulate those strings and some others
Dim MyTime, MyDate, MyStr
"""""let's say that this are the results
MyTime = #17:04:23#
MyDate = #January 13, 2005#
' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")
' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s") ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' Returns "Wednesday,
' Jan 13 2005".
' If format is not supplied, a string is returned.
MyStr = Format(13) ' Returns "13".
' User-defined formats.
MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00") ' Returns "334.90".
MyStr = Format(5, "0.00%") ' Returns "500.00%".
MyStr = Format("HELLO", "<") ' Returns "hello".
MyStr = Format("This is it", ">") ' Returns "THIS IS IT".
Hope it helps
Ep