Cita:
Empezado por pablopessoa
El problema es que hice una prueba instalando hoy y dando licencia hasta el 1/2/2009 y cuando ejecuto el programa me alerta que mi licencia esta por expirar y que me quedan como - 94 dias (no es el numero exacto que muestra, pero lo importante es que lo muestra en negativo)
|
Bueno, parece que está claro que tienes un problemas con el cálculo de las fechas. Estaría bien si pusieras algo del código que estás utilizando para realizar los cálculos; Así podríamos ver si hay algun error. ¿Cómo haces la resta?
Revisa las funciones que hay en la unit
DateUtils (si es que no las estás utilizand ya), te pueden ayudar con el tratamiento de fechas.
En concreto, por ejemplo,
DaySpan te devuelve el número de días que hay entre dos fechas.
Código Delphi
[-]
i := DaySpan(StrToDate(edtHoy.Text), StrToDate(edtInstall.Text));
lblResult.Caption := Format('Lleva %d días ejecutando la aplicación',[Trunc(i)]);