home *** CD-ROM | disk | FTP | other *** search
- UNIT f_kal;
- {$X+,F+,O+,D-,L-,R-,B-}
- INTERFACE
-
- USES dos, KalDef, G_Kal;
-
- TYPE
-
- PFranz_Kal = ^Franz_Kal;
- Franz_Kal = OBJECT(Kalendarium)
- PROCEDURE InitSpecials; VIRTUAL;
- PROCEDURE InitDate; VIRTUAL;
- FUNCTION Ermittle_Wochentagnummer(t,m,j: INTEGER): BYTE; VIRTUAL;
- FUNCTION Anz_Tage(m,j: INTEGER): BYTE; VIRTUAL;
- PROCEDURE Ermittle_Datum(nr: INTEGER; VAR t,m: INTEGER; j: INTEGER); VIRTUAL;
- FUNCTION FirstJ: INTEGER; VIRTUAL;
- FUNCTION LastJ: INTEGER; VIRTUAL;
- FUNCTION FirstJD: LongInt; VIRTUAL;
- FUNCTION LastJD: LongInt; VIRTUAL;
- FUNCTION SchaltJahr(j: INTEGER): BOOLEAN; VIRTUAL;
- FUNCTION Date_JD(t,m,j: INTEGER): LongInt; VIRTUAL;
- PROCEDURE JD_Date(jd: LongInt; VAR t,m,j: INTEGER); VIRTUAL;
- FUNCTION Ostern(j: INTEGER): INTEGER; VIRTUAL;
- FUNCTION Advent(j: INTEGER): INTEGER; VIRTUAL;
- FUNCTION Tag_im_Jahr(t,m,j: INTEGER): INTEGER; VIRTUAL;
- FUNCTION GetFtDayNumber(Tab: Feiertagstabelle;j: INTEGER): INTEGER; VIRTUAL;
- PROCEDURE Get_MoonMonth(mm,mj: INTEGER; VAR Mond: MondMonat); VIRTUAL;
- END;
-
- IMPLEMENTATION
-