vb 给定年月日（1900年以后的日期）,求这一天是星期几.不可使用标准函数. 公元1年1月1日是星期一

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/09 05:50:38

Private Sub Command1_Click()
year1 = Text1
month1 = Text2
day1 = Text3
If ((year1 Mod 4 = 0) And (year1 Mod 100 0)) Or (year1 Mod 400 = 0) Then
m2 = 29
Else
m2 = 28
End If
year2 = year1 - 1
res = year2 \ 4 - year2 \ 100 + year2 \ 400 + year2 * 365 + day1 + 1
For k = 1 To month1 - 1
If k = 2 Then
res = res + m2
ElseIf (k = 1) Or (k = 3) Or (k = 5) Or (k = 7) Or (k = 8) Or (k = 10) Then
res = res + 31
Else
res = res + 30
End IfNext
k = res Mod 7
Select Case k
Case 1
Text4 = "日"
Case 2
Text4 = "一"
Case 3
Text4 = "二"
Case 4
Text4 = "三"
Case 5
Text4 = "四"
Case 6
Text4 = "五"
Case 0
Text4 = "六"

End Select
End Su

vb 给定年月日（1900年以后的日期）,求这一天是星期几.不可使用标准函数. 公元1年1月1日是星期一 C语言.求指教!已知公元1年1月1日是星期一.计算输入的年月日是星期几. 已知公元1年1月1日是星期一,计算输入的年月日是星期几?（用C语言编写） c语言,已知1年1月1日是星期一,计算输入的年月日是星期几这个是已经1900年1月1日星期一然后输入年月日算出输入的这个年,月,日是星期几 2006年5月1日是星期一,这年的12月1日是星期几? 已知2002年7月1日是星期一,求2015年元旦是星期几 10月1日是星期一,2008年的10月1日是星期几?2009年的10月1日是星期几? 如果2012年1月1日是星期一,10月1日是星期几 2012年1月16日是星期一,请问;4月5日是星期几? 2012年1月16日是星期一，4月5日是星期几？公元0年1月1日是星期几?是农历的哪一年哪月哪日?