AbstractTime.st
changeset 9449 6ba774be6aa1
parent 9432 79e9c3e9bb75
child 9926 5bfe280953b9
equal deleted inserted replaced
9448:d7fd5533b1cb 9449:6ba774be6aa1
   193         (Timestamp epoch asDate subtractDate:(Date day:1 month:1 year:1901))
   193         (Timestamp epoch asDate subtractDate:(Date day:1 month:1 year:1901))
   194         *  (24 * 60 * 60)
   194         *  (24 * 60 * 60)
   195 "
   195 "
   196 
   196 
   197     "stc cannot make large integers"
   197     "stc cannot make large integers"
   198     timestamp := Timestamp fromSeconds:secondCount - (21774528 * 100).
   198     timestamp := Timestamp fromSeconds:secondCount - 2177452800.
   199     ^ Array
   199     ^ Array
   200         with: (timestamp asDate)
   200         with: (timestamp asDate)
   201         with: (timestamp asTime)
   201         with: (timestamp asTime)
   202 
   202 
   203     "
   203     "
  1066 ! !
  1066 ! !
  1067 
  1067 
  1068 !AbstractTime class methodsFor:'documentation'!
  1068 !AbstractTime class methodsFor:'documentation'!
  1069 
  1069 
  1070 version
  1070 version
  1071     ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.52 2006-07-11 11:48:15 stefan Exp $'
  1071     ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.53 2006-07-18 16:48:24 stefan Exp $'
  1072 ! !
  1072 ! !