VBA入门到进阶常用知识代码总结43
第43集 日期与时间专辑
189、 返回当前日期、时间(指本机系统设置的日期和时间)
Sub t1()
Debug.Print Date '返回当前日期
Debug.Print Time '返回当前时间
Debug.Print Now '返回当前日期+时间
End Sub
190、 格式化显示日期Format函数
Sub t2()
Debug.Print Format(Now, “yyyy-mm-dd”) '2018-06-28
Debug.Print Format(Now, “yyyy年mm月dd日”) '2018年06月28日
Debug.Print Format(Now, “yyyy年mm月dd日 h:mm:ss”) '2018年06月28日 10:37:44
Debug.Print Format(Now, “d-mmm-yy”) '英文月份 28-Jun-18
Debug.Print Format(Now, “d-mmmm-yy”) '英文月份 28-June-18
Debug.Print Format(Now, “aaaa”) '中文星期 星期四
Debug.Print Format(Now, “ddd”) '英文星期前三个字母 Thu
Debug.Print Format(Now, “dddd”) '英文星期完整显示 Thursday
End Sub
191、 根据年月日返回日期DateSerial
Sub t3()
Debug.Print VBA.DateSerial(2011, 10, 1) '2011/10/1
End Sub
192、 根据小时分钟返回时间TimeSerial
Sub t4()
Debug.Print VBA.TimeSerial(1, 2, 1) '1:02:01
End Sub
193、 返回年月日小时分秒
Sub t5()
Dim d
d = “2011-10-28 01:10:03”
Debug.Print Year(d) & “年”
Debug.Print Month(d) & “月”
Debug.Print Day(d) & “日”
Debug.Print Hour(d) & “时”
Debug.Print VBA.Minute(d) & “分”
Debug.Print Second(d) & “秒”
End Sub
194、 计算两个日期相隔天数,月数,年数,小时,分种,秒DateDiff
Sub tt1()
Dim d1, d2 As Date
d1 = #11/21/2011#
d2 = #12/1/2011#
Debug.Print “相隔” & (d2 - d1) & “天”
Debug.Print “相隔” & DateDiff(“d”, d1, d2) & “天”
Debug.Print “相隔” & DateDiff(“m”, d1, d2) & “月”
Debug.Print “相隔” & DateDiff(“yyyy”, d1, d2) & “年”
Debug.Print “相隔” & DateDiff(“q”, d1, d2) & “季”
Debug.Print “相隔” & DateDiff(“w”, d1, d2) & “周”
Debug.Print “相隔” & DateDiff(“h”, d1, d2) & “小时”
Debug.Print “相隔” & DateDiff(“n”, d1, d2) & “分种”
Debug.Print “相隔” & DateDiff(“s”, d1, d2) & “秒”
End Sub
195、 计算两时间的差(常用)
Sub tt2() '计算两时间的差
Dim t, x
t = Timer
For x = 1 To 10000000
Next x
Debug.Print Timer - t
End Sub
196、 日期时间加减DateAdd
Sub tt3()
Dim d1, d2 As Date
d1 = “2001-10-1 00:00:00”
Debug.Print VBA.DateAdd(“d”, 10, d1) '加上10天
Debug.Print VBA.DateAdd(“m”, 10, d1) '加上10个月
Debug.Print VBA.DateAdd(“yyyy”, 10, d1) '加上10年
Debug.Print VBA.DateAdd(“yyyy”, -10, d1) '减少10年
Debug.Print VBA.DateAdd(“h”, 10, d1) '加上10小时后的时间
Debug.Print VBA.DateAdd(“n”, 10, d1) '加上10分种后的时间
Debug.Print VBA.DateAdd(“s”, 10, d1) '加上10秒后的时间
End Sub
197、 OnTime方法
安排一个过程在将来的特定时间运行(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。使用 Now + TimeValue(time) 可安排经过一段时间(从现在开始计时)之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。
Dim k
Sub ttt1()
Application.OnTime TimeValue(“15:46:00”), “a” '指定时间运行a过程
End Sub
Sub ttt2()
Application.OnTime Now + TimeValue(“00:00:02”), “a” '现在开始2秒后运行a过程
End Sub
Sub a()
MsgBox “test”
End Sub
'--------------------------------------------------------------------------------------------------
Sub 时间显示()
Dim x
If k = 1 Then
k = 0
End
End If
Range(“a1”) = Format(Now, “h:mm:ss”)
Application.OnTime Now + TimeValue(“00:00:01”), “时间显示”
x = DoEvents '转让控制权,以便让操作系统处理其它的事件。
End Sub
Sub 结束时间显示()
k = 1 '运行此过程,将结束时间显示程序
End Sub
VBA入门到进阶常用知识代码总结43相关推荐
- VBA入门到进阶常用知识代码总结47
第47集 程序优化与提速 205. 减少对象的调用 调用对象是非常非常的耗费资源的,所以一定要尽可能的少调用对象.包括: 工作簿.工作表.单元格以及外引用对象. Sub 在循环中调用单元格() Dim ...
- VBA入门到进阶常用知识代码总结77
第77集 API基础 367. API概述 API(Application Programming Interface,应用程序编程接口)是一些预先定义的函数,目的是提供应用程序与开发人员基于某软件或 ...
- VBA入门到进阶常用知识代码总结40
第40集 正则表达式4 175. () 可以让括号内作为一个整体,取匹配结果的时候,括号中的表达式可以用 \数字引用,\后数字按照从左往右,从外向里的顺序. Sub t29() Dim regx As ...
- Vue3+TypeScript从入门到进阶(六)——TypeScript知识点——附沿途学习案例及项目实战代码
文章目录 一.简介 二.Vue2和Vue3区别 三.Vue知识点学习 四.TypeScript知识点 一.JavaScript和TypeScript 二.TypeScript的安装和使用 1.Type ...
- Webpack从入门到进阶(二)---附沿路学习案例代码
文章目录 Webpack从入门到进阶(一)---附沿路学习案例代码 一.Webpack简介 1.前端发展的几个阶段 2.前端三个框架的脚手架 3.Webpack是什么? 4.webpack和vite ...
- HBase入门至进阶以及开发等知识梳理
HBase入门至进阶以及开发等知识梳理 HBase简介 hadoop简介 Hadoop是一个由Apache基金会所开发的分布式系统基础架构.用户可以在不了解分布式底层细节的情况下,开发分布式程序.充分 ...
- Vue3+TypeScript从入门到进阶(八)——项目打包和自动化部署——附沿途学习案例及项目实战代码
文章目录 一.简介 二.Vue2和Vue3区别 三.Vue知识点学习 四.TypeScript知识点 五.项目实战 六.项目打包和自动化部署 一. 项目部署和DevOps 1.1. 传统的开发模式 1 ...
- 100例Python代码带你从入门到进阶!
以下所有代码全都至少运行一遍,确保可复现.易于理解.逐步完成入门到进阶的学习. 此教程经过我 反复打磨多遍 ,经常为此熬夜,真心不易,文章比较长,看完有用,帮我点个在看或分享支持. 教程包括 62 个 ...
- VBA编程中常用过程代码
VBA编程常用过程代码方案,供大家写代码参考,陆续发表: VBA过程代码6:返回当前单元格的位移 Sub MyNZ() on error resume next ActiveCell.Offset(0 ...
最新文章
- IT人怎能忘记这些开源?
- MySQL的Grant命令
- CCS5.5里DSP工程建及Simulator模式配置
- 杂项题的基本解题思路——2、图片隐写术
- Java图书管理系统练习程序(四)
- 【第二届】Erlang Fans交流会(补充事宜)
- linux文件类型缩写,常见Linux系统目录、文件类型、ls命令、alias命令
- microsoft符合服务器加载符号的解决方案
- access mysql 升迁_随说秋色园从Access升迁到MSSQL过程
- python配置文件读取环境变量_转载:Python项目读取配置的几种方式
- oracle 触发器代码,Oracle触发器实例代码
- AX9000利用docker实现迅雷远程下载2
- rk3288 安卓7.1显示正确的ICCID值
- 服务器kvm切换器维修,服务器数字KVM切换器
- 秒换算 天 时 分 秒
- 城市快速路拥堵治理及一体化交通组织优化经验分享
- android 4.3 刷机,金立GN9005 Android 4.3-4.4 (S5.1 移动4G)一键救砖教程,轻松刷回官方系统...
- [收藏]一些电平转换方法
- 机器人扔瓶子大赛 由瓶子引发的科技狂欢
- PHP 使用parse_ini_file读取文本文档遇到中文乱码问题
热门文章
- Redmi Note 10 root权限 刷机教程,红米note10 root 线刷救砖包
- Python正则匹配判断手机号是否合法
- Android如何播放h.264格式视频
- linux网络测速qerf,www.n5fe.com
- 三分钟带你了解物联网的发展史
- RE0:从零开始的服务器生活(一):双硬盘双系统+无线网卡驱动+最简单的Ubuntu16.04 Nvidia显卡驱动设置
- c语言 gps课程设计,完整版GPS定位系统设计.doc
- win10的wsapp把电脑卡死
- Linux系统启动U盘制作工具
- 乌镇互联网大会——中国最成功的商人花一辈子才悟到的道理(转自知乎)