kontrola datumu

[Petr Vileta]

Ve webovem formulari nekdo vyplni datum. Protoze to je textove pole, je
nutne to napred zkontrolovat zda je tam den, mesic a rok (na 4 cislice), ale
potom je treba jeste zkontrolovat, zda takove datum je vybec platne
(prestupne roky, 31 dubna a podobne nesmysly). Tak jsem udelal tenhle select
(psano v perlu)
$datum='20020229';
$sth=$dbh->prepare("select ifnull(truncate(date_sub(DATE_ADD($datum,INTERVAL
1 day), interval 1 day)/1000000,0)=$datum,0)");
$sth->execute() or die $sth->errstr;
$row=$sth->fetchrow_arrayref;
$spravne=$row->[0]*1;
$sth->finish;

Vraci to 1=spravne, 0=spatne. Najde na tom nekdo nejakou chybu? Ja zatim
zadnou nenasel.
--
Petr