MISC

internet time resources
This macro code comes from:
IGARASHI Keiichi

-- link--

This code is for Microsoft Office 97/2000 applications.  Thanks goes to IGARASHI Keiichi for releasing this code.  Interesting format, check it out.

[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--

 

 


main     news     about      documents      message board      directory     resources


24 Feb 99@181.70

© 1999 Ryan J. Thiessen (mail)
This page is not affiliated with Swatch® AG (www.swatch.com)