DecodeDateTime

Declaration

procedure DecodeDateTime(const AValue: TDateTime; out AYear: Word; out AMonth: Word; out ADay: Word; out AHour: Word; out AMinute: Word; out ASecond: Word; out AMilliSecond: Word);

Example

procedure OnMapEvent(var Value:Variant);
var lYear, lMonth, lDay, lHour, lMin, lSec, lMil : word;
begin
   DecodeDateTime(Now, lYear, lMonth, lDay, lHour, lMin, lSec, lMil); //break date/time into parts
if lDay=1 and lHour=13 then
 ...do something at this special time...
end;

Description

Returns the date AValue broken into its parts. The given parameters are populated with the parts of the date. You can then use the variables in your calculations.