[已解决][求助]VBA中的函数

过江龙

请问高手，在BVA中表示星期几的函数是哪个？先谢谢啦。

最佳答案

月排行榜 / 总排行榜

不怎么样

2008-9-28 12:52

用 WeekdayName 返回 星期值，再用right函数取回汉字数字。示例：

Dim MyDate, MyWeekDay, MyWeekdayName
MyDate = #9/28/2008#            ' 指定一日期。
MyWeekDay = Weekday(MyDate)   ' MyWeekDay 的值为 1，因为 MyDate 是星期日。
MyWeekdayName = Right(WeekdayName(MyWeekDay, True), 1) ' MyWeekDay 的值为 星期日

'常数     值  描述
'VbSunday 1 星期日（缺省值）
'vbMonday 2 星期一
'vbTuesday 3 星期二
'vbWednesday 4 星期三
'vbThursday 5 星期四
'vbFriday 6 星期五
'vbSaturday 7 星期六

MsgBox MyWeekDay & "  " & MyWeekdayName

跳转到最佳答案楼层

过江龙

要沉了，先顶一下！期待中！

不怎么样

本示例使用 Weekday 函数将日期转换为星期几。

Dim MyDate, MyWeekDay
MyDate = #February 12, 1969#    ' 指定一日期。
MyWeekDay = Weekday(MyDate)    ' MyWeekDay 的值为 4，因为 MyDate 是星期四。

yuhe0008

weekday

过江龙

QUOTE:

以下是引用不怎么样在2008-9-28 11:41:00的发言：

本示例使用 Weekday 函数将日期转换为星期几。

Dim MyDate, MyWeekDay
MyDate = #February 12, 1969#    ' 指定一日期。
MyWeekDay = Weekday(MyDate)    ' MyWeekDay 的值为 4，因为 MyDate 是星期四。

那么又如何将MyWeekDay 的值“4”转换为“四”、将“7”转换为“日”呢？谢谢。

[此贴子已经被作者于2008-9-28 12:07:51编辑过]

不怎么样

用 WeekdayName 返回 星期值，再用right函数取回汉字数字。示例：

Dim MyDate, MyWeekDay, MyWeekdayName
MyDate = #9/28/2008#            ' 指定一日期。
MyWeekDay = Weekday(MyDate)   ' MyWeekDay 的值为 1，因为 MyDate 是星期日。
MyWeekdayName = Right(WeekdayName(MyWeekDay, True), 1) ' MyWeekDay 的值为 星期日

'常数     值  描述
'VbSunday 1 星期日（缺省值）
'vbMonday 2 星期一
'vbTuesday 3 星期二
'vbWednesday 4 星期三
'vbThursday 5 星期四
'vbFriday 6 星期五
'vbSaturday 7 星期六

MsgBox MyWeekDay & "  " & MyWeekdayName

过江龙

谢谢大家的热情参与!!!!已经解决了！！！！！