DP Tool Club 19/CD_ASCQ_19_010295.iso/dos/prg/pas/swag/datetime.swg/0006_DATE5.PAS.pas

Pascal/Delphi Source File | 1993-05-28 | 326b | 11 lines

Procedure TheDate(Var Date:String;Var doW:Integer);
 Var
  D,M,Y : Integer;
 begin
  GetDate(Y,M,D,doW);
  Date:=chr((M div 10)+48)+chr((M mod 10)+48)+'-'+chr((D div 10)+48+
        chr((D mod 10)+48)+'-'+chr(((Y mod 100) div 10)+48)+
        chr(((Y mod 100) mod 10)+48);
  if Date[1]='0' then Date[1]:=' ';
 end;