[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]

    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;

[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]