随便输入一个日期，用VB做个计算是星期几！！谢谢！！

Weekday(MyDate)

能不能具体点啊！！我是刚学这个，看不懂！！谢谢！！

二楼代码已经很具体了。
其中，Weekday是一个把时间转化成星期的函数，但是国外习惯，周日是每星期的第一天。另外这个函数第二个参数可以指定以星期几作为每周第一天。
这个函数的返回值是整型。
如下面代码示例：

Dim NowTime As Date
NowTime = Now
Dim i As Integer
i = Weekday(NowTime, vbMonday)
Select Case i
    Case 1
        MsgBox ("星期一")
    Case 2
        MsgBox ("星期二")
    .....’这里省略一部分
End Select

谢谢！！

我的问题是任意输入一个日期算出那天是星期几！！！谢谢！！！

学习。

看到那个select语句了吗？
select语句判断的i变量，你可以给他赋值，这个赋值过程就是你要的所谓你输入日期就可以显示星期几。
假定你添加了txtbox和command按钮控件，你双击command控件进入代码编辑器，把上面的源代码粘贴进来进行一个小小的修改。
i=txtbox.text
这样就实现你说的功能了，当然，你输入时候一定要注意格式，不然会报错的。
谢谢wei

问题是要这个干吗,有什么用吗?

1．WeekdayName：返回星期名称
[格式]：P=WeekdayName(X)
[说明]：X参数可传入1—7，则返回值为“星期日”，“星期一”……，但是在英文windows环境下，返回的是”Sunday”,”Monday”……
[范例]：
P=WeekdayName(1)
结果为：P=”星期日”

2. Weekday:返回日期对应的星期
[格式]：P=Weekday(X)
[说明]：X参数可传入日期，则返回值为1-7,分别代表s = Weekday(Date)
MsgBox s
MsgBox WeekdayName(s)
[范例]：
P=Weekday(Date)
Date为读取系统日期
结果为：P=“？”
？为当前系统日期对应星期数，值为：1-7之间的一个。
s = Weekday(Date)
p = WeekdayName(s)
即返回的是当前日期对应的星期数，值为：“星期日”、“星期一”……，但是在英文windows环境下，返回的是”Sunday”、”Monday”……


所以。你只要：
dim date_s,q
date_s = "2011-3-23" '此变量的值为你自定义的日期
q = WeekdayName(Weekday(date_s))
msgbox q
'即显示定义日期为星期几，格式为：星期…