home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
mod201j.zip
/
modula2.exe
/
os2src
/
datefunc.def
< prev
next >
Wrap
Text File
|
1996-01-28
|
2KB
|
65 lines
(* PROGRAM NAME : Date functions
* AUTHOR : Johan terryn
* COPYRIGHT (C) 1995 BY XINIX
* ────────────────────────────────────────────────────────────────────────────
* CREATED : 28/12/1995 *)
DEFINITION MODULE DateFunctions;
TYPE DATE = RECORD
day, month, year : CARDINAL;
END;
TYPE DateFormat = (EURO, ISO, US, ANSI);
VAR done : BOOLEAN;
PROCEDURE SetDateFormat(NewFormat: DateFormat) : DateFormat;
(*****************)
PROCEDURE ToDay() : DATE;
(*****************)
PROCEDURE Leapyear(year : CARDINAL) : BOOLEAN;
(*****************)
(* OK 28/12/1995 *)
PROCEDURE ValidDate(date : DATE) : BOOLEAN;
(*****************)
(* 25/12/1995 verified, tested and OK *)
PROCEDURE LeapDays(FromYear,ToYear: CARDINAL):CARDINAL;
(*****************)
(* tested 31/12/1995 *)
PROCEDURE Date2Num(date: DATE):LONGCARD;
(*****************)
(* tested 31/12/1995 *)
PROCEDURE Num2Date(num : LONGCARD):DATE;
(*****************)
(* tested 31/12/1995 *)
PROCEDURE DayOfWeek(date : DATE) : CARDINAL;
(*****************)
(*25/12/1995 returns day of the week as a number, ISO (monday = 1, sunday = 7) verified , tested and OK valid from 01/01/1583*)
PROCEDURE Easter(Year : CARDINAL) : DATE;
(***************)
(* tested and OK *)
(*Easter : Spencer Jones in General Astronomy (pg 73-74) Ed 1922
* Journal of the British Astronomical Association Vol. 88, pg. 91 (dec 1977)
* From original dated 1876 Butcher's Eclesiastical Calendar.
* No exceptions, valid from 1583 *)
PROCEDURE DiffDates(date1, date2 : DATE):LONGINT;
(******************)
PROCEDURE AddDays(VAR date:DATE; days : LONGINT);
(****************)
PROCEDURE Date2String(date :DATE; VAR Datum : ARRAY OF CHAR);
(********************)
END DateFunctions.