home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / 10TLST.ZIP / 10TIME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-01  |  650 b   |  29 lines

  1. Program TenTime;
  2. Uses CRT,TenTools;
  3.  
  4. VAR
  5.    I : Integer;
  6.    W : Word;
  7.    L,K : Longint;
  8.    SB : StatusBlock;
  9.    DT : DateTimeRec;
  10.    Mins,Secs : String[2];
  11. Begin
  12.    If ParamCount<1
  13.    then Writeln('Syntax: 10Time <Node>')
  14.    else
  15.     begin
  16.        W:=TenConfig(0,0,0);
  17.        W:=Get10Time(ParamStr(1),DT);
  18.        If W=0
  19.        then With DT do
  20.         begin
  21.            Str(Minute:2,Mins);
  22.            If Mins[1]=' ' then Mins[1]:='0';
  23.            Str(Second:2,Secs);
  24.            If Secs[1]=' ' then Secs[1]:='0';
  25.            Writeln('Date: ',Month,'/',Day,'/',Year,' Time: ',Hour,':',Mins,':',Secs);
  26.         end;
  27.     end;
  28. End.
  29.