VB中如何在标签上显示当前星期,星期几用汉字,程序代码怎么编呀

nowdate = now form1caption = weekdayname(weekday(nowdate)) 查下weekdayname和weekday的用法就知道了

Private Sub Form_Click()

Dim a(7) As String, b(7) As String

a(1) = "日": a(2) = "一": a(3) = "二": a(4) = "三": a(5) = "四": a(6) = "五": a(7) = "六"

For i = 1 To 7

b(i) = "星期" & a(i)

Next i

n = Weekday(Now)

Select Case n

Case n = 1 To 7

Label1 = b(n)

End Select

End Sub

在界面里建一个标签，把代码复制进代码编辑器就OK了。

周数=INT(（now-dateserial（year（now），1,1））/7)

大致写成这样吧

有不懂的再问我

还有，增加一个判断int（now）-dateserial（year（now），1,1）） mod 7，如果不能整除，要再加1

我用你的代码运行后没有出错啊，估计是你的窗体中没有放入显示结果的标签控件（Label），name为lblMsg

另外，你这种计算星期的方法太原始了吧？VB本身有现成的函数可以做这种事：

Option Explicit

Private Sub Command1_Click()

lblMsgCaption = WeekdayName(Weekday(DateSerial(txtY, txtM, txtD)))

End Sub

就一行代码可以解决的问题，你搞得这么复杂

select case Weekday(Date, 2)

case 1

msgbox "今天是星期一"

case 2

msgbox "今天是星期二"

case 3

msgbox "今天是星期三"

case 4

msgbox "今天是星期四"

case 5

msgbox "今天是星期五"

case 6

msgbox "今天是星期六"

case 7

msgbox "今天是星期日"

end select

以上就是关于VB中如何在标签上显示当前星期,星期几用汉字,程序代码怎么编呀全部的内容，包括:VB中如何在标签上显示当前星期,星期几用汉字,程序代码怎么编呀、vb怎么在标签上显示当前系统星期几、Excel 如何用VBA获取当前日期所在的周数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！