掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
日付が有効か否かを検証するには? (ID：10198)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
わざわざ'/'で切らなくても、try...exceptでできるかと。 function StrToDateValidate(const S: String; var D: TDate): Boolean; begin try D := StrToDate(S); Result := True; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); var S:string; D:TDate; IsDate: Boolean; begin IsDate := False; while not IsDate do begin S:=inputbox('','日付を ****/**/** の書式で入力してください',''); if S='' then exit; IsDate := StrToDateValidate(S, D); end; ShowMessage(DateToStr(D)); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.