搜索
首页 电脑/网络 程序设计 VB

请帮忙检查这段VBScript的错误

  嗯,很简单的。Hello! Sub Timer() Dim tim,yea,mon,dat,wee,hou,min,sec,ap,t tim=Now() yea=Year(tim) mon=Month(tim) dat=Day(tim) wee=Weekday(tim) hou=Hour(tim) min=Minute(tim) sec=Second(tim) ap="AM" t="时钟" Select Case wee Case 0:wee="星期日" Case 1:wee="星期一" Case 2:wee="星期二" Case 3:wee="星期三" Case 4:wee="星期四" Case 5:wee="星期五" Case 6:wee="星期六" End Select If hou11 then ap="PM" t=yea+"年"+mon+"月"+dat+"日 "+wee+" "+hou+":"+min+":"+sec+" "+ap tElementById("layer0")。
  innerText=t tTimeout "Timer()",1000 End Sub Sub window_onload() Timer() End Sub在给t赋值的那行出问题。如何解决?谢谢。

全部回答

2018-03-30

32 0

T= Format(Now, "yyyy年mm月dd日h小时m分钟s秒am/pm") 就这样就可以达到你要的结果了!

2018-03-30

39 0

建议不要用vbscript,除了微软的浏览器,其他的浏览器对vbscript的支持都很不好。 欢迎访问我的论坛: 期待您的支持:)

类似问题换一批

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
VB
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
互联网
反病毒
软件
程序设计
VB
数据库
C/C++
JAVA相关
C#/.NET
VC++
汇编语言
其他编程语言
VB
VB
举报
举报原因(必选):
取消确定举报