VBA日历进度

hi，大家好！

经过两次台风的洗礼之后，我们这里终于开始降温了，终于感觉到秋天的存在了！时间也在一天天的过去，马上要十一假期了，十一过了，就可以算着过年了，让今天就让我们来算算，离年底还剩余多少？

那我们就来看看怎么做吧！

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、运行测试

最后，就是运行测试了，我们来运行看一下效果

那到这里就可以了，大家快去试一下吧！