首页 > 其他分享 >VBA日历进度

VBA日历进度

时间:2024-10-06 10:50:34浏览次数:9  
标签:DateSerial sumDay 日历 VBA nowDay 窗体 进度 Year Date

hi,大家好!

经过两次台风的洗礼之后,我们这里终于开始降温了,终于感觉到秋天的存在了!时间也在一天天的过去,马上要十一假期了,十一过了,就可以算着过年了,让今天就让我们来算算,离年底还剩余多少?(文章编辑时间为2024-09-23)

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

01、创建窗体

这里我们先来创建一个窗体,在窗体上放两个标签,用于显示进度,放一个文本框显示当前的时间。


VBA日历进度_默认值

日期的文本框默认值输入: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、运行测试

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


VBA日历进度_access_02


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

标签:DateSerial,sumDay,日历,VBA,nowDay,窗体,进度,Year,Date
From: https://blog.51cto.com/willmiao/12177945

相关文章