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

实施功能:

从当前日期到约定日期有多少天，比如2019年1月2日到2019年10月1日有多少天？

方法:判断闰年，当天数达到28或29或30或31天时，将天数设为1，当月自动加1；当月份大于12时，月份设置为1，年份自动增加1。

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

界面:

代码:

选项显式

Dim mon(1到12)为整数

Dim y As Long，m As Long，d As Long '存储指定的年、月、日。

Dim yy As Long，mm As Long，dd As Long '存储当前年、月、日和年。

私有子窗体_Load()

标签7。FontSize = 15

命令1。FontSize = 15

标签2。FontSize = 15

标签1。FontSize = 15

2.标签。caption = format (now()，" YY YY mm dd DD") & Format(Now()，" HH小时mm分SS秒")

末端接头

子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

末端接头

判断闰年的布尔型函数(ISP整数)

if(y Mod 100 & lt；& gt0且y Mod 4 = 0)或y Mod 400 = 0

isp =真

其他

isp =假

如果…就会结束

结束功能

私有子命令1_click()

Dim cnt为Long，ss为String，md为Long

y =文本1。文本:m =文本2。文本:d =文本3。文本

ss =标签2。标题

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

呼叫makemonth

cnt = 0

如果y & gt= yy和m & gt= 1且m & lt= 12且d & gt= 1且d & lt那么= 31

do While(y & lt；& gtyy)或者(m & lt& gtmm)或(d & lt& gtdd)

cnt = cnt + 1

dd = dd + 1

md = mon(毫米)

如果mm = 2，isp(y) = True，那么md = 29 '如果是闰年，二月是29天。

如果dd & gtMd Then '如果当前天数大于当前月份的天数，则将天数设置为1，并将每月分钟数加1。

dd = 1

mm = mm + 1

如果…就会结束

如果mm & gt12 Then '如果当前月份大于12，则将月份设置为1月，并将年份加1。

mm = 1

yy = yy + 1

如果…就会结束

环

7.标签7。Caption = "离指定日期还有时间" & Str(CNT)& amp；“天啊！”

其他

文本1。获得焦点

7.标签7。Caption = "请输入正确的日期！"

如果…就会结束

末端接头

更多VB小程序请关注我。点击下面的广告，更好的支持我！