Category : Pascal Source Code
Archive   : HEAPTRK.ZIP
Filename : TIMES.PAS

 
Output of file : TIMES.PAS contained in archive : HEAPTRK.ZIP

Unit Times;

Interface

Uses Dos;
Function Time : String;

Implementation

Function Time : String;
Var
HR,MN,SC,HN : Word;
HRS,MNS,SCS : String[2];

Begin

GetTime(HR,MN,SC,HN);
Str(HR:2,HRS);
STR(MN:2,MNS);
If MNS[1] = ' ' then MNS[1] := '0';
STR(SC:2,SCS);
If SCS[1] = ' ' then SCS[1] := '0';

Time := HRS+':'+MNS+':'+SCS;

End;

End.