home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pstoolbx / h_kal.int < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.3 KB  |  33 lines
  1. UNIT H_Kal;
  2. {$X+,F+,O+,D-,L-,R-,B-}
  3. INTERFACE
  4.  
  5. USES Objects, dos, KalDef, G_Kal, J_Kal;
  6.  
  7. TYPE
  8.   PHeb_Kal = ^Heb_Kal;
  9.   Heb_Kal = OBJECT(Kalendarium)
  10.     PROCEDURE InitSpecials; VIRTUAL;
  11.     PROCEDURE InitDate; VIRTUAL;
  12.     FUNCTION Monatname(m,j: INTEGER): STRING;           VIRTUAL;
  13.     FUNCTION Anz_Tage(m,j: INTEGER): BYTE;              VIRTUAL;
  14.     PROCEDURE Ermittle_Datum(nr: INTEGER; VAR t,m: INTEGER; j: INTEGER); VIRTUAL;
  15.     FUNCTION FirstJ:   INTEGER; VIRTUAL;
  16.     FUNCTION LastJ:    INTEGER; VIRTUAL;
  17.     FUNCTION FirstJD:  LongInt; VIRTUAL;
  18.     FUNCTION LastJD:   LongInt; VIRTUAL;
  19.     FUNCTION Schaltjahr(j: INTEGER): boolean;           VIRTUAL;
  20.     FUNCTION Date_JD(t,m,j: INTEGER): LongInt;          VIRTUAL;
  21.     PROCEDURE JD_Date(jd: LongInt; VAR t,m,j: INTEGER); VIRTUAL;
  22.     FUNCTION Tag_im_Jahr(t,m,j: INTEGER): INTEGER;      VIRTUAL;
  23.     PROCEDURE Get_MoonMonth(mm,mj: INTEGER; VAR Mond: MondMonat); VIRTUAL;
  24.     FUNCTION Ostern(j: INTEGER): INTEGER;               VIRTUAL;
  25.     FUNCTION Advent(j: INTEGER): INTEGER;               VIRTUAL;
  26.     FUNCTION GetFtDayNumber(Tab: Feiertagstabelle;j: INTEGER): INTEGER; VIRTUAL;
  27.     FUNCTION Anz_Monate(j: INTEGER): BYTE;              VIRTUAL;
  28.     FUNCTION MakeMonat(VAR s: STRING40): INTEGER;       VIRTUAL;
  29.   END;
  30.  
  31. IMPLEMENTATION
  32.  
  33.