home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / CALDAT.DEM < prev    next >
Encoding:
Text File  |  1991-04-29  |  1.1 KB  |  43 lines
  1. PROGRAM d1r4(input,output,dfile);
  2. (* driver for routine CALDAT *)
  3. TYPE
  4.    month = PACKED ARRAY [1..10] OF char;
  5. VAR
  6.    i,id,idd,im,imm,iy,iyy,j,n : integer;
  7.    name : ARRAY [1..12] OF month;
  8.    dfile : text;
  9.  
  10. (*$I MODFILE.PAS *)
  11. (*$I JULDAY.PAS *)
  12.  
  13. (*$I CALDAT.PAS *)
  14.  
  15. BEGIN
  16. (* check whether caldat properly undoes the operation of julday *)
  17.    name[1] := 'january   ';
  18.    name[2] := 'february  ';
  19.    name[3] := 'march     ';
  20.    name[4] := 'april     ';
  21.    name[5] := 'may       ';
  22.    name[6] := 'june      ';
  23.    name[7] := 'july      ';
  24.    name[8] := 'august    ';
  25.    name[9] := 'september ';
  26.    name[10] := 'october   ';
  27.    name[11] := 'november  ';
  28.    name[12] := 'december  ';
  29.    glopen(dfile,'dates1.dat');
  30.    readln(dfile);
  31.    readln(dfile,n);
  32.    writeln;
  33.    writeln('original date:','reconstructed date:':43);
  34.    writeln('month':5,'day':8,'year':6,'julian day':15,
  35.       'month':9,'day':8,'year':6);
  36.    FOR i := 1 to n DO BEGIN
  37.       readln(dfile,im,id,iy);
  38.       j := julday(im,id,iy);
  39.       caldat(j,imm,idd,iyy);
  40.       writeln(name[im],id:3,iy:6,j:13,name[imm]:16,idd:3,iyy:6)
  41.    END
  42. END.
  43.