hi,大家好!
经过两次台风的洗礼之后,我们这里终于开始降温了,终于感觉到秋天的存在了!时间也在一天天的过去,马上要十一假期了,十一过了,就可以算着过年了,让今天就让我们来算算,离年底还剩余多少?(文章编辑时间为2024-09-23)
那我们就来看看怎么做吧!
01、创建窗体
这里我们先来创建一个窗体,在窗体上放两个标签,用于显示进度,放一个文本框显示当前的时间。
日期的文本框默认值输入:Date()
02、添加代码
接着,我们就可以来添加代码了,我们直接在窗体的加载事件添加代码就可以了
Private Sub Form_Load()
Dim sumDay As Long
Dim nowDay As Long
sumDay = (DateSerial(Year(Date) + 1, 1, 1) - 1) - DateSerial(Year(Date), 1, 1) + 1
nowDay = Date - DateSerial(Year(Date), 1, 1) + 1
Me.Label1.Caption = "本年进度" & Format(nowDay / sumDay, "percent")
sumDay = (DateSerial(Year(Date), Month(Date) + 1, 1) - 1) - DateSerial(Year(Date), Month(Date), 1) + 1
nowDay = Date - DateSerial(Year(Date), Month(Date), 1) + 1
Me.Label0.Caption = "本月进度" & Format(nowDay / sumDay, "percent")
End Sub
03、运行测试
最后,就是运行测试了,我们来运行看一下效果
那到这里就可以了,大家快去试一下吧!
标签:DateSerial,sumDay,日历,VBA,nowDay,窗体,进度,Year,Date From: https://blog.51cto.com/willmiao/12177945