Topspeed_JPI/TS/REP16/DATEFUNC.DEF

DEFINITION MODULE DateFunctions;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/datefunc.dev   1.4   30 Dec 1990 17:59:24   coleb  $
 *
 *)


CONST
  MinYear = 0;
  MaxYear = 2050;

TYPE
  Date = RECORD
    yr: CARDINAL;
    mo: CARDINAL;
    day: CARDINAL;
  END;
  Comparison =(DateLess,DateEqual,DateGreater);

  PROCEDURE DateToStr(d: Date; VAR s: ARRAY OF
      CHAR; VAR OK: BOOLEAN);

  PROCEDURE CompareDates(d1, d2: Date): Comparison;

  PROCEDURE StrToDate(s: ARRAY OF CHAR; VAR d:
      Date; VAR OK: BOOLEAN);

  PROCEDURE StrToDate2( DateStr: ARRAY OF CHAR;
      EuropeanStyle: BOOLEAN; VAR day, month,
      year: CARDINAL ): BOOLEAN;

  PROCEDURE Day(d: Date): CARDINAL;

  PROCEDURE DayOfWeek(d: Date; VAR weekday: ARRAY
      OF CHAR);

  PROCEDURE Month(d: Date): CARDINAL;

  PROCEDURE CalendarMonth(d: Date; VAR cmonth:
      ARRAY OF CHAR);

  PROCEDURE Year(d: Date): CARDINAL;

  PROCEDURE DateToWritten(d: Date; VAR written:
      ARRAY OF CHAR);

  PROCEDURE DatePlusDays(VAR d: Date; days:
      CARDINAL; VAR OK: BOOLEAN);

  PROCEDURE ValidDate(d: Date): BOOLEAN;

  PROCEDURE DaysSince1900(d: Date): CARDINAL;

  PROCEDURE DayOfYear(d:Date): CARDINAL;

  PROCEDURE CardToDate(n: CARDINAL; VAR d: Date);

  PROCEDURE DateDiff(d1, d2: Date): CARDINAL;

  PROCEDURE Init();

END DateFunctions.