All pastes #87888 Raw Edit

Mine

public text v1 · immutable
·published 2006-07-14 08:47 UTC
rendered paste body
 mydoub:= (Now-startTime)/StrToIntDef(StatusFile.Strings[STATUSFILE_DONESIZEPOS],1);
    mydoub:= mydoub *(StrToIntDef(StatusFile.Strings[STATUSFILE_COMSIZEPOS],0)
    	-StrToIntDef(StatusFile.Strings[STATUSFILE_DONESIZEPOS],0));

    lbEstlDuration.Caption := 'est. duration [dd:hh:mm] : '
    	+FormatDateTime ('dd:hh:nn', mydoub);
	  lblDuration.Caption    := 'duration [dd:hh:mm]      : '
  		+FormatDateTime ('dd:hh:nn', Now-startTime);
	  lbremlDuration.Caption := 'rem. duration [dd:hh:mm] : '
  		+FormatDateTime ('dd:hh:nn', mydoub-Now-startTime);