Fechas y Datetimepicker en delphi5

[zcatzz]

Me ha pasado una cosa curiosisima.. como les he comentado tengo 2 proyectos y he resuelto el problema de manera distinta en el 1er proyecto lo he dejado asi:


Código Delphi [-]
Fmt := 'dd/MM/yyyy';

FechaC.DateTime := Now;
FechaC.Perform(DTM_SETFORMAT, 0, Integer(PChar(Fmt)));




como el maestro Roman me ha dicho para simplificar me convertidero anterior..
Esto funciona perfectamente en el 1ero.

En el 2do proyecto tuve que agregarle la comparacion en el que identifique que lenguaje de sistema tiene el sistema antes de insertar la fecha en la tabla:


Código Delphi [-]
if idioma='080A' then // si el formato esta en espanol
fecha:=conversionfechaparatablaespanol(fechan.text)
else if idioma='0409' then // si el formato esta en ingles
fecha:=conversionfechaparatablaingles(fechan.text);
inserta en la tabla el campo fecha





Y Ya de esta manera dependiendo del idioma lo cambio al formato con las
funciones que implemente a: yyyy-mm-dd.