[Macro InsertTimeStamp]

--start copying here--

Sub InsertTimeStamp()
' InsertTimeStamp Macro
' Suggested by Ryan Thiessen (ryan@thiessen.com)
' Remodeled by K. Igarashi
' TZ : Difference in time with UTC

TZ = + 9
X = Now()
TX = X - ((TZ - 1) / 24)
Y = Year(X)
M = Month(X)
D = Day(X)
T = (TX - Int(TX)) * 1000
SendKeys (Format(Y, "0000/"))
SendKeys (Format(M, "00/"))
SendKeys (Format(D, "00@"))
SendKeys (Format(T, "000.00"))

End Sub

--end copying here--