UC知道用EXCEL VBA计算任何一天是星期几
来源：百度知道 编辑：UC知道 时间：2024/06/17 18:06:42
请高手指教，函数太简单了，我不要函数，要程序，要纯代码。
还要考虑是否为闰年的问题，要个命令按钮，输入完日期后按下按钮就显示星期几，求高手指点
大哥我现在就必须用代码，不用函数，练习写代码呢。用函数有啥学的。再重申一下，不要给我调用函数，@@要纯代码@@。
-----------------————————————————————
写的那个不也是调用函数了吗，我说了不许用函数。要手动代码计算。你连闰年的计算都没有.
自己写个函数可以。
还要考虑是否为闰年的问题，要个命令按钮，输入完日期后按下按钮就显示星期几，求高手指点
大哥我现在就必须用代码，不用函数，练习写代码呢。用函数有啥学的。再重申一下，不要给我调用函数，@@要纯代码@@。
-----------------————————————————————
写的那个不也是调用函数了吗，我说了不许用函数。要手动代码计算。你连闰年的计算都没有.
自己写个函数可以。
呵呵,超级简单,
插入宏的过程就不说了,输入下面的即可:
Sub xq()
Dim j As Integer
Dim xq
j = Weekday(CDate(Range("A1")), vbSunday)
Select Case j
Case 1
xq = "星期日"
Case 2
xq = "星期一"
Case 3
xq = "星期二"
Case 4
xq = "星期三"
Case 5
xq = "星期四"
Case 6
xq = "星期五"
Case 7
xq = "星期六"
End Select
MsgBox "您输入的时间是:" & Year(Range("A1")) & "年" & Month(Range("A1")) & "月" & Day(Range("A1")) & "日." & xq, vbOKOnly, "提示"
End Sub
如果需要插入到那个单元格中，在MSGbox前加如Range("A5") = xq就可以,如果不在当前工作表中,修改为Sheets("表名").Range("A5")
用代码太麻烦了，有现成的函数为啥不用呢：
=WEEKDAY(a1,2)
不许用函数，是不是包括自己也不能写函数。那比较复杂哦，写出来估计也看不懂
Sub Macro1()
Dim s As String
s = InputBox("请输入日期:", , Date)
MsgBox ("