home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / mar94 / util / misc / kalender.lha / Kalender / txt / Datum.def < prev    next >
Text File  |  1993-12-18  |  2KB  |  60 lines
  1.  DEFINITION MODULE Datum; (* Copyright 1993 by Kai Hofmann *)
  2.  
  3.  (*$ StackChk    := FALSE *)
  4.  (*$ RangeChk    := FALSE *)
  5.  (*$ OverflowChk := FALSE *)
  6.  (*$ NilChk      := FALSE *)
  7.  (*$ CaseChk     := FALSE *)
  8.  (*$ ReturnChk   := FALSE *)
  9.  (*$ LargeVars   := FALSE *)
  10.  (*$ EntryClear  := TRUE  *)
  11.  (*$ Volatile    := TRUE  *)
  12.  (*$ StackParms  := TRUE  *)
  13.  (*$ CStrings    := TRUE  *)
  14.  
  15.  
  16.  TYPE
  17.     wtstring = ARRAY [1..10] OF CHAR; (* Type für wochentag *)
  18.     datestr  = ARRAY [1..11] OF CHAR; (* Type für Datum als string *)
  19.  
  20.  
  21.  PROCEDURE Schaltjahr(Jahr : CARDINAL) : BOOLEAN;
  22.             (* Ermittelt, ob Jahr ein Schaltjahr ist      *)
  23.  
  24.  PROCEDURE maxDays(Monat : SHORTCARD; Jahr : CARDINAL) : SHORTCARD;
  25.             (* Ergibt die Anzahl von Tagen, die ein Monat hat
  26.                (unter Berücksichtigung von Schaltjahr).      *)
  27.  
  28.  PROCEDURE Weekday (Tag,Monat : SHORTCARD; Jahr : CARDINAL) : SHORTCARD;
  29.             (* Ermittelt den Wochentag von t,m,j (1 = Monatg) *)
  30.  
  31.  PROCEDURE GetDate (VAR Wochentag,Tag,Monat : SHORTCARD; VAR Jahr : CARDINAL);
  32.             (* Holt das Aktuelle Datum des Systems          *)
  33.  
  34.  PROCEDURE GetTime (VAR Stunde,Minute,Sekunde : SHORTCARD);
  35.             (* Holt die Aktuelle Uhrzeit des Systems      *)
  36.  
  37.  PROCEDURE tagdiff(tag1,monat1 : SHORTCARD; jahr1 : CARDINAL; tag2,monat2 : SHORTCARD; jahr2 : CARDINAL) : INTEGER;
  38.             (* Berechnet die Differenz zwischen zwei Daten
  39.                (Wenn Datum1 > Datum2, dann ist das Ergebnis
  40.                 Negativ).                      *)
  41.  
  42.  PROCEDURE wochentag(Tag : SHORTCARD; VAR string : wtstring;
  43.                             Sprache : SHORTCARD) : SHORTCARD;
  44.             (* Gibt den Wochentag von Weekday als String
  45.                (wtstring) in Sprache zurück.
  46.                Rückgabewert: max. mögliche Stringlänge  *)
  47.  
  48.  PROCEDURE GetWeek(Tag,Monat : SHORTCARD; Jahr : CARDINAL) : SHORTCARD;
  49.             (* Holt die Wochennummer *)
  50.  
  51.  PROCEDURE FormatDate(Tag,Monat : SHORTCARD; Jahr : CARDINAL; VAR datum : datestr);
  52.              (* Wandelt Datum in String *)
  53.  
  54.  PROCEDURE monat(Monat : SHORTCARD; VAR string : wtstring;
  55.                             Sprache : SHORTCARD) : SHORTCARD;
  56.         (* Gibt den Monat als String (wtstring) in Sprache zurück
  57.            Rückgabewert: max. mögliche Stringlänge          *)
  58.  
  59.  END Datum.
  60.