Question

vb实现输入某一天年月日,计算这一天在本年中的天数，有图最好，谢谢了

Answer 1

Private Sub Command1_Click()

  s = InputBox("请输入一个日期yyyymmdd:")

  y = CInt(Left(s, 4))

  m = CInt(Mid(s, 5, 2))

  d = CInt(Right(s, 2))

  For i = 1 To m - 1

    Select Case i

    Case 1, 3, 5, 7, 8, 10

      d = d + 31

    Case 4, 6, 9, 11

      d = d + 30

    Case 2

      d = d + 28

    End Select

  Next i

  If m > 2 And (y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0) Then d = d + 1

  MsgBox (s & "是" & y & "年的第" & d & "天")    

End Sub