VB小程序，关注我有更多的有趣的VB小程序

实现功能：

从当前日期开始算，到指定日期还有多少天，如：从2019年1月2日到2019年10月1日还有多少天？

实现方法：要进行闰年的判断，当天数达到28或者29或者30或者31天后，天数设为1，月份就自动加1，当月份大于12的时候，月份设为1，年份就自动加1

控件：Label标签、TextBox文本框、Command命令按钮

界面：

代码：

Option Explicit

Dim mon(1 To 12) As Integer

Dim y As Long, m As Long, d As Long '存放指定年月日

Dim yy As Long, mm As Long, dd As Long '存放当前年月日

Private Sub Form_Load()

Label7.FontSize = 15

Command1.FontSize = 15

Label2.FontSize = 15

Label1.FontSize = 15

Label2.Caption = Format(Now(), "yyyy年mm月dd日") & Format(Now(), "HH时MM分SS秒")

End Sub

Sub makemonth()

mon(1) = 31: mon(2) = 28: mon(3) = 31: mon(4) = 30: mon(5) = 31: mon(6) = 30

mon(7) = 31: mon(8) = 31: mon(9) = 30: mon(10) = 31: mon(11) = 30: mon(12) = 31

End Sub

Function isp(ispInteger) As Boolean '判断闰年

If (y Mod 100 <> 0 And y Mod 4 = 0) Or y Mod 400 = 0 Then

isp = True

Else

isp = False

End If

End Function

Private Sub command1_click()

Dim cnt As Long, ss As String, md As Long

y = Text1.Text: m = Text2.Text: d = Text3.Text

ss = Label2.Caption

yy = Val(Mid(ss, 1, 4)): mm = Val(Mid(ss, 6, 2)): dd = Val(Mid(ss, 9, 2))

Call makemonth

cnt = 0

If y >= yy And m >= 1 And m <= 12 And d >= 1 And d <= 31 Then

Do While (y <> yy) Or (m <> mm) Or (d <> dd)

cnt = cnt + 1

dd = dd + 1

md = mon(mm)

If mm = 2 And isp(y) = True Then md = 29 '如果是闰年，2月就是29天

If dd > md Then '当前天数大于当月天数，就把天数设为1，月分加1

dd = 1

mm = mm + 1

End If

If mm > 12 Then '当前月份大于12，就把月分设为1月，年份加1

mm = 1

yy = yy + 1

End If

Loop

Label7.Caption = "离指定日期还有" & Str(cnt) & "天！"

Else

Text1.SetFocus

Label7.Caption = "请输入正确的日期！"

End If

End Sub

想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持我哦！