& minutesperhour,
integer minutesperhour
added(2) = hhmmss/minutesperhour*10000 +
& (mod(fac*hhmmss,minutesperhour)*100 +
hhmmss = hhmmss/minutesperhour*10000 +
& mod(hhmmss,minutesperhour)*100 +
minutesperhour = 60
date(2) = hhmmss/minutesperhour*10000 +
numdays(2) = hhmmss/minutesperhour*10000 +