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

结果如下:

相关推荐
Prodigy_kyw19 小时前
VBA初学3----实战(VBA实现Excel转csv)
excel·vba·csv
yivifu15 天前
利用VBA将Word文档修改为符合EPUB3标准规范的HTML文件
word·vba·epub
Learn-Share_HY1 个月前
[Excel VBA]如何製作買三送一優惠條件的POS結帳介面?
excel·vba·office·自動化·自動化辦公
shandianchengzi1 个月前
【工具】Quicker/VBA|PPT 在指定位置添加有颜色的参考线
powerpoint·vba·ppt·quicker
Access开发易登软件1 个月前
Access链接Azure SQL
数据库·后端·sql·flask·vba·azure·access
专注VB编程开发20年1 个月前
在 VB6 中强制设置 Word 文档的纸张尺寸
ui·c#·word·vba·vb6
通义灵码1 个月前
在 Excel 中使用通义灵码辅助开发 VBA 程序
人工智能·阿里云·excel·vba·通义灵码
課代表2 个月前
Office 中 VBE 的共同特点与区别
word·excel·vba·office·vbe
莫负初2 个月前
Excel使用VBA批量计算指定列的中位数和标准差并筛选指定列数据
数据分析·自动化·excel·vba·方差·标准差
課代表2 个月前
Excel VBA 词频统计宏
ui·excel··vba·模块·字典