function getts(const s1,s2:string):integer; var t1,t2:Tdatetime; begin DateSeparator:='.'; t1:=strtodate(format('%s.%s.%s',[copy(s1,1,4),copy(s1,5,2),copy (s1,7,2)])); t2:=strtodate(format('%s.%s.%s',[copy(s2,1,4),copy(s2,5,2),copy (s2,7,2)])); result:=round(t2-t1); end;
var t1,t2:Tdatetime;
begin
DateSeparator:='.';
t1:=strtodate(format('%s.%s.%s',[copy(s1,1,4),copy(s1,5,2),copy (s1,7,2)]));
t2:=strtodate(format('%s.%s.%s',[copy(s2,1,4),copy(s2,5,2),copy (s2,7,2)]));
result:=round(t2-t1);
end;