home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pstoolbx / j_kal.int < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.1 KB  |  34 lines
  1. UNIT J_Kal;
  2. {$X+,F+,O+,D-,L-,R-,B-}
  3. INTERFACE
  4.  
  5. USES dos, G_Kal;
  6.  
  7. TYPE
  8.  
  9. PJul_Kal = ^Jul_Kal;
  10. Jul_Kal = OBJECT(Greg_Kal)
  11.         PROCEDURE InitSpecials;                    VIRTUAL;
  12.         PROCEDURE InitDate;                        VIRTUAL;
  13.         FUNCTION Schaltjahr(j: INTEGER): boolean;  VIRTUAL;
  14.         FUNCTION Inc_Jahr(Count: INTEGER; VAR J: INTEGER): BOOLEAN; VIRTUAL;
  15.         FUNCTION Check_Year(j: INTEGER): BOOLEAN; VIRTUAL;
  16.         FUNCTION FirstJ:  INTEGER; VIRTUAL;
  17.         FUNCTION LastJ:   INTEGER; VIRTUAL;
  18.         FUNCTION FirstJD: LongInt; VIRTUAL;
  19.         FUNCTION LastJD:  LongInt; 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 GOLDENE_ZAHL(j: INTEGER): BYTE;            VIRTUAL;
  23.         FUNCTION OSTERN(j: INTEGER): INTEGER;               VIRTUAL;
  24.  
  25.         {Umwandlung von Julianischen in christliche Jahre u. umgekehrt}
  26.         FUNCTION a_Jul_a_Chr(jj: INTEGER): INTEGER;
  27.         FUNCTION a_Chr_a_Jul(JC: INTEGER): INTEGER;
  28.  
  29. END;
  30.  
  31. IMPLEMENTATION
  32.  
  33. USES KalDef, Tabellen;
  34.