Unit DtFunc97

Classes

Functions

DaysInMonth - ******************** Days In Month ********************* ***** This function returns the number of days in ***** ***** the month specified in nMonth.
GetFirstOfMonth - **************** Get First Of Month ******************** ***** This function returns the first day ***** ***** of the current month.
InfoDate - ******************** Info Date ************************* ***** Display a date ***** ***** in standard debug window.
InfoDebug - ***************************************************************************** Misc.
IsLeapYear - ******************** Is Leap Year ********************** ***** This function returns true if current year ***** ***** is a leap year.

Types

Constants

Variables


Functions


function DaysInMonth (aDate: tDateTime): Integer;

******************** Days In Month ********************* ***** This function returns the number of days in ***** ***** the month specified in nMonth. *****

function GetFirstOfMonth (aDate: tDateTime): tDateTime;

**************** Get First Of Month ******************** ***** This function returns the first day ***** ***** of the current month. *****

procedure InfoDate (aDate : tDateTime);

******************** Info Date ************************* ***** Display a date ***** ***** in standard debug window. *****

procedure InfoDebug (aStr : String);

***************************************************************************** Misc. functions for TDateEdit97 Author name=BOURMAD Mehdi Author E-mail=bourmad@mygale.org Author URL=www.mygale.org/~bourmad

******************** Info Debug ************************ ***** Display a text (string) ***** ***** in standard debug window. *****


function IsLeapYear (aDate: tDateTime) : Boolean;

******************** Is Leap Year ********************** ***** This function returns true if current year ***** ***** is a leap year. *****

Types


Constants


Variables