home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / minigen.zip / CURTIME.INC < prev    next >
Text File  |  1987-11-15  |  754b  |  39 lines
  1.  
  2. Type
  3.   MG_TimeStr = String[10];
  4.  
  5. Function CurrentTime : MG_TimeStr;
  6. {** Returns the current time in '99:99:99 am/pm' format **}
  7.  
  8. Const
  9.   Am = 'am';
  10.   Pm = 'pm';
  11. Var
  12.   Hour,Minute,Second,Sec100 : Word;
  13.   HStr,MStr,Sstr            : String[2];
  14.   AmPm                      : String[2];
  15.  
  16. Begin
  17. GetTime(Hour,Minute,Second,Sec100);
  18. AmPm := Am;
  19. If Hour = 0 then
  20.   Begin
  21.   Hour := 12;
  22.   AmPm := Pm;
  23.   End;
  24. If Hour > 12 then
  25.   Begin
  26.   Hour := Hour - 12;
  27.   AmPm := Pm;
  28.   End;
  29. Str(Hour:2,HStr);
  30. If HStr[1] = ' ' then
  31.   HStr[1] := '0';
  32. Str(Minute:2,MStr);
  33. If MStr[1] = ' ' then
  34.   MStr[1] := '0';
  35. Str(Second:2,SStr);
  36. If SStr[1] = ' ' then
  37.   SStr[1] := '0';
  38. CurrentTime := Concat(HStr,':',mStr,':',SStr,AmPm);
  39. End; {CurrentTime}