[年／月／日・時／分／秒・曜日を取得する]

現在の日時から年／月／日・時／分／秒・曜日を取得します。

program tips0035;
{$APPTYPE CONSOLE}
uses SysUtils,DateUtils;
const WeekName  : array [0..6] of string  = ('日''','月''','火','水''','木','金''','土'); 
begin
 WriteLn('現在の日付と時刻は ',DateTimeToStr(now));
 WriteLn('現在の年は ',IntToStr(YearOf(Now)));
 WriteLn('現在の月は ',IntToStr(MonthOf(Now)));
 WriteLn('現在の日は ',IntToStr(DayOf(Now)));
 WriteLn('現在の時は ',IntToStr(HourOf(Now)));
 WriteLn('現在の分は ',IntToStr(MinuteOf(Now)));
 WriteLn('現在の秒は ',IntToStr(SecondOf(Now)));
 WriteLn('現在の曜日は ',WeekName[DayOfWeek(Now) - 1]);
end.

dcc32 tips0035.pas 
tips0035.exe  > tips0035.txt
pause

現在の日付と時刻は 2009/06/29 20:03:26
現在の年は 2009
現在の月は 6
現在の日は 29
現在の時は 20
現在の分は 3
現在の秒は 26
現在の曜日は 月