【Access示例】日历进度小示例/年度进度/月度进度

示例的当前日期是【2018-1-12】，2018年刚好12天，2018总共365天，1月份过去2天，1月份总天数31天

VBA代码：

Dim sumDay As Long     Dim nowDay As Long          Me.Caption = '【Access示例】日历进度'     sumDay = (DateSerial(Year(Date)   1, 1, 1) - 1) - DateSerial(Year(Date), 1, 1)   1     nowDay = Date - DateSerial(Year(Date), 1, 1)   1     Debug.Print sumDay, nowDay    Me.txtYear = 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     Debug.Print sumDay, nowDay    Me.txtMonth = Format(nowDay / sumDay, 'percent')

图示：