|
Line 0
Link Here
|
|
|
1 |
diff -ruN gmsrc/garmin.tcl gmsrc/garmin.tcl |
| 2 |
--- gmsrc/garmin.tcl 2008-10-28 10:19:48.000000000 -0700 |
| 3 |
+++ gmsrc/garmin.tcl 2008-11-10 04:39:44.000000000 -0800 |
| 4 |
@@ -17,7 +17,7 @@ |
| 5 |
# along with this program. |
| 6 |
# |
| 7 |
# File: garmin.tcl |
| 8 |
-# Last change: 23 October 2008 |
| 9 |
+# Last change: 2 November 2008 |
| 10 |
# |
| 11 |
# Includes contributions by |
| 12 |
# - David Gardner (djgardner_AT_users.sourceforge.net) marked |
| 13 |
@@ -2567,7 +2567,7 @@ |
| 14 |
} |
| 15 |
|
| 16 |
proc ConvGarminDate {gd} { |
| 17 |
- # converts Garmin date (seconds since 1990.01.01 00:00:00) into list |
| 18 |
+ # converts Garmin date (seconds since 1989.12.31 00:00:00) into list |
| 19 |
# with date in current format and seconds since beginning of $YEAR0, |
| 20 |
# not necessarily a leap year, but < 1990 |
| 21 |
global YEAR0 TimeOffset |
| 22 |
@@ -2579,7 +2579,7 @@ |
| 23 |
if { $yy%100!=0 || $yy%400==0 } { incr dd } |
| 24 |
incr yy 4 |
| 25 |
} |
| 26 |
- set secs [expr round((((1990-$YEAR0)*365+$dd)*24+$TimeOffset-12)*3600+$gd)] |
| 27 |
+ set secs [expr round((((1990-$YEAR0)*365+$dd)*24+$TimeOffset)*3600+$gd)] |
| 28 |
return [list [DateFromSecs $secs] $secs] |
| 29 |
} |
| 30 |
|