[Lazarus-es] Validar Fechas

[Maxi]

El día 29 de enero de 2014, 12:51, Ismael L. Donis Garcia
<ismael en citricos.co.cu> escribió:
> Estoy tratando de hacer por ejemplo:
>
> sfecha := '20140129';
> sfecha := LeftStr(sfecha, 4) + DateSeparator + AnsiMidStr(sfecha,5,2) +
> DateSeparator + RightStr(sfecha, 2);
> if (TryStrToDate(sfecha, dtmfecha)) then
> Y siempre la función TryStrToDate me devuelve falso.
>
> De que forma podría validar esto que me devolviera si la fecha es correcta o
> no?
>
> Desde ya Gracias
> ========
> | ISMAEL |
> ========
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>

porque no usas


unidad  DateUtils;
function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;

y simplemente haces un StrToInt(copy(s,1,4)) para el año y asi para el resto




-- 
El que pregunta aprende, y el que contesta aprende a responder.

No a la obsolecencia programada:
http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml

Linux User #495070
http://domonetic.com/blog