caputurar formato fecha

[ingmichel]

hola a todos, me encuentro en un problema el cual no he podido resolver, estoy trabajando con delphi 7 y sql server 2000 y quiero capturar la fecha de un datetimepicker en formato 'MM/DD/YYYY' sin importar el idioma que este configurado en el regional options de la pc del cliente, ya que cuando esta por ejemplo en "ESPAÑOL REPUBLICA DOMINICANA" el datetimepicker me devuelve un valor distinto a cuando el regional opcion esta en "INGLES ESTADOS UNIDOS", LO QUE QUIERO ES PODER HACER QUE ME DEVUELVA EL MISMO VALOR SIN IMPORTAR EL EDIOMA.

[Casimiro Notevi]

Hola, por favor, no sé si leiste nuestra guía de estilo o quizás ha sido sólo un despiste, pero esta pregunta no tiene nada que ver con 'Internet', la paso al foro adecuado.

[ecfisa]

Hola ingmichel.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  Fecha :string;
begin
  Fecha := 'MM/dd/yyyy'; // Usa 'MM'. (con 'mm' no funciona)
  DateTimePicker1.Perform(DTM_SETFORMAT,DWORD(NIL),DWORD(Fecha));
  ...
end;

Cuando leas la guía de estilo como te aconsejó Casimiro, revisá el punto [ dos ].

Un saludo.

[ingmichel]

hola ecfisa probe el codigo que me diste y el programa no corre, marcandome el siguiente error

[Error] Unit1.pas(158): Undeclared identifier: 'DTM_SETFORMAT'

cual seria el problema ?

Empezado por ecfisa

Hola ingmichel.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  Fecha :string;
begin
  Fecha := 'MM/dd/yyyy'; // Usa 'MM'. (con 'mm' no funciona)
  DateTimePicker1.Perform(DTM_SETFORMAT,DWORD(NIL),DWORD(Fecha));
  ...
end;

Cuando leas la guía de estilo como te aconsejó Casimiro, revisá el punto [ dos ].

Un saludo.

[[oscarac]]

Intenta colocar asi

Código Delphi [-]
DateTimePicker1.Format := 'MM/dd/yyyy';

y nos comentas

[ecfisa]

Empezado por ingmichel

hola ecfisa probe el codigo que me diste y el programa no corre, marcandome el siguiente error

[Error] Unit1.pas(158): Undeclared identifier: 'DTM_SETFORMAT'

cual seria el problema ?

Hola ingmichel.

Tenés que incluir la unit CommCtrl.

Código Delphi [-]

uses CommCtrl;

procedure TForm1.FormShow(Sender: TObject);
var
  Fecha :string;
begin
  Fecha := 'MM/dd/yyyy'; // Usa 'MM'. (con 'mm' no funciona)
  DateTimePicker1.Perform(DTM_SETFORMAT,DWORD(NIL),DWORD(Fecha));
end;

Un saludo.