ConvertToDate(DateTime.now)
Sub ConvertToDate(sec As Long) As String
Dim TempStr As String
TempStr=NumberFormat(DateTime.GetDayOfMonth(sec),2,0)
TempStr=TempStr & "/" & NumberFormat(DateTime.GetMonth(sec),2,0)
TempStr=TempStr & "/" & DateTime.GetYear(sec)
TempStr=TempStr & " " & NumberFormat(DateTime.GetHour(sec),2,0)
TempStr=TempStr & ":" & NumberFormat(DateTime.GetMinute(sec),2,0)
Return TempStr
End Sub