日付が存在するか

えぴぃ 2005-07-14 15:25:12 No: 16382 IP: 192.*.*.*

TEditに「20050714」という形で書き込んで、
TButtonをクリックした時に、その年月日が存在するかどうかをチェックしてくれる関数などはないでしょうか？
閏年の判定をしてくれるものを作っていたら、とても長くなってしまって^^;
日付用コンポーネントなどは使わない方法でお願いします。

編集削除

deldel 2005-07-14 15:34:27 No: 16383 IP: 192.*.*.*

以下を元に関数を作成すれば良いと思います。

try
StrToDate('2005/02/30');
except
showmessage('日付エラー');
end;

編集削除

Syake 2005-07-14 16:01:16 No: 16384 IP: 192.*.*.*

ちなみに
deldelさんに様に日付が実在するかは、簡単な関数を自作することで
処理できます。
>閏年の判定をしてくれるものを作っていたら、とても長くなってしまって
長くなりません。 IsLeapYearで判定できます。

編集削除

@Enum＠駄レス 2005-07-14 16:47:13 No: 16385 IP: 192.*.*.*

i := xxxx //西暦

if (((i mod 4) = 0) and ((i mod 100) <> 0)) or ((i mod 400) = 0) then showmessage('うるう年だお＾＾');

自前。西暦が、4の倍数かつ100の倍数じゃないまたは、 400の倍数ならうるう年。

編集削除