Buenas!! Utilizo delphi7,tablas paradox.
tengo un problema con un procedimiento. Quiero calcular los dias que pasaron desde que alquile una pelicula hasta que la devolvi.
Código Delphi
[-]
procedure TDM.CalculoDeuda();
var
dias,diasDebe : integer;
Deuda : double;
begin
dias := 0; <--------por aqui no pasa
DiasDebe := 0;<--- por aqui tampoco
dias := trunc (DaysBetween (TblAlquileresFecha_Alquiler.Value,
TblAlquileresFecha_Devolucion.Value));
if TblAlquilerNum_dias.Value < inttostr(dias) then
begin
diasDebe := dias - strtoint(TblAlquilerNum_dias.Value);
Deuda := TblAlquilerSancion.Value * diasDebe;
TblDeudaDeuda.Value := round(Deuda);
TblDeuda.Post;
end;
end;
El numero de dias me lo devuelve a 0. Si le pongo :
Código Delphi
[-]
dias := trunc (DaysBetween (TblAlquileresFecha_Alquiler.Value,
now));
Me devuelve el numero de dias mal. No se que es lo que estoy haciendo mal.
Si alguien me puede ayudar,gracias de antemano.