equal
deleted
inserted
replaced
88 ! ! |
88 ! ! |
89 |
89 |
90 !TZTimestamp class methodsFor:'instance creation'! |
90 !TZTimestamp class methodsFor:'instance creation'! |
91 |
91 |
92 fromDate:aDate andTime:aTime utcOffset:utcOffsetSeconds |
92 fromDate:aDate andTime:aTime utcOffset:utcOffsetSeconds |
93 "return an instance of the receiver, initialized from a time and a date |
93 "return an instance of the receiver, |
94 object. |
94 initialized from a time and a date object. |
|
95 Both date and time are assumed to be in local time. |
95 See also `Timestamp now' and other protocol inherited |
96 See also `Timestamp now' and other protocol inherited |
96 from my superclass." |
97 from my superclass." |
97 |
98 |
98 ^ (self |
99 ^ (self |
99 UTCYear:aDate year |
100 UTCYear:aDate year |
100 month:aDate month |
101 month:aDate month |
101 day:aDate day |
102 day:aDate day |
102 hour:aTime hours |
103 hour:aTime hours |
103 minute:aTime minutes |
104 minute:aTime minutes |
104 second:aTime seconds + utcOffsetSeconds |
105 second:(aTime seconds + utcOffsetSeconds) |
105 millisecond:aTime milliseconds) |
106 millisecond:aTime milliseconds) |
106 utcOffset:utcOffsetSeconds |
107 utcOffset:utcOffsetSeconds |
107 |
108 |
108 " |
109 " |
109 Timestamp fromDate:(Date today) andTime:(Time now) |
110 Timestamp fromDate:(Date today) andTime:(Time now) |
110 Timestamp fromDate:(Date today) andTime:(Time nowWithMilliseconds) |
111 Timestamp fromDate:(Date today) andTime:(Time nowWithMilliseconds) |
|
112 |
|
113 TZTimestamp fromDate:(Date today) andTime:(Time now) utcOffset:3600 |
111 |
114 |
112 Timestamp fromDate:(Date today plusDays:1) andTime:(Time now) |
115 Timestamp fromDate:(Date today plusDays:1) andTime:(Time now) |
113 Timestamp now |
116 Timestamp now |
114 " |
117 " |
115 ! ! |
118 ! ! |