Private Sub cmd1_Click()
DS = Weekday(Date)
If DS = 1 Then
DF = "星期日"
ElseIf DS = 2 Then
DF = "星期一"
ElseIf DS = 3 Then
DF = "星期二"
ElseIf DS = 4 Then
DF = "星期三"
ElseIf DS = 5 Then
DF = "星期四"
ElseIf DS = 6 Then
DF = "星期五"
ElseIf DS = 7 Then
DF = "星期六"
End If
P1.Print " "
P1.Print Format(Now, "今天是yyyy年mm月d日，") & DF
End Sub
Private Sub cmd1_Click()
p1.Print Now
End Sub
代码写好了，要参考吗
题目看不清
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024