Ver Mensaje Individual
  #3  
Antiguo 22-12-2006
mzell mzell is offline
Registrado
 
Registrado: jul 2006
Ubicación: La Ceiba, Honduras
Posts: 7
Reputación: 0
mzell Va por buen camino
Hola CFPA86:
puedes usar la función DaysBetween que se encuentra en la unidad DateUtils (tienes que agregar DateUtils en la sección de uses de tu archivo .pas para poder tener acceso a esta función y muchas otras que te servirán para trabajar con fechas)

Aqui tienes un ejemplo que calcula el numero de dias entre dos fechas ingresadas en dos cajas de texto:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 //Agrego 2 edits, un label y un botón en el formulario, y en el evento click del botón escribo:
  Label1.Caption := IntToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)));
end;
Espero te sea util.
Responder Con Cita