uses System.SysUtils, System.DateUtils;
var
NowValue: TDateTime;
begin
NowValue := Now;
WriteLn(DateTimeToStr(NowValue));
WriteLn('year is ', YearOf(NowValue));
WriteLn('month is ', MonthOf(NowValue));
WriteLn('day is ', DayOf(NowValue));
WriteLn('hour is ', HourOf(NowValue));
WriteLn('minute is ', MinuteOf(NowValue));
WriteLn('second is ', SecondOf(NowValue));
//1 is Monday, 7 is Sunday
WriteLn('dayOfWeek is ',
DayOfTheWeek(NowValue));
end.