home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / minigen.zip / CURDATE.INC next >
Text File  |  1987-12-09  |  521b  |  24 lines
  1. {** Returns a date string from DOS in the format '99/99/99' **}
  2.  
  3. Type
  4.   MG_DAteStr = String[8];
  5.  
  6. Function CurrentDate : MG_DateStr;
  7. Const
  8.   Space = ' ';
  9. Var
  10.   Month,Day,Year,DayOfWeek : Word;
  11.   MStr,DStr : String[2];
  12.   YStr      : String[4];
  13.  
  14. Begin
  15. GetDate(Year,Month,Day,DayOfWeek);
  16. Str(Month:2,MStr);
  17. If MStr[1] = Space then
  18.   MStr[1] := '0';
  19. Str(Day:2,DStr);
  20. If DStr[1] = Space then
  21.   DStr[1] := '0';
  22. Str(Year:2,YStr);
  23. CurrentDate := Concat(MStr,'/',DStr,'/',Copy(YStr,3,2));
  24. End; {CurrentDate}