Rob van der Woude's Scripting Pages
Powered by GeSHi

Source code for getdate.hta

(view source code of getdate.hta as plain text)

  1. <html>
  2. <head>
  3. <title>GetDate Date Calculator</title>
  4. <HTA:APPLICATION 
  5. 	ID="GetDate"
  6. 	VERSION="0.13 Beta"
  7. 	APPLICATIONNAME="GetDate"
  8. 	SYSMENU="yes"
  9. 	MAXIMIZEBUTTON="no"
  10. 	MINIMIZEBUTTON="yes"
  11. 	BORDER="thin"
  12. 	INNERBORDER="no"
  13. 	SCROLL="no"
  14. 	SINGLEINSTANCE="yes"
  15. 	WINDOWSTATE="maximize"
  16. >
  17. </head>
  18.  
  19. <script language="VBScript">
  1.  
  2. Dim arrDoW( 6 ), arrMonth( 11 ), blnDebug, blnLeapYear, numOldDay, numOldWeek, numOldYear, numOldMonth, numOldDoW, numVersionMessageSize, sysFirstDoW, sysFirstWoW
  3.  
  4. numVerMsgSize = 0
  5.  
  6.  
  7. ' Specify the first day of the week;
  8. ' valid values are: vbUseSystemDayOfWeek,
  9. ' vbSunday, vbMonday .. vbSaturday
  10. sysFirstDoW = vbUseSystemDayOfWeek
  11.  
  12. ' Specify how to decide which week is week 1;
  13. ' valid values are: vbUseSystem, vbFirstJan1,
  14. ' vbFirstFourDays, vbFirstFullWeek
  15. sysFirstWoY = vbUseSystem
  16.  
  17.  
  18. Sub CheckDate()
  19. 	If IsDate( MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value ) Then
  20. 		numOldDoW   = MyDoW.Value
  21. 		numOldDay   = MyDay.Value
  22. 		numOldMonth = MyMonth.Value
  23. 		numOldYear  = MyYear.Value
  24. 		numOldWeek  = MyWeek.Value
  25. 	Else
  26. '		MyDoW.Value   = numOldDoW
  27. '		MyDay.Value   = numOldDay
  28. '		MyMonth.Value = numOldMonth
  29. '		MyYear.Value  = numOldYear
  30. '		MyWeek.Value  = numOldWeek
  31. 	End If
  32. End Sub
  33.  
  34.  
  35. Sub CheckUpdate( )
  36. 	' Change cursor to hourglass while checking for update
  37. 	Document.Body.Style.Cursor = "wait"
  38.  
  39. 	strLatestVer  = TextFromHTML( "http://www.robvanderwoude.com/updates/getdate.txt" )
  40. 	lenLatestVer  = Len( strLatestVer )
  41. 	If lenLatestVer = 4 Then
  42. 		strCurrentVer = Split( GetDate.Version )(0)
  43. 		If strLatestVer < strCurrentVer Then
  44. 			Update.InnerHTML = "<P>You seem to be using an invalid version (" & strCurrentVer _
  45. 			                 & ") of the GetDate Date Calculator.<BR>The latest valid version is " _
  46. 			                 & strLatestVer & " and it is available " _
  47. 			                 & "<A HREF=""http://www.robvanderwoude.com/updates/getdate.html"">" _
  48. 			                 & "<FONT COLOR=""Red"">here</FONT></A>.</P>"
  49. 			numVerMsgSize    = 85
  50. 		End If
  51. 		If strLatestVer > strCurrentVer Then
  52. 			Update.InnerHTML = "<P>You are using version " & strCurrentVer _
  53. 			                 & " of the GetDate Date Calculator.<BR>An update to version " _
  54. 			                 & strLatestVer & " is available " _
  55. 			                 & "<A HREF=""http://www.robvanderwoude.com/updates/getdate.html"">" _
  56. 			                 & "<FONT COLOR=""Red"">here</FONT></A>.</P>"
  57. 			numVerMsgSize    = 85
  58. 		End If
  59. 	End If
  60.  
  61. 	' Change cursor back to default
  62. 	Document.Body.Style.Cursor = "default"
  63. End Sub
  64.  
  65.  
  66. Sub Debug( myDate )
  67. 	Dim intDoW, IntMonth
  68. 	If blnDebug = True Then
  69. 		intDoW   = CInt( DatePart( "w", myDate, sysFirstDoW, sysFirstWoY ) ) - 1
  70. 		IntMonth = CInt( DatePart( "m", myDate, sysFirstDoW, sysFirstWoY ) )
  71. 		DebugTextArea.Value = "Weekday Number : " & DatePart( "w",    myDate, sysFirstDoW, sysFirstWoY ) & vbCrLf _
  72. 		                    & "Weekday Name   : " & arrDoW( intDoW )                                     & vbCrLf _
  73. 		                    & "Day            : " & DatePart( "d",    myDate, sysFirstDoW, sysFirstWoY ) & vbCrLf _
  74. 		                    & "Month Number   : " & DatePart( "m",    myDate, sysFirstDoW, sysFirstWoY ) & vbCrLf _
  75. 		                    & "Month Name     : " & GetMonth( IntMonth )                                 & vbCrLf _
  76. 		                    & "Year           : " & DatePart( "yyyy", myDate, sysFirstDoW, sysFirstWoY ) & vbCrLf _
  77. 		                    & "Week           : " & DatePart( "ww",   myDate, sysFirstDoW, sysFirstWoY ) & vbCrLf _
  78. 		                    & "Locale Number  : " & GetLocale( )                                         & vbCrLf
  79. 	End If
  80. End Sub
  81.  
  82.  
  83. Sub DisplayDate( myDate )
  84. 	MyDoW.Value   = DatePart( "w",    myDate, sysFirstDoW, sysFirstWoY )
  85. 	MyDay.Value   = DatePart( "d",    myDate, sysFirstDoW, sysFirstWoY )
  86. 	MyMonth.Value = DatePart( "m",    myDate, sysFirstDoW, sysFirstWoY )
  87. 	MyYear.Value  = DatePart( "yyyy", myDate, sysFirstDoW, sysFirstWoY )
  88. 	MyWeek.Value  = DatePart( "ww",   myDate, sysFirstDoW, sysFirstWoY )
  89. End Sub
  90.  
  91.  
  92. Function GetMonth( myMonth )
  93. 	GetMonth = arrMonth( myMonth - 1 )
  94. End Function
  95.  
  96.  
  97. Sub HandleDayChange()
  98. 	myOldDay = numOldDay
  99. 	CheckDate
  100. 	myNewDate = DateAdd( "d", MyDay.Value - myOldDay, myOldDay & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value )
  101. 	DisplayDate myNewDate
  102. 	Debug MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value
  103. End Sub
  104.  
  105.  
  106. Sub HandleDoWChange()
  107. 	myOldDoW = numOldDoW
  108. 	CheckDate
  109. 	myNewDate = DateAdd( "d", MyDoW.Value - myOldDoW, MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value )
  110. 	DisplayDate myNewDate
  111. 	Debug myNewDate
  112. End Sub
  113.  
  114.  
  115. Sub HandleMonthChange()
  116. 	myOldMonth = numOldMonth
  117. 	CheckDate
  118. 	myNewDate = DateAdd( "m", MyMonth.Value - myOldMonth, MyDay.Value & " " & GetMonth( myOldMonth ) & " " & MyYear.Value )
  119. 	DisplayDate myNewDate
  120. 	Debug MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value
  121. End Sub
  122.  
  123.  
  124. Sub HandleWeekChange()
  125. 	myOldWeek = numOldWeek
  126. 	CheckDate
  127. 	myNewDate = DateAdd( "ww", MyWeek.Value - myOldWeek, MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value )
  128. 	DisplayDate myNewDate
  129. 	Debug MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value
  130. End Sub
  131.  
  132.  
  133. Sub HandleYearChange()
  134. 	myOldYear     = numOldYear
  135. 	CheckDate
  136. 	myNewDate     = DateAdd( "yyyy", MyYear.Value - myOldYear, MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & myOldYear )
  137. 	MyDoW.Value   = DatePart( "w",    myNewDate, sysFirstDoW, sysFirstWoY )
  138. 	MyDay.Value   = DatePart( "d",    myNewDate, sysFirstDoW, sysFirstWoY )
  139. 	MyMonth.Value = DatePart( "m",    myNewDate, sysFirstDoW, sysFirstWoY )
  140. 	MyYear.Value  = DatePart( "yyyy", myNewDate, sysFirstDoW, sysFirstWoY )
  141. 	MyWeek.Value  = DatePart( "ww",   myNewDate, sysFirstDoW, sysFirstWoY )
  142. 	blnLeapYear   = IsLeapYear( MyYear.Value )
  143. 	Debug MyDay.Value & " " & GetMonth( MyMonth.Value ) & " " & MyYear.Value
  144. End Sub
  145.  
  146.  
  147. Function IsLeapYear( myYear )
  148. 	If myYear Mod 4 = 0 Then
  149. 		IsLeapYear = True
  150. 		If myYear Mod 100 = 0 Then
  151. 			IsLeapYear = False
  152. 			If myYear Mod 400 = 0 Then
  153. 				IsLeapYear = True
  154. 			End If
  155. 		End If
  156. 	Else
  157. 		IsLeapYear = False
  158. 	End If
  159. End Function
  160.  
  161.  
  162. Sub Locale( )
  163. 	' Populate array and selection list with weekday names in correct language
  164. 	For i = 0 To 6
  165. 		arrDoW( i )             = WeekdayName( i + 1, False, vbUseSystemDayOfWeek )
  166. 		MyDoW.options( i ).Text = arrDoW( i )
  167. 	Next
  168.  
  169. 	' Populate array and selection list with month names in correct language
  170. 	For i = 0 To 11
  171. 		arrMonth( i )             = MonthName( i + 1, False )
  172. 		MyMonth.options( i ).Text = arrMonth( i )
  173. 	Next
  174.  
  175. 	' Translate "week" based on current locale,
  176. 	' as returned by the GetLocale( ) function:
  177. 	'
  178. 	' Afrikaans                                1078
  179. 	' Albanian                                 1052
  180. 	' Arabic - Algeria                         5121
  181. 	' Arabic - Bahrain                        15361
  182. 	' Arabic - Egypt                           3073
  183. 	' Arabic - Iraq                            2049
  184. 	' Arabic - Jordan                         11265
  185. 	' Arabic - Kuwait                         13313
  186. 	' Arabic - Lebanon                        12289
  187. 	' Arabic - Libya                           4097
  188. 	' Arabic - Morocco                         6145
  189. 	' Arabic - Oman                            8193
  190. 	' Arabic - Qatar                          16385
  191. 	' Arabic - Saudi Arabia                    1025
  192. 	' Arabic - Syria                          10241
  193. 	' Arabic - Tunisia                         7169
  194. 	' Arabic - United Arab Emirates           14337
  195. 	' Arabic - Yemen                           9217
  196. 	' Armenian                                 1067
  197. 	' Azeri - Cyrillic                         2092
  198. 	' Azeri - Latin                            1068
  199. 	' Basque                                   1069
  200. 	' Belarusian                               1059
  201. 	' Bulgarian                                1026
  202. 	' Catalan                                  1027
  203. 	' Chinese - China                          2052
  204. 	' Chinese - Hong Kong S.A.R.               3076
  205. 	' Chinese - Macau S.A.R.                   5124
  206. 	' Chinese - Singapore                      4100
  207. 	' Chinese - Taiwan                         1028
  208. 	' Croatian                                 1050
  209. 	' Czech                                    1029
  210. 	' Danish                                   1030
  211. 	' Dutch - Belgium                          2067
  212. 	' Dutch - The Netherlands                  1043
  213. 	' English - Australia                      3081
  214. 	' English - Belize                        10249
  215. 	' English - Canada                         4105
  216. 	' English - Carribbean                     9225
  217. 	' English - Ireland                        6153
  218. 	' English - Jamaica                        8201
  219. 	' English - New Zealand                    5129
  220. 	' English - Phillippines                  13321
  221. 	' English - South Africa                   7177
  222. 	' English - Trinidad                      11273
  223. 	' English - United Kingdom                 2057
  224. 	' English - United States                  1033
  225. 	' Estonian                                 1061
  226. 	' Faroese                                  1080
  227. 	' Farsi                                    1065
  228. 	' Finnish                                  1035
  229. 	' French - Belgium                         2060
  230. 	' French - Canada                          3084
  231. 	' French - France                          1036
  232. 	' French - Luxembourg                      5132
  233. 	' French - Switzerland                     4108
  234. 	' Macedonian                               1071
  235. 	' Gaelic - Ireland                         2108
  236. 	' Gaelic - Scotland                        1084
  237. 	' German - Austria                         3079
  238. 	' German - Germany                         1031
  239. 	' German - Liechtenstein                   5127
  240. 	' German - Luxembourg                      4103
  241. 	' German - Switzerland                     2055
  242. 	' Greek                                    1032
  243. 	' Hebrew                                   1037
  244. 	' Hindi                                    1081
  245. 	' Hungarian                                1038
  246. 	' Icelandic                                1039
  247. 	' Indonesian                               1057
  248. 	' Italian - Italy                          1040
  249. 	' Italian - Switzerland                    2064
  250. 	' Japanese                                 1041
  251. 	' Korean                                   1042
  252. 	' Latvian                                  1062
  253. 	' Lithuanian                               1063
  254. 	' Malay - Brunei                           2110
  255. 	' Malay - Malaysia                         1086
  256. 	' Maltese                                  1082
  257. 	' Marathi                                  1102
  258. 	' Norwegian - Bokm†l                       1044
  259. 	' Norwegian - Nynorsk                      2068
  260. 	' Polish                                   1045
  261. 	' Portuguese - Brazil                      1046
  262. 	' Portuguese - Portugal                    2070
  263. 	' Raeto-Romance                            1047
  264. 	' Romanian - Moldova                       2072
  265. 	' Romanian - Romania                       1048
  266. 	' Russian - Moldova                        2073
  267. 	' Russian                                  1049
  268. 	' Sanskrit                                 1103
  269. 	' Serbian - Cyrillic                       3098
  270. 	' Serbian - Latin                          2074
  271. 	' Setsuana                                 1074
  272. 	' Slovak                                   1051
  273. 	' Slovenian                                1060
  274. 	' Sorbian                                  1070
  275. 	' Spanish - Argentina                     11274
  276. 	' Spanish - Bolivia                       16394
  277. 	' Spanish - Chile                         13322
  278. 	' Spanish - Colombia                       9226
  279. 	' Spanish - Costa Rica                     5130
  280. 	' Spanish - Dominican Republic             7178
  281. 	' Spanish - Ecuador                       12298
  282. 	' Spanish - El Salvador                   17418
  283. 	' Spanish - Guatemala                      4106
  284. 	' Spanish - Honduras                      18442
  285. 	' Spanish - Mexico                         2058
  286. 	' Spanish - Nicaragua                     19466
  287. 	' Spanish - Panama                         6154
  288. 	' Spanish - Paraguay                      15370
  289. 	' Spanish - Peru                          10250
  290. 	' Spanish - Puerto Rico                   20490
  291. 	' Spanish - Spain                          1034
  292. 	' Spanish - Uruguay                       14346
  293. 	' Spanish - Venezuela                      8202
  294. 	' Sutu                                     1072
  295. 	' Swahili                                  1089
  296. 	' Swedish - Finland                        2077
  297. 	' Swedish - Sweden                         1053
  298. 	' Tamil                                    1097
  299. 	' Tatar                                    1092
  300. 	' Thai                                     1054
  301. 	' Tsonga                                   1073
  302. 	' Turkish                                  1055
  303. 	' Ukrainian                                1058
  304. 	' Urdu                                     1056
  305. 	' Uzbek - Cyrillic                         2115
  306. 	' Uzbek - Latin                            1091
  307. 	' Vietnamese                               1066
  308. 	' Xhosa                                    1076
  309. 	' Yiddish                                  1085
  310. 	' Zulu                                     1077
  311.  
  312. 	Select Case GetLocale( )
  313. 		Case 1031 ' German (Germany)
  314. 			Week.InnerHTML = "Woche"
  315. 		Case 1036 ' French (France)
  316. 			Week.InnerHTML = "semaine"
  317. 		Case 1043 ' Dutch (Netherlands)
  318. 			Week.InnerHTML = "week"
  319. 		Case 2055 ' German (Switzerland)
  320. 			Week.InnerHTML = "Woche"
  321. 		Case 2060 ' French (Belgium)
  322. 			Week.InnerHTML = "semaine"
  323. 		Case 2067 ' Dutch (Belgium)
  324. 			Week.InnerHTML = "week"
  325. 		Case 3079 ' German (Austria)
  326. 			Week.InnerHTML = "Woche"
  327. 		Case 3084 ' French (Canada)
  328. 			Week.InnerHTML = "semaine"
  329. 		Case 4103 ' German (Luxembourg)
  330. 			Week.InnerHTML = "Woche"
  331. 		Case 4108 ' French (Switzerland)
  332. 			Week.InnerHTML = "semaine"
  333. 		Case 5127 ' German (Liechtenstein)
  334. 			Week.InnerHTML = "Woche"
  335. 		Case 5132 ' French (Luxembourg)
  336. 			Week.InnerHTML = "semaine"
  337. 		Default ' English (UK)
  338. 			Week.InnerHTML = "Week"
  339. 	End Select
  340. End Sub
  341.  
  342.  
  343. Sub RestoreWindowSize()
  344. 	If blnDebug = True Then
  345. 		window.ResizeTo 520, 430 + numVerMsgSize
  346. 	Else
  347. 		window.ResizeTo 520, 180 + numVerMsgSize
  348. 	End If
  349. End Sub
  350.  
  351.  
  352. Function TextFromHTML( URL )
  353. 	' Basic routine borrowed from http://dev.remotenetworktechnology.com/wsh/rubegoldberg.htm
  354. 	' Improved wait-until-ready routine for HTAs by McKirahan on
  355. 	' http://support.microsoft.com/newsgroups/default.aspx?dg=microsoft.public.scripting.scriptlets&tid=be461ec2-b444-440c-8155-ad0e8e839ca6&lang=en&cr=US&sloc=en-us&p=1
  356.  
  357. 	Set objIE = CreateObject( "InternetExplorer.Application" )
  358.  	objIE.Navigate URL
  359. 	While objIE.Busy
  360. 	Wend
  361. 	TextFromHTML = objIE.Document.Body.InnerText
  362. 	objIE.Quit
  363. End Function
  364.  
  365.  
  366. Sub Window_Onload()
  367. 	AppVersion.InnerHTML = GetDate.Version
  368. 	Locale( )
  369. 	numOldDoW     = DatePart( "w",    Now, sysFirstDoW, sysFirstWoY )
  370. 	numOldDay     = DatePart( "d",    Now, sysFirstDoW, sysFirstWoY )
  371. 	numOldMonth   = DatePart( "m",    Now, sysFirstDoW, sysFirstWoY )
  372. 	numOldYear    = DatePart( "yyyy", Now, sysFirstDoW, sysFirstWoY )
  373. 	numOldWeek    = DatePart( "ww",   Now, sysFirstDoW, sysFirstWoY )
  374. 	MyDoW.Value   = numOldDoW
  375. 	MyDay.Value   = numOldDay
  376. 	MyMonth.Value = numOldMonth
  377. 	MyYear.Value  = numOldYear
  378. 	MyWeek.Value  = numOldWeek
  379. 	If InStr( UCase( GetDate.Commandline ), "/DEBUG" ) > 0 Then
  380. 		blnDebug = True
  381. 	Else
  382. 		blnDebug             = False
  383. 		DebugField.InnerHTML = ""
  384. 	End If
  385. 	RestoreWindowSize
  386. 	CheckUpdate( )
  387. 	Debug Now
  388. End Sub
  1. </script>
  2.  
  3. <body style="font:12 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#0080FF', EndColorStr='#00FFFF')" onresize="RestoreWindowSize()">
  4.  
  5. <div align="Center">
  6.  
  7. <span id="Update">&nbsp;</span>
  8.  
  9. <table border="0">
  10. <tr>
  11.     <td><select onchange="HandleDoWChange()" name="MyDoW">
  12.             <option value="1">maandag</option>
  13.             <option value="2">dinsdag</option>
  14.             <option value="3">woensdag</option>
  15.             <option value="4">donderdag</option>
  16.             <option value="5">vrijdag</option>
  17.             <option value="6">zaterdag</option>
  18.             <option value="7">zondag</option>
  19.         </select></td>
  20.     <td><select onchange="HandleDayChange()" name="MyDay">
  21.             <option value="1">1</option>
  22.             <option value="2">2</option>
  23.             <option value="3">3</option>
  24.             <option value="4">4</option>
  25.             <option value="5">5</option>
  26.             <option value="6">6</option>
  27.             <option value="7">7</option>
  28.             <option value="8">8</option>
  29.             <option value="9">9</option>
  30.             <option value="10">10</option>
  31.             <option value="11">11</option>
  32.             <option value="12">12</option>
  33.             <option value="13">13</option>
  34.             <option value="14">14</option>
  35.             <option value="15">15</option>
  36.             <option value="16">16</option>
  37.             <option value="17">17</option>
  38.             <option value="18">18</option>
  39.             <option value="19">19</option>
  40.             <option value="20">20</option>
  41.             <option value="21">21</option>
  42.             <option value="22">22</option>
  43.             <option value="23">23</option>
  44.             <option value="24">24</option>
  45.             <option value="25">25</option>
  46.             <option value="26">26</option>
  47.             <option value="27">27</option>
  48.             <option value="28">28</option>
  49.             <option value="29">29</option>
  50.             <option value="30">30</option>
  51.             <option value="31">31</option>
  52.         </select></td>
  53.     <td><select onchange="HandleMonthChange()" name="MyMonth">
  54.             <option value="1">januari</option>
  55.             <option value="2">februari</option>
  56.             <option value="3">maart</option>
  57.             <option value="4">april</option>
  58.             <option value="5">mei</option>
  59.             <option value="6">juni</option>
  60.             <option value="7">juli</option>
  61.             <option value="8">augustus</option>
  62.             <option value="9">september</option>
  63.             <option value="10">oktober</option>
  64.             <option value="11">november</option>
  65.             <option value="12">december</option>
  66.         </select></td>
  67.     <td><select onchange="HandleYearChange()" name="MyYear">
  68.             <option value="2000">2000</option>
  69.             <option value="2001">2001</option>
  70.             <option value="2002">2002</option>
  71.             <option value="2003">2003</option>
  72.             <option value="2004">2004</option>
  73.             <option value="2005">2005</option>
  74.             <option value="2006">2006</option>
  75.             <option value="2007">2007</option>
  76.             <option value="2008">2008</option>
  77.             <option value="2009">2009</option>
  78.             <option value="2010">2010</option>
  79.             <option value="2011">2011</option>
  80.             <option value="2012">2012</option>
  81.             <option value="2013">2013</option>
  82.             <option value="2014">2014</option>
  83.             <option value="2015">2015</option>
  84.             <option value="2016">2016</option>
  85.             <option value="2017">2017</option>
  86.             <option value="2018">2018</option>
  87.             <option value="2019">2019</option>
  88.             <option value="2020">2020</option>
  89.             <option value="2021">2021</option>
  90.             <option value="2022">2022</option>
  91.             <option value="2023">2023</option>
  92.             <option value="2024">2024</option>
  93.             <option value="2025">2025</option>
  94.             <option value="2026">2026</option>
  95.             <option value="2027">2027</option>
  96.             <option value="2028">2028</option>
  97.             <option value="2029">2029</option>
  98.             <option value="2030">2030</option>
  99.             <option value="2031">2031</option>
  100.             <option value="2032">2032</option>
  101.             <option value="2033">2033</option>
  102.             <option value="2034">2034</option>
  103.             <option value="2035">2035</option>
  104.             <option value="2036">2036</option>
  105.             <option value="2037">2037</option>
  106.             <option value="2038">2038</option>
  107.             <option value="2039">2039</option>
  108.             <option value="2040">2040</option>
  109.             <option value="2041">2041</option>
  110.             <option value="2042">2042</option>
  111.             <option value="2043">2043</option>
  112.             <option value="2044">2044</option>
  113.             <option value="2045">2045</option>
  114.             <option value="2046">2046</option>
  115.             <option value="2047">2047</option>
  116.             <option value="2048">2048</option>
  117.             <option value="2049">2049</option>
  118.             <option value="2050">2050</option>
  119.         </select></td>
  120.     <td><b>&nbsp;<span id="Week">Week</span>&nbsp;</b></td>
  121.     <td><select onchange="HandleWeekChange()" name="MyWeek">
  122.             <option value="1">1</option>
  123.             <option value="2">2</option>
  124.             <option value="3">3</option>
  125.             <option value="4">4</option>
  126.             <option value="5">5</option>
  127.             <option value="6">6</option>
  128.             <option value="7">7</option>
  129.             <option value="8">8</option>
  130.             <option value="9">9</option>
  131.             <option value="10">10</option>
  132.             <option value="11">11</option>
  133.             <option value="12">12</option>
  134.             <option value="13">13</option>
  135.             <option value="14">14</option>
  136.             <option value="15">15</option>
  137.             <option value="16">16</option>
  138.             <option value="17">17</option>
  139.             <option value="18">18</option>
  140.             <option value="19">19</option>
  141.             <option value="20">20</option>
  142.             <option value="21">21</option>
  143.             <option value="22">22</option>
  144.             <option value="23">23</option>
  145.             <option value="24">24</option>
  146.             <option value="25">25</option>
  147.             <option value="26">26</option>
  148.             <option value="27">27</option>
  149.             <option value="28">28</option>
  150.             <option value="29">29</option>
  151.             <option value="30">30</option>
  152.             <option value="31">31</option>
  153.             <option value="32">32</option>
  154.             <option value="33">33</option>
  155.             <option value="34">34</option>
  156.             <option value="35">35</option>
  157.             <option value="36">36</option>
  158.             <option value="37">37</option>
  159.             <option value="38">38</option>
  160.             <option value="39">39</option>
  161.             <option value="40">40</option>
  162.             <option value="41">41</option>
  163.             <option value="42">42</option>
  164.             <option value="43">43</option>
  165.             <option value="44">44</option>
  166.             <option value="45">45</option>
  167.             <option value="46">46</option>
  168.             <option value="47">47</option>
  169.             <option value="48">48</option>
  170.             <option value="49">49</option>
  171.             <option value="50">50</option>
  172.             <option value="51">51</option>
  173.             <option value="52">52</option>
  174.             <option value="53">53</option>
  175.         </select></td>
  176. </tr>
  177. </table>
  178.  
  179. <span id="DebugField">
  180.  
  181. <p>&nbsp;</p>
  182.  
  183. <textarea name="DebugTextArea" rows="10" cols="40"></textarea>
  184.  
  185. <p>&nbsp;</p>
  186.  
  187. </span>
  188.  
  189. <p align="center"><B>GetDate Date Calculator,&nbsp; Version <span id="AppVersion">0.00</span><br>
  190. <font size="-1">&copy; 2006, Rob van der Woude<br>
  191. <a href="http://www.robvanderwoude.com/" target="_blank"><font color="Red">http://www.robvanderwoude.com</font></a></font></b></p>
  192.  
  193. </div>
  194.  
  195. </body>
  196. </html>

page last uploaded: 2017-04-06, 13:33