--- a/Timestamp.st Tue May 31 12:12:09 2016 +0200
+++ b/Timestamp.st Tue May 31 12:47:05 2016 +0200
@@ -465,7 +465,6 @@
"
! !
-
!Timestamp class methodsFor:'private'!
basicReadFrom:aStream
@@ -3078,7 +3077,6 @@
! !
-
!Timestamp methodsFor:'testing'!
isLocalTimestamp
@@ -3132,15 +3130,15 @@
utcOffset := (((hours * 60) + minutes) * 60).
minutes isZero ifFalse: [
- minute := minute + minutes.
- minute >= 60 ifTrue: [
- hours := hours + 1.
- minute := minute - 60.
- ].
- minute < 0 ifTrue: [
- hours := hours - 1.
- minute := minute + 60.
- ]
+ minute := minute + minutes.
+ minute >= 60 ifTrue: [
+ hours := hours + 1.
+ minute := minute - 60.
+ ].
+ minute < 0 ifTrue: [
+ hours := hours - 1.
+ minute := minute + 60.
+ ]
].
"Hours may get zero by time zone specification or by minutes modifications above."
@@ -3149,24 +3147,24 @@
"Add or subtract the hour and make date corrections if necessary."
hour := hour + hours.
hour < 0 ifTrue: [
- "Oops, got to previous day, must adjust even the date."
- hour := 24 - ((hour negated) \\ 24).
- day := day - 1.
- day <= 0 ifTrue: [
- "Got to previous month..."
- month := month - 1.
- month <= 0 ifTrue: [year := year - 1. month := 12].
- day := self lastDayInMonth: month
- ]
+ "Oops, got to previous day, must adjust even the date."
+ hour := 24 - ((hour negated) \\ 24).
+ day := day - 1.
+ day <= 0 ifTrue: [
+ "Go to previous month..."
+ month := month - 1.
+ month <= 0 ifTrue: [year := year - 1. month := 12].
+ day := self lastDayInMonth: month
+ ]
].
hour >= 24 ifTrue: [
- hour := hour \\ 24.
- day := day + 1.
- day > (self lastDayInMonth: month) ifTrue: [
- month := month + 1.
- month > 12 ifTrue: [year := year + 1. month := 1].
- day := 1
- ]
+ hour := hour \\ 24.
+ day := day + 1.
+ day > (self lastDayInMonth: month) ifTrue: [
+ month := month + 1.
+ month > 12 ifTrue: [year := year + 1. month := 1].
+ day := 1
+ ]
]
"Created: / 15-06-2005 / 16:45:49 / masca"