[文字列・数値を日時に変換する]

文字列および数値を日時に変換します。
おまけで、0, 1000, 0.1, 0.5 を日時に変換しています。
【ソースコード】 [tips0036.pas]
program tips0036;
{$APPTYPE CONSOLE}
uses SysUtils;
begin
 WriteLn('◆文字列を日時に変換');
 WriteLn(DateTimeToStr(strToDateTime('2009/1/3 00:01:13')));
 WriteLn(DateToStr(strToDate('2009/1/3')));
 WriteLn(TimeToStr(strToTime('00:01:13')));
 WriteLn('◆数値を日時に変換');
 WriteLn(DateTimeToStr(strToDateTime(IntToStr(2009)+'/'+IntToStr(1)+'/'+IntToStr(3)+' '+IntToStr(0)+':'+IntToStr(1)+':'+IntToStr(13))));
 WriteLn(DateToStr(strToDate(IntToStr(2005)+'/'+IntToStr(1)+'/'+IntToStr(3))));
 WriteLn(TimeToStr(strToTime(IntToStr(0)+':'+IntToStr(1)+':'+IntToStr(13))));
 WriteLn('◆おまけ');        
 WriteLn(DateTimeToStr(0));   //おまけ
 WriteLn(DateTimeToStr(1000)); //おまけ
 WriteLn(TimeToStr(0.1));     //おまけ
 WriteLn(TimeToStr(0.5));     //おまけ
end.
【コンパイル&実行】 [tips0036.bat]
dcc32 tips0036.pas 
tips0036.exe  > tips0036.txt
pause
【実行結果】 [tips0036.txt]
◆文字列を日時に変換
2009/01/03 0:01:13
2009/01/03
0:01:13
◆数値を日時に変換
2009/01/03 0:01:13
2005/01/03
0:01:13
◆おまけ
1899/12/30
1902/09/26
2:24:00
12:00:00