日付が存在するか

えぴぃ 2005-07-15 00:25:12 No: 16382

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

deldel 2005-07-15 00:34:27 No: 16383

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

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

Syake 2005-07-15 01:01:16 No: 16384

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

@Enum＠駄レス 2005-07-15 01:47:13 No: 16385

i := xxxx //西暦

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

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