Foros Club Delphi - Compración de fechas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Compración de fechas (https://www.clubdelphi.com/foros/showthread.php?t=22048)

Alexander

04-06-2005 23:40:16

Compración de fechas

Por favor ayudenme con este tema.

Estoy haciendo comparación de dos fechas, pero con esta forma me funciona en XP, pero no en otros sistemas.

Como lo puedo hacer de otra forma?

Código:

if FormatDateTime('m/d/yy',StrToDate('01/'+ IntToStr(cxCBMeses.ItemIndex+1)+'/'+IntToStr(cxSEAno.Value))) >= FormatDateTime('m/d/yy',FechaIngreso) then

Les agradezco me puedan ayudar.

Alexander.

vtdeleon

04-06-2005 23:44:03

Saludos.

Chequea la configuracion regional, haber si esta igual en las pc.
Que error te da?

Alexander

05-06-2005 07:33:05

Configuracion regional

Pues en una máquina (Win XP) me comprar '01/06/2005' contra '03/06/2005' en la otra (Win98) con la misma información me compara '1/6/05' contra '03/06/2005'. Por ello no me funciona.

Gracias por sugerencias.

marcoszorrilla

05-06-2005 10:09:10

Pues yo creo que si transformas a fecha los valores y los guardas en variables, tiene que funcionar sin ningún problema, además puedes poner un ShowMessage, para ver que las fechas se guardan igual que tu crees.

Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject);
 var
 MiFecha1:TDate;
 MiFecha2:TDate;
 begin
 MiFecha1:=StrToDate('01/1/05');
 ShowMessage(FormatDateTime('dd/mm/yyyy',MiFecha1));
 
 MiFecha2:=StrToDate('22/1/05');
 ShowMessage(FormatDateTime('dd/mm/yyyy',MiFecha2));
 
   If MiFecha1 > MiFecha2 then
   ShowMessage('La fecha1 es mayor que la fecha2');
 
 end;

Un Saludo.

Alexander

09-06-2005 00:38:58

Muchas gracias por la ayuda

Muchas gracias por la ayuda.

Parece que todo funcionó.

Alexander

La franja horaria es GMT +2. Ahora son las 13:05:00.