[Delphi]日付チェック　SysUtils.TryEncodeDate – パソコン・スマホの覚え書き

※全てのDelphi(楽天市場で探す・ amazonで探す)で動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

指定した年・月・日から日付型の値を求めるサンプルです。

var
    w_date: TDateTime;
begin

    if SysUtils.TryEncodeDate(2016, 3, 3, w_date) then begin
        MessageDlg('日付です', mtInformation, [mbOK], 0);

    end;

    if SysUtils.TryEncodeDate(2016, 3, 32, w_date) = False then begin
        MessageDlg('日付ではありません', mtWarning, [mbOK], 0);
 

    end;

下記はヘルプからの引用です
構文

function TryEncodeDate(Year: Word; Month: Word; Day: Word; out Date: TDateTime): Boolean;

指定された Year，Month，および Day を表す TDateTime 値を返します。

Date パラメータは，TryEncodeDate が true を返す場合，生成された値を返します。

指定された値が範囲内にない場合，TryEncodeDate は false を返します。