[protot-ip]

Код:

function Ostatoc(Ttime:string; Timer:string):String;
var dd,mm,yy,S:integer; dd1,mm1,yy1,S1:Integer;
 begin
   Dd:=StrToInt(Copy(Ttime,1,pos(':',Ttime)-1));
     if (length(Ttime))=7 then
       S:=2
       else S:=3;
   Mm:=StrToInt(Copy(Ttime,pos(':',Ttime)+1,S-2));
   yy:=StrToInt(Copy(Ttime,S+4,length(Ttime)));

   Dd1:=StrToInt(Copy(Timer,1,pos(':',Timer)-1));
     if length(Timer)=7 then
       S1:=2
       else S1:=3;
   Mm1:=StrToInt(Copy(Timer,pos(':',Timer)+1,S1-2));
   yy1:=StrToInt(Copy(Timer,S1+4,length(Timer)));

   Result:='осталось: '+IntToStr(dd1-dd)+' час. '+IntToStr(mm1-mm)+' мин. '+IntToStr(yy-yy1)+' сек.';
 end;

Админ: Пользуемся тегами для оформления кода!