home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2src / easter.mod < prev    next >
Text File  |  1996-01-28  |  1KB  |  45 lines
  1. (* PROGRAM NAME : Feest
  2. AUTHOR : Johan terryn 
  3. COPYRIGHT (C) 1995 BY XINIX
  4. ────────────────────────────────────────────────────────────────────────────
  5. CREATED : 27/01/1996 
  6. REVISION : 1.0 LAST REVISED :   
  7. BY : Johan terryn
  8. ────────────────────────────────────────────────────────────────────────────
  9. ───────────────────────────ALL RIGHTS RESERVED──────────────────────────────
  10. *)
  11. MODULE EAster;
  12. FROM InOut IMPORT WriteString,WriteLn;
  13. FROM DateFunctions IMPORT Easter, Date2String, ToDay, DateFormat, SetDateFormat;
  14. VAR Pasen : ARRAY[0..15] OF CHAR;
  15.     Format,F : DateFormat;
  16. BEGIN
  17.  Format := SetDateFormat(ANSI);
  18.  Date2String(ToDay(),Pasen);
  19.  WriteString(Pasen);WriteLn;
  20.  Date2String(Easter(1995),Pasen);
  21.  WriteString(Pasen);WriteLn;
  22.  Date2String(Easter(1996),Pasen);
  23.  WriteString(Pasen);WriteLn;
  24.  Date2String(Easter(1997),Pasen);
  25.  WriteString(Pasen);WriteLn;
  26.  F := SetDateFormat(US);
  27.  Date2String(ToDay(),Pasen);
  28.  WriteString(Pasen);WriteLn;
  29.  Date2String(Easter(1995),Pasen);
  30.  WriteString(Pasen);WriteLn;
  31.  Date2String(Easter(1996),Pasen);
  32.  WriteString(Pasen);WriteLn;
  33.  Date2String(Easter(1997),Pasen);
  34.  WriteString(Pasen);WriteLn;
  35.  F :=  SetDateFormat(Format);
  36.  Date2String(ToDay(),Pasen);
  37.  WriteString(Pasen);WriteLn;
  38.  Date2String(Easter(1995),Pasen);
  39.  WriteString(Pasen);WriteLn;
  40.  Date2String(Easter(1996),Pasen);
  41.  WriteString(Pasen);WriteLn;
  42.  Date2String(Easter(1997),Pasen);
  43.  WriteString(Pasen);WriteLn;
  44.  
  45. END EAster.