Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Pon dos TDateTimePicker en tu forma, los inicializamos con la fecha actual al mostrar la forma y con un boton calculamos la diferencia de dias mediante la funcion Trunc que te convierte una fecha en un numero redondeado. Espero ayudarte con lo siguiente:
procedure TForm1.FormShow(Sender: TObject); begin DTPPrimerDia.Date:=Date; DTPUltimoDia.Date:=Date; end;
procedure TForm1.btnCalcularClick(Sender: TObject); var Resultado:string; Tarifa:integer; Dias:integer; Precio:integer; begin Tarifa:=400; Dias:=trunc(DTPUltimoDia.Date)-(trunc(DTPPrimerDia.Date)); Precio:=Tarifa*Dias; Resultado:=inttostr(Precio); showmessage('$'+Resultado); end; end.