2 chalisen chalisen 于 2016.01.31 17:02 提问

此代码错在哪里?好像不容易解决啊!大家来试试!见下图

大家看,星期错了,今天应该星期天!我的代码错在哪里呢?
请朋友们贴出具体代码,谢谢了!
我把代码贴出来,便于大家修改:
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub

图片说明

5个回答

caozhy
caozhy   Ds   Rxr 2016.01.31 21:06

weekday返回的是数字,比如星期四返回4,然后再用weekdayname转换为“星期四”

chalisen
chalisen 根据老师的提示我做出来了,谢谢!谢谢!
接近 2 年之前 回复
caozhy
caozhy 回复chalisen: 采纳了,写给你
接近 2 年之前 回复
chalisen
chalisen 请老师根据我贴出的代码,修改出一个完整的代码,再贴出给我好吗?
接近 2 年之前 回复
caozhy
caozhy   Ds   Rxr 2016.01.31 21:03

是weekday函数,而不是weekdayname

caozhy
caozhy   Ds   Rxr 2016.01.31 21:04
showbo
showbo   Ds   Rxr 2016.01.31 17:49

使用系统默认的就好了。不要指定vbMonday

http://www.zhujiangroad.com/program/VbScript/56458.html

chalisen
chalisen 去掉vbMonday吗?结果还是星期一!
接近 2 年之前 回复
cuiwei1026522829
cuiwei1026522829   Ds   Rxr 2016.01.31 18:23
chalisen
chalisen 谢谢!
接近 2 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!