option explicit

sub date_time()
 dim datecurrent, monthcurrent, yearcurrent, daycurrent, weekdaycurrent
 dim timecurrent, hourcurrent, minutecurrent, secondcurrent, noonstatus

 datecurrent = date()
 yearcurrent = year(datecurrent) + 544
 monthcurrent = month(datecurrent)
 daycurrent = day(datecurrent)
 weekdaycurrent = weekday(datecurrent) - 1
 if weekdaycurrent = 0 then
  weekdaycurrent = "日"
 end if

 timecurrent = time()   
 hourcurrent = hour(timecurrent)
 minutecurrent = minute(timecurrent)
 secondcurrent = second(timecurrent)

 if hourcurrent >= 12 then
  noonstatus = " 下 午 "
  hourcurrent = hourcurrent - 12
 else
  noonstatus = " 上 午 "
 end if

 frmdate_time.txtdate1.value = " 佛 曆 " & yearcurrent & " 年 "
 frmdate_time.txtdate2.value = monthcurrent & " 月 " & daycurrent & " 日 "
 frmdate_time.txtdate3.value = " 〈 星 期 " & weekdaycurrent & " 〉 "
 frmdate_time.txttime.value = noonstatus & " " & hourcurrent & " : " & minutecurrent & " : " & secondcurrent

 window.settimeout "date_time()", 1000
end sub