[Delphi]日付チェック SysUtils.TryEncodeDate


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

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

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

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 を返します。