home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pstoolbx / g_kal.int < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.2 KB  |  31 lines

  1. UNIT G_Kal;
  2. {$X+,F+,O+,D-,L-,R-,B-}
  3. INTERFACE
  4.  
  5. USES Dos, KalDef;
  6.  
  7. TYPE
  8.  
  9.   PGreg_Kal = ^Greg_Kal;
  10.   Greg_Kal = OBJECT(Kalendarium)
  11.     CONSTRUCTOR Load(Name: PathStr);
  12.     PROCEDURE JD_Date(jd: LongInt; VAR t,m,j: INTEGER); VIRTUAL;
  13.     FUNCTION Date_JD(t,m,j: INTEGER): LongInt;          VIRTUAL;
  14.     FUNCTION FirstJ: INTEGER;                           VIRTUAL;
  15.     FUNCTION LastJ: INTEGER;                            VIRTUAL;
  16.     FUNCTION FirstJD: LongInt;                          VIRTUAL;
  17.     FUNCTION LastJD: LongInt;                           VIRTUAL;
  18.     FUNCTION Anz_Tage(m,j: INTEGER): BYTE;              VIRTUAL;
  19.     FUNCTION Schaltjahr(j: INTEGER): BOOLEAN;           VIRTUAL;
  20.     FUNCTION Goldene_Zahl(j: INTEGER): BYTE;            VIRTUAL;
  21.     FUNCTION Kal_Wo(t,m,j: INTEGER): BYTE;              VIRTUAL;
  22.     FUNCTION Ostern(j: INTEGER): INTEGER;               VIRTUAL;
  23.     FUNCTION Advent(j: INTEGER): INTEGER;               VIRTUAL;
  24.     PROCEDURE Ermittle_Datum(nr: INTEGER; VAR t,m: INTEGER; j: INTEGER); VIRTUAL;
  25.     FUNCTION GetFtDayNumber(Tab: Feiertagstabelle;j: INTEGER): INTEGER; VIRTUAL;
  26.   END;
  27.  
  28. IMPLEMENTATION
  29.  
  30. USES Tabellen;
  31.