Class TbhDate (unit bhDate)

Inherits from

TMaskEdit

Constructors


constructor Create(AOwner : TComponent);



Functions

function DateIsValid(dstr : string) : boolean;


function GetDateAsDate : TDateTime;


function GetDateAsJulianDate : JulianDate;


function GetDateAsString : string;


procedure SetDateByDate(const Value : TDateTime);

21/12/97.

procedure SetDateByJulianDate(const Value : JulianDate);

Extra pre-caution.

function SetDateByString(const Value : string) : boolean;


procedure KeyPress(var Key: Char);


procedure CMEnter(var Msg: TCMEnter);

try

procedure CMExit(var Msg: TCMExit);


Properties

Events

Variables


Constructors


constructor Create(AOwner : TComponent);


Functions


function DateIsValid(dstr : string) : boolean;


function GetDateAsDate : TDateTime;


function GetDateAsJulianDate : JulianDate;


function GetDateAsString : string;


procedure SetDateByDate(const Value : TDateTime);

21/12/97. Value is supposed to always contain a valid date. The value that constant input variable Value contains should always be defined by the Delphi StrToDate function.


procedure SetDateByJulianDate(const Value : JulianDate);

Extra pre-caution.


function SetDateByString(const Value : string) : boolean;


procedure KeyPress(var Key: Char);


procedure CMEnter(var Msg: TCMEnter);

try


procedure CMExit(var Msg: TCMExit);


Properties


Events


Variables