home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DATIM5.ZIP / DATETEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1989-09-14  |  2.3 KB  |  87 lines
  1. program Datetest;
  2.  
  3.         {             Test for DA_TI51.TPU
  4.  
  5.                           Denam Systems
  6.                  1115 Madison St. N.E.  Suite 226
  7.                        Salem, Oregon  97303
  8.  
  9.                          (503) 363-0198
  10.                        CompuServe 70405,1422
  11.  
  12.                     Programmer: Dennis R. Fischer
  13.                                                          }
  14. uses
  15.    crt, da_ti51;
  16. var
  17.    li   : longint;
  18.    i,
  19.    Time : word;
  20.    ts,
  21.    ts2,
  22.    ts3,
  23.    TimeStr : string;
  24.    tb      : boolean;
  25. begin
  26.    clrscr;
  27.    GetDateStr (ts);
  28.    writeln ('GetDateStr                    = ', ts);
  29.  
  30.    GetDate4Str (ts);
  31.    writeln ('GetDate4Str                   = ', ts);
  32.  
  33.    GetFullDateStr (ts);
  34.    writeln ('GetFullDateStr                = ', ts);
  35.  
  36.    GetTimeStr (ts);
  37.    writeln ('GetTimeStr                    = ', ts);
  38.  
  39.    GetTime24Str (Ts);
  40.    writeln ('GetTime24Str                  = ', ts);
  41.  
  42.    GetDate4Str (ts);
  43.  
  44.    li := DaysSince0 (ts);
  45.    writeln ('DaysSince0 (', ts, ')       = ', li);
  46.  
  47.    i := ExtractYear (ts);
  48.    writeln ('IsLeap (', i, ')                 = ', IsLeap (i));
  49.  
  50.    i := ExtractDay (ts);
  51.    writeln ('ExtractDay (', ts, ')       = ', i);
  52.  
  53.    i := ExtractMonth (ts);
  54.    writeln ('ExtractMonth (', ts, ')     = ', i);
  55.  
  56.    i := ExtractYear (ts);
  57.    writeln ('ExtractYear (', ts, ')      = ', i);
  58.  
  59.    GetTime24Str (TimeStr);
  60.    i := ExtractHour (TimeStr);
  61.    writeln ('ExtractHour (', TimeStr, ')            = ', i);
  62.  
  63.    i := ExtractMinute (TimeStr);
  64.    writeln ('ExtractMinute (', TimeStr, ')          = ', i);
  65.  
  66.    writeln;
  67.  
  68.    write ('Conv24ToAMPM (''2223'')         = ');
  69.    TimeStr := '2223';
  70.    Conv24ToAMPM (TimeStr);
  71.    writeln (TimeStr);
  72.  
  73.    write ('ConvAMPMTo24 (''5:19 PM'')      = ');
  74.    TimeStr := '5:19 PM';
  75.    ConvAMPMTo24 (TimeStr);
  76.    writeln (TimeStr);
  77.  
  78.    writeln;
  79.    writeln ('Starting date = 09/12/1989  --  Starting time = 0900 hours');
  80.    writeln ('Ending date   = 09/13/1989  --  Ending time   = 0805 hours');
  81.    tb := GetElaspeTime (TimeStr, li, '09/12/1989', '09/13/1989',
  82.                                      '0900', '0805');
  83.    writeln ('GetElaspeTime = ', TimeStr,
  84.             ' (hours:minutes)  - ', li, ' (minutes)');
  85.    repeat until keypressed
  86. end.
  87.