+----------------------------------+
| D A T E |
| V 1.5 |
| David Gegenheimer |
+----------------------------------+
| Last Change Made : 06/25/1992 |
+----------------------------------+
This unit is given freely, as is. The author will not, and should not
be held responsible for any damages incurred by its use/misuse. The
use of this unit should happen only after the user has examined its code
and found that it meets his/her satisfaction. The author would really
appreciate hearing about any bugs in this unit that are found. However,
this unit cannot be modified and re-destributed by anyone except David
Gegenheimer. The reason being for this is mainly to protect myself. If
someone modifies the code for the worse, and sends it out - I get the
blame!.
On the brighter side! This code is free! Please Send no Money!
Use it in any program you like!
If you have found any bugs, please write me at the following address, &
tell me the bug, and what BBS you downloaded it from so that I can send
them an update! THANK YOU!
David Gegenheimer
600 Clayton Dr.
Houma, La. 70364
This unit allows for easy date manipulation via Julian Date conversion.
The routines and their parameters are as follows:
Function JulianDate (Day,Month,Year)
- Send it 3 Integers
- Returns a variable of type JDate
- Ex. AJDate := JulianDate (1,1,1992); (AJDate = 2448622)
Procedure CalendarDate (AJDate,Day,Month,Year)
- Send it a Julian Date, and 3 Integers
- Returns the Day,Month, & Year contained in the Julian Date
- Ex. CalendarDate (2448622,Day,Month,Year); (1/1/92)
Function DayOfTheWeek (AJDate)
- Send it a Julian Date
- Returns an integer representing the Day of the Week
- (1 = Sunday, 2 = Monday, ... 6 = Friday, 7 = Saturday)
- Ex. TheDayOfTheWeek := DayOfTheWeek (A_Julian_Date);
Function MonthAbrv (Month,Full)
- Send it an Integer and a Boolean variable
- Returns a String containing the month's name
- If Full is TRUE then the full months name is returned
- If Full is FALSE then a 3 character abbreviation is returned
- Ex. Mnth_Name := MonthAbrv (1,True); (Mnth_Name = 'January')
- Ex. Mnth_Name := MonthAbrv (1,False); (Mnth_Name = 'Jan');
Function ValidDate (Day,Month,Year)
- Send it 3 Integers
- Returns TRUE if a valid date or FALSE if an Invalid date
- Ex. GoodDate := ValidDate (2,31,1992); (GoodDate = False)
- Ex. GoodDate := ValidDate (1,30,1992); (GoodDate = True)
Procedure DrawCalendar (X,Y,Day,Month,Year,TopColor,BotColor,HiColor);
- Send it 6 Integers
- X,Y is the Upperleft corner of the calendar to be printed
- Day if not 0 will be Hilighted on the calendar;
- Month and Year describe the contents of the calendar
- TopColor is in the format: BackGround*16+ForeGround
- BotColor is in the format: BackGround*16+ForeGround
- HiColor is in the format: BackGround*16+ForeGround
- Ex. DrawCalendar (35,10,1,1,1992,Red*16+Yellow,Blue*16+White)
- Result is: January , 1992 <-- Yellow on Red
Su M T W H F Sa <-- Yellow on Red
1 2 3 4 <-- White on Blue
5 6 7 8 9 10 11 .
12 13 14 15 16 17 18 .
19 20 21 22 23 24 25 .
26 27 28 29 30 31 <-- White on Blue
Note: This Chart appears at X = 35, Y= 10
Procedure DateToStr
- Real Simple, send it the date, and tell it how you want it
Procedure StrToDate
- The reverse of DateToStr
Function DateToday
- Returns a ten character string containing todays date.
Function SDateCompare
- Send it two string dates.
- It returns -1 if Date1 is Before Date2
0 if Date1 is Date2
1 If Date1 is After Date2
Function SDateDiff
- Send it two string dates.
- It returns the difference in days between date1 and date2
- Note: The calculation is performed: Date1 - Date2.
|
