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开发易登软件7 天前
Access调用Azure翻译:轻松实现系统多语言切换
后端·python·低代码·flask·vba·access·access开发
专注VB编程开发20年15 天前
EXCEL VBA-从X行复制数据插入到Y_Z行
excel·复制数据·vba·插入数据·函数优化
专注VB编程开发20年17 天前
VB6.0找不到该引用word,excel“Microsoft Excel 16.0 Object Library”解决方法
word·excel·vba·vsto
林月明18 天前
【VBA】点击按钮,实现将Excel表A数据按格式填入表B
excel·vba
专注VB编程开发20年20 天前
专业VBA代码优化服务邀约‌,OFFICE excel计算优化,wrod报表生成
vba·vba优化
专注VB编程开发20年21 天前
VBA ADO使用EXCEL 8.0驱动读取 .xlsx 格式表格数据-有限支持
excel·vba·ado·excel 8.0·ace.oledb
yivifu1 个月前
使用VBA辅助编辑出具有完美导航功能的Word长文档
word·办公软件·vba
Access开发易登软件1 个月前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表1 个月前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
Lilixxs1 个月前
VBA 中使用 ADODB 操作 SQLite 插入中文乱码问题
数据库·中间件·sqlite·乱码·vba·odbc·adodb