Here is a function called "TimeString" that I create to do it
StringTime = Timestring(153705); Result = "15:37:05)
// Time_S = (153705)
Code: Select all
//TimeString, return a string formated "HH:MM:SS"
Input: Time_in (Numeric);
Var: TimeLen (0);
Var: TimeStr ("");
Var:TST (""); // Time String Temp
TST = NumToStr(Time_IN,0);
TimeLen = StrLen(NumtoStr(Time_IN,0));
Switch TimeLen begin
Case = 0:
TimeStr = "00:00:00";
Case = 1:
Timestr = "00:00:0" + tst;
Case = 2:
Timestr = "00:00:" + tst;
Case = 3:
TimeStr = "00:0" + midstr(tst,1,1) + ":" + midstr(tst,2,2);
case = 4:
Timestr = "00:" + midstr(tst,1,2) + ":" + midstr(tst,3,2);
case = 5:
Timestr = "0" + midstr(tst,1,1) + ":" + midstr(tst,2,2) + ":" + midstr(tst,4,2);
case = 6:
Timestr = Midstr(tst,1,2) + ":" + midstr(tst,3,2) + ":" + midstr(tst,5,2);
end;
TimeString = TimeStr;