0001 function ltpdv_server_set_duration(mainfig, start, stop)
0002
0003
0004 dh = findobj(mainfig, 'Tag', 'LTPDVserverDurationDisplay');
0005
0006
0007 dur = stop - start + 1;
0008
0009 if dur < 0
0010 error('### The duration is negative. Change the start or stop time.');
0011 end
0012
0013 hours = fix(dur/3600);
0014 mins = fix((dur-hours*3600)/60);
0015 secs = dur-hours*3600-mins*60;
0016
0017 sign = '';
0018 if hours < 0
0019 sign = '-';
0020 hours = abs(hours);
0021 end
0022 if mins < 0
0023 sign = '-';
0024 mins = abs(mins);
0025 end
0026 if secs < 0
0027 sign = '-';
0028 secs = abs(secs);
0029 end
0030
0031 set(dh, 'String', sprintf('%s%02d:%02d:%02d', sign, hours, mins, secs));
0032
0033