Dim the_time, the_date As String
Dim now As Long
now = DateTime.now
DateTime.TimeFormat = "hh:mm"
the_time = DateTime.Time(now)
DateTime.DateFormat = "MM/dd"
the_date = DateTime.date(now)
Msgbox("Lab_date_time",the_date & " " & the_time) 'returns 11/20 03:58