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