作业帮vb 给定年月日（1900年以后的日期）,求这一天是星期几.不可使用标准函数. 公元1年1月1日是星期一
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 06:41:46
vb 给定年月日（1900年以后的日期）,求这一天是星期几.不可使用标准函数. 公元1年1月1日是星期一
vb 给定年月日（1900年以后的日期）,求这一天是星期几.不可使用标准函数. 公元1年1月1日是星期一
vb 给定年月日（1900年以后的日期）,求这一天是星期几.不可使用标准函数. 公元1年1月1日是星期一
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 Sub