Fechas y Datetimepicker en delphi5

[zcatzz]

Hola a todos ... como ya es mi costumbre sigo hablando del formato de idioma en los datetimepicker ... Despues de leerme muchos foros sobre ese tema he entendido la funcion de la variable ShortdateFormat... en este caso no me cambia el formato mis datetimepicker que al inicio eso pensaba... en uno foro lei que nuestro maestro Roman decia... pues tan sencillo como cambiar la propiedad Format y busque y busque y nunca le encontre pero entonces me cayo el "20" que ha de ser que esa propiedad este en una version de delphi mas reciente... Estoy en lo correcto?

Si es asi.. mi pregunta es .. puedo jalar ese componente con todas esas maravillosas propiedades a delphi 5? o existe algun otro componente que me sirva igual .. es decir poner fechas en formato grafico y que pueda cambiarle el formato a mi conveniencia...

Tengo 2 proyectos en los que les agregue estas instrucciones:
Que segun entiendo es para cambiar el formato del Datetimepicker
Código Delphi [-]
// configura la fecha, pone dd/mm/yyyy el dia de hoy
S := FormatDateTime('dd/MM/yyyy',now);
FechaC.DateTime:= strtodatetime(s);
Formato := 'dd/MM/yyyy';
FechaC.Perform ( DTM_SETFORMAT,0,DWORD(Formato) );


Inicializo mi variable
ShortDateFormat:='dd/mm/yyyy';

Y de verdad que esta de insolito... en el 1er proyecto me hace lo que necesito que es poner la fecha actual en formato de dd/MM/yyyy y si abres el calendario si dice la fecha correcta..
En el 2do proyecto me escribe la fecha en ese formato pero cuando abro el calendario en realidad me lo puso al revez.. es decir hoy 10 de mayo me lo pone como 5 de Octubre

Los estoy calando en la misma computadora que tiene (que pena) windows xp en regional settings English (united states)

Como puede ser eso posible? por eso estoy vuelta loca, ya que en un programa trabaja tal cual quiero y en el otro se poner rebelde

Acepto cualquier comentario... Muchisimas gracias de antemano... Ya sea sobre si puedo migrar un componente parecido donde pueda cambiar su formato,, o alguna teoria del porque en un programa funciona y en otro no

[BuenaOnda]

Hola...
Aqui te dejo un componente, espero que te sirva...

[zcatzz]

Empezado por BuenaOnda

Hola...
Aqui te dejo un componente, espero que te sirva...

Muchas Gracias voy a revisarlo ahora mismo

[zcatzz]

Empezado por BuenaOnda

Hola...
Aqui te dejo un componente, espero que te sirva...

Disculpa me pide 2 dcu

es el types.dcu en el calendar

y el DateUtils.dcu ... los tienes por ahi.. (disculpa nuevamente)

[roman]

zcatzz, si bien puedes intentar con otras componentes, yo creo que lo mejor sería primero ver porque está fallando el control estándar.

Ya has visto que ShortDateFormat no te va a servir, lo cual está explicado en la ayuda de Delphi:

TDateTimePicker formats date and time values according to the date and time settings in the Regional Settings of the Control panel on the user’s system. Because TDateTimePicker is a wrapper for a Windows control, these formats can’t be changed by changing the formatting variables in the SysUtils unit. However, you can use the Windows API call DateTime_SetFormat to programmatically specify these settings.

Así, pues, vayamos olvidándonos de esa parte del código.

Como ves, la misma ayuda menciona el uso de DateTime_SetFormat, que básicamente es lo que ya tienes con Perform, aunque veo un poco rara la forma en que lo usas, ¿qué tipo de datos tiene tu variable Formato?

Por otra parte, no entiendo por qué asignas la fecha al datetimepicker con una doble conversión:

datetime -> string -> datetime

cuando puedes hacerlo directamente. Los valores Date o DateTime no dependen del formato que se use para mostrarlos.

Así pues, yo primero que nada intentaría- a falta de la propiedad Format que, por lo visto, no viene en Delphi 5- usar el Perform:

Código Delphi [-]
var
  Fmt: String;

begin
  Fmt := 'dd/MM/yyyy';

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

// Saludos

[BuenaOnda]

es una pena.. eso quiere decir que el componente solo esta disponible para una version mas reciente de delphi... bueno.. apenas tenga alguna solucion te la informare... suerte..

[[cHackAll]]

Dime zcatzz, que formato de fecha necesitas y te doy una funcion sencilla al caso.

[[cHackAll]]

No comprendo del todo, el problema es que en Delphi 5 no hay la funcion Format? si es así pues por que no intentas copiar lo necesario de la unidad SysUtils de una version reciente?

Si no es así explicame un poco mejor.

Suerte.

[zcatzz]

Empezado por cHackAll

No comprendo del todo, el problema es que en Delphi 5 no hay la funcion Format? si es así pues por que no intentas copiar lo necesario de la unidad SysUtils de una version reciente?

Si no es así explicame un poco mejor.

Suerte.

Asi es ...en Delphi 5 no existe la propiedad Format en el Datetimepicker...

Ahora si que peco de ignorante, pero como se hace lo de copiar de la unidad SysUtils a Delphi 5 ... Me podrias explicar por favor