Compración de fechas

[Alexander]

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?

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]

Saludos.

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

[Alexander]

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]

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]

Muchas gracias por la ayuda.

Parece que todo funcionó.

Alexander