home *** CD-ROM | disk | FTP | other *** search
- UNIT G_Kal;
- {$X+,F+,O+,D-,L-,R-,B-}
- INTERFACE
-
- USES Dos, KalDef;
-
- TYPE
-
- PGreg_Kal = ^Greg_Kal;
- Greg_Kal = OBJECT(Kalendarium)
- CONSTRUCTOR Load(Name: PathStr);
- PROCEDURE JD_Date(jd: LongInt; VAR t,m,j: INTEGER); VIRTUAL;
- FUNCTION Date_JD(t,m,j: INTEGER): LongInt; VIRTUAL;
- FUNCTION FirstJ: INTEGER; VIRTUAL;
- FUNCTION LastJ: INTEGER; VIRTUAL;
- FUNCTION FirstJD: LongInt; VIRTUAL;
- FUNCTION LastJD: LongInt; VIRTUAL;
- FUNCTION Anz_Tage(m,j: INTEGER): BYTE; VIRTUAL;
- FUNCTION Schaltjahr(j: INTEGER): BOOLEAN; VIRTUAL;
- FUNCTION Goldene_Zahl(j: INTEGER): BYTE; VIRTUAL;
- FUNCTION Kal_Wo(t,m,j: INTEGER): BYTE; VIRTUAL;
- FUNCTION Ostern(j: INTEGER): INTEGER; VIRTUAL;
- FUNCTION Advent(j: INTEGER): INTEGER; VIRTUAL;
- PROCEDURE Ermittle_Datum(nr: INTEGER; VAR t,m: INTEGER; j: INTEGER); VIRTUAL;
- FUNCTION GetFtDayNumber(Tab: Feiertagstabelle;j: INTEGER): INTEGER; VIRTUAL;
- END;
-
- IMPLEMENTATION
-
- USES Tabellen;
-