Bueno...
vale...
Me falta lo del porcentaje para una barra de progreso....
¿Que hago ahora?.. paso el str a numero otra vez y lo multiplico por 10000000000 ?? No me queda muy claro...
Ya he trabajado con las funciones de delphi y he rehecho las rutinas
Lo he solucionado de esta forma..
Por si a alguien le sirve....
Código Delphi
[-]
function MostrarRestante(const Ini,Fin: TDateTime): string;
var
d,h,m,s: Word;
begin
d:=0;
if DaysBetween(Ini,Fin) > 0 then
d:= DaysBetween(Ini, Fin);
h:= HourOf(Ini - Fin);
m:= MinuteOf(Ini - Fin);
s:= SecondOf(Ini - Fin);
Result:= Format('%2d dia(s) %.02d:%.02d:%.02d',[d,h,m,s]);
end;
.......
var AinicioCap, AFinCap:Tdatetime;
.......
AInicioCap:=Now;
AfinCap:=IncDay(AinicioCap, trunc(SEDay.Value)); AfinCap:=IncHour(AfinCap, trunc(SEHour.Value)); AfinCap:=IncMinute(AfinCap, trunc(SEMin.Value));
Edit1.Text:=Datetimetostr(AfinCap);
.......
Edit2.Text:=Mostrarrestante(Now,AfinCap);
.....
str:=Floattostr(AFinCap);
......
if Now>=AfinCap then termina
Si me podeis poner algún ejemplo de lo del porcentaje..
Gracias por la ayuda...