home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / DATETIME.VAR < prev    next >
Encoding:
Text File  |  1985-12-21  |  986 b   |  23 lines
  1. CONST
  2.       WeekDayNames     : Week_Day_Name = ('SUNDAY','MONDAY','TUESDAY','WEDENSDAY','THURSDAY','FRIDAY','SATURDAY');
  3.       MonthNames       : Month_Name = ('JANUARY','FEBUARY','MARCH','APRILL','MAY','JUNE',
  4.                                       'JULY','AUGUST','SEPTEMBER','OCTOBER','NOVEMBER','DECEMBER');
  5.       MaxDaysPerMonth  : Max_Day_Number = ( 31 , 28 , 31 , 30 , 31 , 30 , 31 , 31 , 30 , 31 , 30 , 31 ) ;
  6.  
  7. VAR
  8.        Cur_Date_Time   : Date_Time_Rec ;
  9.        CurHundredth    : Hundredths ;
  10.        CurSecond       : Second_Number ;
  11.        CurMinute       : Minute_Number ;
  12.        CurHour         : Hour_Number ;
  13.        CurDayNum       : day_Number ;
  14.        CurWeekDayNum   : Week_Day_Number ;
  15.        CurWeekDayNam   : Paragraph ;
  16.        CurMonthNum     : month_number ;
  17.        CurMonthNam     : Paragraph ;
  18.        CurYearNum      : Year_Number ;
  19.        CurJulianNum    : Julian_Number ;
  20.        CurAbsDayNum    : REAL ;
  21.        CurDate0        : Date0 ;
  22.  
  23.