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
Sub ConvertToTimeFormat(sec As Long) As String
Dim seconds, minutes ,hours As Long
seconds = sec
minutes = Floor(seconds / 60)
seconds = seconds Mod 60
hours=Floor(minutes / 60)
minutes=minutes-hours*60
Return NumberFormat(hours,2,0) & ":" & NumberFormat(minutes , 2,0) & ":" & NumberFormat(seconds, 2, 0)
End Sub