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 |
========
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20140129/ea37b492/attachment.html>

El d�a 29 de enero de 2014, 12:51, Ismael L. Donis Garcia <ismael en citricos.co.cu> escribi�:

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

Por desconocimiento de la funci�n. Es que no acabo de comenzar a desarrollar en Lazarus y desconozco 1 mill�n de funciones.

Hasta ahora solo lo uso de vez en cuando para cosas peque�as, aunque mi inter�s es usarlo para cosas de m�s envergaduras, pero como aun no me acabo de meter en este lenguaje siempre me trabo por algo y termino realizando las cosas en los lenguajes de Microsoft, que aunque he intentado 1 mill�n de veces de dejarlos (por ser de pagos) aun no me logro desprender de ellos.

Muchas Gracias, funcion� de maravillas.
========
| ISMAEL |
========