home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pstoolbx / m_kal.int < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.8 KB  |  46 lines
  1. UNIT M_Kal;
  2.  
  3. {$F+,O+,X+,D-,L-,R-,B-}
  4.  
  5. INTERFACE
  6.  
  7. USES dos,KalDef, G_Kal, J_Kal;
  8.  
  9. TYPE
  10.  
  11. { astronomischer moslemischer Kalender }
  12. PMohamKal = ^MohamKal;
  13. { Die Bezeichnung MohamKal stammt noch aus der Zeit, als ich nicht }
  14. { wußte, daß "Mohammedaner" ein Schimpfwort für Moslems ist.       }
  15. MohamKal = OBJECT(Greg_Kal)
  16.   Gregorian: Greg_Kal;
  17.   Julian: Jul_Kal;
  18.   PROCEDURE InitSpecials; VIRTUAL;
  19.   PROCEDURE InitDate;                                        VIRTUAL;
  20.   FUNCTION Anz_Tage(m,j: INTEGER): BYTE;                     VIRTUAL;
  21.   PROCEDURE Ermittle_Datum(nr: INTEGER; VAR t,m: INTEGER; j: INTEGER); VIRTUAL;
  22.   FUNCTION FirstJ:  INTEGER;                                 VIRTUAL;
  23.   FUNCTION LastJ:   INTEGER;                                 VIRTUAL;
  24.   FUNCTION FirstJD: LongInt;                                 VIRTUAL;
  25.   FUNCTION LastJD:  LongInt;                                 VIRTUAL;
  26.   FUNCTION Schaltjahr(j: INTEGER): boolean;                  VIRTUAL;
  27.   FUNCTION Date_JD(t,m,j: INTEGER): LongInt;                 VIRTUAL;
  28.   PROCEDURE JD_Date(jd: LongInt; VAR t,m,j: INTEGER);        VIRTUAL;
  29.   FUNCTION Tag_im_Jahr(t,m,j: INTEGER): INTEGER;             VIRTUAL;
  30.   FUNCTION GetFtDayNumber(Tab: Feiertagstabelle;j: INTEGER): INTEGER; VIRTUAL;
  31.   FUNCTION Ostern(j: INTEGER): INTEGER;                      VIRTUAL;
  32.   FUNCTION Advent(j: INTEGER): INTEGER;                      VIRTUAL;
  33. END;
  34.  
  35. { Nicht-astronomischer moslemischer Kalender }
  36. PMKal2 = ^MKal2;
  37. MKal2 = OBJECT(MohamKal)
  38.   PROCEDURE InitSpecials;                                    VIRTUAL;
  39.   FUNCTION Date_JD(t,m,j: INTEGER): LongInt;                 VIRTUAL;
  40.   PROCEDURE JD_Date(jd: LongInt; VAR t,m,j: INTEGER);        VIRTUAL;
  41.   FUNCTION Schaltjahr(j: INTEGER): boolean;                  VIRTUAL;
  42. END;
  43.  
  44. IMPLEMENTATION
  45.  
  46.