home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / EXDATE.ZIP / TESTEXDT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-01-04  |  2.9 KB  |  121 lines
  1. program testexdt;
  2.  
  3. {Interactive test routines for date functions in exdate.pas.
  4.  to enable a test, remove the comment braces around the desired
  5.  test routine, compile and run it.}
  6.  
  7. uses exdate, CRT;
  8.  
  9. {Test day of week function}
  10. {
  11. var d, m, y: integer;
  12. begin
  13. writeln('Test of "Day of Week" function');
  14. repeat
  15.    write('Month: '); read(m); writeln;
  16.    write('Day: '); read(d); writeln;
  17.    write('Year: '); read(y); writeln;
  18.    writeln('Day of Week is: ', day_of_week(d, m, y));
  19.    writeln;
  20. until false;
  21. end.
  22. }
  23.  
  24. {Test ordinal_day function}
  25. {
  26. var y, m, d: integer;
  27. begin
  28. writeln('Test of "Ordinal Day" function');
  29. repeat
  30.    write('Month: '); read(m); writeln;
  31.    write('Day: '); read(d); writeln;
  32.    write('Year: '); read(y); writeln;
  33.    writeln('Ordinal Day is: ', ordinal_day(d, m, y));
  34.    writeln;
  35. until false;
  36. end.
  37. }
  38.  
  39. {Test From Ordinal Day procedure}
  40. {
  41. var y, od, d, m: integer;
  42. begin
  43. writeln('Test of "Ordinal Day" function');
  44. repeat
  45.    write('Ordinal Day: '); read(od); writeln;
  46.    write('Year: '); read(y); writeln;
  47.    from_ordinal_day(od,y,d,m);
  48.    writeln('Month is ', m, ' and day is ',d);
  49.    writeln;
  50. until false;
  51. end.
  52. }
  53.  
  54. {Test Date Validation}
  55. {
  56. var d, m, y: integer;
  57. begin
  58. writeln('Test of "Valid Day" function');
  59. repeat
  60.    write('Month: '); read(m); writeln;
  61.    write('Day: '); read(d); writeln;
  62.    write('Year: '); read(y); writeln;
  63.    writeln('Valid Date is ', valid_date(d, m, y));
  64.    writeln;
  65. until false;
  66.    end.
  67. }
  68.  
  69. {Test day difference function}
  70. {
  71. var d1, m1, y1, d2, m2, y2: integer;
  72. begin
  73. writeln('Test of "Date Difference" function');
  74. repeat
  75.    writeln('First Date ---');
  76.    write('Month: '); read(m1); writeln;
  77.    write('Day: '); read(d1); writeln;
  78.    write('Year: '); read(y1); writeln;
  79.    writeln('Second Date ---');
  80.    write('Month: '); read(m2); writeln;
  81.    write('Day: '); read(d2); writeln;
  82.    write('Year: '); read(y2); writeln;
  83.    writeln('Serial day 1 is ',serial_day(d1,m1,y1));
  84.    writeln('Serial day 2 is ',serial_day(d2,m2,y2));
  85.    writeln('Difference is ',trunc(day_diff(d1,m1,y1,d2,m2,y2)),' days');
  86.    writeln;
  87. until false;
  88. end.
  89. }
  90.  
  91. {Test From Serial Day function}
  92. {
  93. var d, m, y, dx, mx, yx:integer;
  94. begin
  95. repeat
  96.    write('Month: '); read(m); writeln;
  97.    write('Day: '); read(d); writeln;
  98.    write('Year: '); read(y); writeln;
  99.    from_serial_day(serial_day(d, m, y), dx, mx, yx);
  100.    writeln('Output Date(month day year): ', mx,' ', dx,' ', yx);
  101.    writeln;
  102. until false;
  103. end.
  104. }
  105.  
  106. {Test days-from function}
  107. {
  108. var d, m, y, days, dx, mx, yx:integer;
  109. begin
  110. writeln('Test of "Days From" function');
  111. repeat
  112.    write('Month: '); read(m); writeln;
  113.    write('Day: '); read(d); writeln;
  114.    write('Year: '); read(y); writeln;
  115.    write('Number of Days: '); read(days); writeln;
  116.    days_from(d, m, y, days, dx, mx, yx);
  117.    writeln('Output Date(month day year) : ', mx,' ', dx,' ', yx);
  118.    writeln;
  119. until false;
  120. end.
  121. }