home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / date-33.087.lha / Date-33.087 / Amiga / M2 / txt / Date.def < prev    next >
Encoding:
Modula Definition  |  1994-04-13  |  4.9 KB  |  99 lines
  1.  DEFINITION MODULE Date;
  2.  
  3.  (*
  4.  (*$ StackChk       := FALSE *)
  5.  (*$ RangeChk       := FALSE *)
  6.  (*$ OverflowChk    := FALSE *)
  7.  (*$ NilChk         := FALSE *)
  8.  (*$ CaseChk        := FALSE *)
  9.  (*$ ReturnChk      := FALSE *)
  10.  (*$ LargeVars      := FALSE *)
  11.  (*$ EntryClear     := TRUE  *)
  12.  (*$ Volatile       := TRUE  *)
  13.  (*$ StackParms     := TRUE  *)
  14.  (*$ CStrings       := TRUE  *)
  15.  *)
  16.  
  17.  
  18.  TYPE
  19.     Weekdays    = (dayerr,
  20.                 monday,tuesday,wednesday,thursday,
  21.                         freiday,saturday,sunday);
  22.  
  23.  
  24.  PROCEDURE JulianLeapYear(year : INTEGER) : BOOLEAN;
  25.  PROCEDURE GregorianLeapYear(year : INTEGER) : BOOLEAN;
  26.  PROCEDURE HeisLeapYear(year : INTEGER) : BOOLEAN;
  27.  PROCEDURE JulianMonthDays(month : SHORTCARD; year : INTEGER) : SHORTCARD;
  28.  PROCEDURE GregorianMonthDays(month : SHORTCARD; year : INTEGER) : SHORTCARD;
  29.  PROCEDURE HeisMonthDays(month : SHORTCARD; year : INTEGER) : SHORTCARD;
  30.  PROCEDURE JulianYearDays(year : INTEGER) : CARDINAL;
  31.  PROCEDURE GregorianYearDays(year : INTEGER) : CARDINAL;
  32.  PROCEDURE HeisYearDays(year : INTEGER) : CARDINAL;
  33.  PROCEDURE JulianDaySmaller(day1,month1 : SHORTCARD; year1 : INTEGER;
  34.             day2,month2 : SHORTCARD; year2 : INTEGER) : BOOLEAN;
  35.  PROCEDURE GregorianDaySmaller(day1,month1 : SHORTCARD; year1 : INTEGER;
  36.             day2,month2 : SHORTCARD; year2 : INTEGER) : BOOLEAN;
  37.  PROCEDURE HeisDaySmaller(day1,month1 : SHORTCARD; year1 : INTEGER;
  38.             day2,month2 : SHORTCARD; year2 : INTEGER) : BOOLEAN;
  39.  PROCEDURE JulianDayGreater(day1,month1 : SHORTCARD; year1 : INTEGER;
  40.             day2,month2 : SHORTCARD; year2 : INTEGER) : BOOLEAN;
  41.  PROCEDURE GregorianDayGreater(day1,month1 : SHORTCARD; year1 : INTEGER;
  42.             day2,month2 : SHORTCARD; year2 : INTEGER) : BOOLEAN;
  43.  PROCEDURE HeisDayGreater(day1,month1 : SHORTCARD; year1 : INTEGER;
  44.             day2,month2 : SHORTCARD; year2 : INTEGER) : BOOLEAN;
  45.  PROCEDURE JulianDayDiff(day1,month1 : SHORTCARD; year1 : INTEGER;
  46.             day2,month2 : SHORTCARD; year2 : INTEGER) : LONGINT;
  47.  PROCEDURE GregorianDayDiff(day1,month1 : SHORTCARD; year1 : INTEGER;
  48.             day2,month2 : SHORTCARD; year2 : INTEGER) : LONGINT;
  49.  PROCEDURE HeisDayDiff(day1,month1 : SHORTCARD; year1 : INTEGER;
  50.             day2,month2 : SHORTCARD; year2 : INTEGER) : LONGINT;
  51.  PROCEDURE JulianWeekday(day,month : SHORTCARD; year : INTEGER) : Weekdays;
  52.  PROCEDURE GregorianWeekday(day,month : SHORTCARD; year : INTEGER) : Weekdays;
  53.  PROCEDURE HeisWeekday(day,month : SHORTCARD; year : INTEGER) : Weekdays;
  54.  PROCEDURE JulianDaysBeforeWeekday(day,month : SHORTCARD;
  55.             year : INTEGER; weekday : Weekdays) : SHORTCARD;
  56.  PROCEDURE GregorianDaysBeforeWeekday(day,month : SHORTCARD;
  57.             year : INTEGER; weekday : Weekdays) : SHORTCARD;
  58.  PROCEDURE HeisDaysBeforeWeekday(day,month : SHORTCARD;
  59.             year : INTEGER; weekday : Weekdays) : SHORTCARD;
  60.  PROCEDURE JulianDaysAfterWeekday(day,month : SHORTCARD;
  61.             year : INTEGER; weekday : Weekdays) : SHORTCARD;
  62.  PROCEDURE GregorianDaysAfterWeekday(day,month : SHORTCARD;
  63.             year : INTEGER; weekday : Weekdays) : SHORTCARD;
  64.  PROCEDURE HeisDaysAfterWeekday(day,month : SHORTCARD;
  65.             year : INTEGER; weekday : Weekdays) : SHORTCARD;
  66.  PROCEDURE JulianDiffDate(day,month : SHORTCARD;
  67.     year,days : INTEGER; VAR dday,dmonth : SHORTCARD; VAR dyear : INTEGER);
  68.  PROCEDURE GregorianDiffDate(day,month : SHORTCARD;
  69.     year,days : INTEGER; VAR dday,dmonth : SHORTCARD; VAR dyear : INTEGER);
  70.  PROCEDURE HeisDiffDate(day,month : SHORTCARD;
  71.     year,days : INTEGER; VAR dday,dmonth : SHORTCARD; VAR dyear : INTEGER);
  72.  PROCEDURE JYearToScaliger(year : INTEGER) : CARDINAL;
  73.  PROCEDURE GYearToScaliger(year : INTEGER) : CARDINAL;
  74.  PROCEDURE HYearToScaliger(year : INTEGER) : CARDINAL;
  75.  PROCEDURE ScaligerYearToJ(syear : CARDINAL) : INTEGER;
  76.  PROCEDURE ScaligerYearToG(syear : CARDINAL) : INTEGER;
  77.  PROCEDURE ScaligerYearToH(syear : CARDINAL) : INTEGER;
  78.  PROCEDURE JSYearToJD(syear : CARDINAL) : LONGCARD;
  79.  PROCEDURE GSYearToJD(syear : CARDINAL) : LONGCARD;
  80.  PROCEDURE HSYearToJD(syear : CARDINAL) : LONGCARD;
  81.  PROCEDURE JDtoMJD(jd : LONGCARD) : LONGCARD;
  82.  PROCEDURE MJDtoJD(mjd : LONGCARD) : LONGCARD;
  83.  PROCEDURE JulianToJD(day,month : SHORTCARD; year : INTEGER) : LONGCARD;
  84.  PROCEDURE GregorianToJD(day,month : SHORTCARD; year : INTEGER) : LONGCARD;
  85.  PROCEDURE HeisToJD(day,month : SHORTCARD; year : INTEGER) : LONGCARD;
  86.  PROCEDURE TimeToJD(hour,min,sec : SHORTCARD) : REAL;
  87.  PROCEDURE JDToTime(jd : REAL; VAR rhour,rmin,rsec : SHORTCARD);
  88.  PROCEDURE GregorianMoonAge(day,month : SHORTCARD; year : INTEGER) : SHORTCARD;
  89.  PROCEDURE GregorianEaster(year : INTEGER; VAR dday,dmonth : SHORTCARD);
  90.  PROCEDURE TimeZoneFactor(degree : SHORTINT) : SHORTINT;
  91.  PROCEDURE LMT(secs : LONGCARD; meridiandegree, posdegree : REAL) : LONGINT;
  92.  PROCEDURE TimeToSec(hour,min,sec : SHORTCARD) : LONGCARD;
  93.  PROCEDURE SecToTime(secs : LONGCARD; VAR hour,min,sec : SHORTCARD);
  94.  PROCEDURE JulianWeek(day,month : SHORTCARD; year : INTEGER) : SHORTCARD;
  95.  PROCEDURE GregorianWeek(day,month : SHORTCARD; year : INTEGER) : SHORTCARD;
  96.  PROCEDURE HeisWeek(day,month : SHORTCARD; year : INTEGER) : SHORTCARD;
  97.  
  98.  END Date.
  99.