012集——显示高考天数倒计时——vba实现

以下代码实现高考倒计时:

复制代码
Sub 高考倒计时()
高考日期 = CDate("06,07," & Year(Date))
If Date > 高考日期 Then
  高考日期 = CDate("06-07-" & Year(Date) + 1)
End If
年月日 = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
txt = "今天是" & 年月日 & vbCr & vbCr
txt = txt & "距离" & Year(高考日期) & "年高考还有"
txt = txt & 高考日期 - Date & "天"
 MsgBox txt, 0, "高考倒计时:qq443440204"
End Sub

结果如下:

相关推荐
Access开发易登软件2 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表2 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
Lilixxs2 天前
VBA 中使用 ADODB 操作 SQLite 插入中文乱码问题
数据库·中间件·sqlite·乱码·vba·odbc·adodb
只会HelloWorld的华娃15 天前
VBA模板记录
microsoft·vba
Access开发易登软件1 个月前
Access开发右下角浮窗提醒
microsoft·vba·access·access开发
Access开发易登软件1 个月前
Access开发一键删除Excel指定工作表
服务器·前端·后端·excel·vba·access·access开发
Prodigy_kyw2 个月前
VBA初学3----实战(VBA实现Excel转csv)
excel·vba·csv
yivifu3 个月前
利用VBA将Word文档修改为符合EPUB3标准规范的HTML文件
word·vba·epub
Learn-Share_HY3 个月前
[Excel VBA]如何製作買三送一優惠條件的POS結帳介面?
excel·vba·office·自動化·自動化辦公
shandianchengzi3 个月前
【工具】Quicker/VBA|PPT 在指定位置添加有颜色的参考线
powerpoint·vba·ppt·quicker