|
Как взять секунды:
procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);
function YearOf(const AValue: TDateTime): Word; //возвращает год
function MonthOf(const AValue: TDateTime): Word; //возвращает месяц
function WeekOf(const AValue: TDateTime): Word; //возвращает неделю
function DayOf(const AValue: TDateTime): Word; //возвращает день
function HourOf(const AValue: TDateTime): Word; //возвращает час
function MinuteOf(const AValue: TDateTime): Word; //возвращает минуту
function SecondOf(const AValue: TDateTime): Word; //возвращает секунду
function MilliSecondOf(const AValue: TDateTime): Word; //возвращает милисекунду
все эти ф-ии из DateUtils...
|