TimeDuration.st
changeset 22286 b67c6cd14b84
parent 22285 196d6c806fae
child 22493 0232ebe18eb8
equal deleted inserted replaced
22285:196d6c806fae 22286:b67c6cd14b84
   895 
   895 
   896     |hours mins secs ms|
   896     |hours mins secs ms|
   897 
   897 
   898     hours := self hours.
   898     hours := self hours.
   899 
   899 
   900     hours >= (24*356*2) ifTrue:[
   900     hours >= (24*365*2) ifTrue:[
   901         ^ '%(yrR)yr'. 
   901         ^ '%(yrR)yr'. 
   902     ].
   902     ].
   903     hours >= (24*40) ifTrue:[
   903     hours >= (24*40) ifTrue:[
   904         ^ '%(monR)mon'. 
   904         ^ '%(monR)mon'. 
   905     ].
   905     ].
   957 
   957 
   958      (TimeDuration hours:2 minutes:33 seconds:0 millis:0) printStringForApproximation         
   958      (TimeDuration hours:2 minutes:33 seconds:0 millis:0) printStringForApproximation         
   959      (TimeDuration hours:2 minutes:0 seconds:0 millis:0) printStringForApproximation          
   959      (TimeDuration hours:2 minutes:0 seconds:0 millis:0) printStringForApproximation          
   960      (TimeDuration hours:24 minutes:0 seconds:0 millis:0) printStringForApproximation          
   960      (TimeDuration hours:24 minutes:0 seconds:0 millis:0) printStringForApproximation          
   961     "
   961     "
       
   962 
       
   963     "Modified: / 21-09-2017 / 22:19:53 / cg"
   962 !
   964 !
   963 
   965 
   964 formatForPrinting
   966 formatForPrinting
   965     "Return the format for printing"
   967     "Return the format for printing"
   966 
   968