Sub ShowTime 'Show time in the 2nd textbox 'txttime.value=Time() 'Execute the ShowTime function 'every second 'The settimeout function just execute 'the specified function or expression when the given 'interval elapses 'Syntax 'settimeout(NameOfTheFucntion,Milisecond) 'where NameOfTheFucntion must be enlosed 'with double quotes. settimeout "ShowTime",1000 End Sub Sub window_onload 'Show date to 1st textbox 'txtdate.value=date() 'Execute this function first time 'so it fills the textbox ShowTime End Sub
Promerit is currently Down for Maintenance.
We apologize for any inconvenience.