Error in applescript to fix dates with GMT shift

Question

Hello,
I am attempting to fix a problem with importing OFX files from the bank's website. Therein, dates are stored this way:
<DTPOSTED>20110106000000[+9.0:JST]
The time zone indicator causes Numbers to incorrectly compensate dates, resulting in one day earlier than the correct date to be displayed. Removing [+9.0:JST] fixes the problem, but that is tedious to fix many entries. Thus I thought to write an applescript to fix this issue.
This is the script I wrote:
tell application "Numbers"
tell document 1
set currentSheet to 0
repeat with i from 1 to the count of sheets
tell sheet i
set x to the count of (tables whose selection range is not missing value)
end tell
if x is not 0 then
set the currentSheet to i
exit repeat
end if
end repeat
tell sheet currentSheet
set the currentTable to the first table whose selection range is not missing value
tell the currentTable
repeat with theCell in every cell in selection range
set theValue to value of theCell
set theNewValue to ((theValue) + (time to GMT)) as date
set value of cell theCell to ((date string of theNewValue) as date)
end repeat
end tell
end tell
end tell
end tell
However this error occurs:
error "Can’t make "2011.1.09" into type date." number -1700 from "2011.1.09" to date
It appears there are problems with how Numbers 2009 deals with date formats, but I have not been able to understand how to make this work.
The English discussions forum seems more active than the Japanese, so I am asking here hoping someone can help. Thank you in advance.

Answer 1

Hello Hiroto
(1) Best wishes fro the new year my friend
(2)
To get your script running I had to edit it this way :
For Numbers '09, which has specific defect in getting date value from cell by AppleScript.
tell application "Numbers"
tell document 1
-- omitted (same as the original)
tell sheet 1 --currentSheet
-- omitted (same as the original)
tell table 1 --currentTable
repeat with theCell in (get every cell of selection range)
set theCell to theCell's contents
set value of theCell to (((value of theCell) + (my get_diff2UTC())) as string) -- [2]
end repeat
end tell
end tell
end tell
end tell
[1] Due to Numbers' AppleScript's defect, when getting date value of cell by AppleScript,
the retrieved date is in local time calculated as follows :
<retieved date value> = <stored date value> + <time to UTC>
[2] When setting date value of cell by AppleScript, the stored value is the same as the source value.
on get_diff2UTC()
return -(time to GMT)
end get_diff2UTC
The handler is due to a Snow Leopard new feature
When we trigger a command belonging to an other sdef than the one of the application owning the block we get an error.
Some times this one doesn't hurt, sometimes it does.
Here, calling time to GMT in the tell Numbers block generate an error which doesn't hurt but I dislike this kind of thing and decided to trigger it from the outside of the block.
Here is the log report when triggering time to GMT from the tell Numbers block :
tell application "Numbers"
get every cell of selection range of table 1 of sheet 1 of document 1
--> {cell "B2" of table "Tableau 1" of sheet "Feuille 1" of document "Sans titre"}
time to GMT
--> error number -10004
end tell
tell application "AppleScript Editor"
time to GMT
--> 3600
end tell
tell application "Numbers"
get value of cell "B2" of table "Tableau 1" of sheet "Feuille 1" of document "Sans titre"
--> date "vendredi 14 janvier 2011 14:52:10"
set value of cell "B2" of table "Tableau 1" of sheet "Feuille 1" of document "Sans titre" to "vendredi 14 janvier 2011 13:52:10"
end tell
Now, here is the log report when I use the handler :
tell application "Numbers"
get every cell of selection range of table 1 of sheet 1 of document 1
--> {cell "B2" of table "Tableau 1" of sheet "Feuille 1" of document "Sans titre"}
end tell
tell application "AppleScript Editor"
time to GMT
--> 3600
end tell
tell application "Numbers"
get value of cell "B2" of table "Tableau 1" of sheet "Feuille 1" of document "Sans titre"
--> date "vendredi 14 janvier 2011 14:52:10"
set value of cell "B2" of table "Tableau 1" of sheet "Feuille 1" of document "Sans titre" to "vendredi 14 janvier 2011 13:52:10"
end tell
Yvan KOENIG (VALLAURIS, France) vendredi 14 janvier 2011 15:56:45