VBA基础知识整理（日期，时间）

日期和时间计算
'1 计算两个日期相隔天数,月数,年数,小时,分种,秒

Sub tt1()Dim d1, d2 As Dated1 = #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-----------------------------------------------------------------
Sub tt2() '计算两时间的差Dim t, xt = TimerFor x = 1 To 10000000Next xDebug.Print Timer - t
End Sub

'2 日期时间加减

Sub tt3()Dim d1, d2 As Dated1 = "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

日期，时间返回
'1 返回当前日期、时间（指本机系统设置的日期和时间）

Sub t1()Debug.Print Date '返回当前日期Debug.Print Time '返回当前时间Debug.Print Now  '返回当前日期+时间
End Sub

'2 格式化显示日期

   Sub t2()Debug.Print Format(Now, "yyyy-mm-dd")Debug.Print Format(Now, "yyyy年mm月dd日")Debug.Print Format(Now, "yyyy年mm月dd日 h:mm:ss")Debug.Print Format(Now, "d-mmm-yy") '英文月份Debug.Print Format(Now, "d-mmmm-yy") '英文月份Debug.Print Format(Now, "aaaa") '中文星期Debug.Print Format(Now, "ddd") '英文星期前三个字母Debug.Print Format(Now, "dddd") '英文星期完整显示End Sub

'3 根据年月日返回日期

Sub t3()MsgBox VBA.DateSerial(2011, 10, 1)
End Sub

'4 根据小时分种返回时间

   Sub t4()MsgBox VBA.TimeSerial(1, 2, 1)End Sub

'5 返回年月日小时分秒

  Sub t5()Dim dd = "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

计时器ontime

Dim k
Sub ttt1()Application.OnTime TimeValue("15:46:00"), "A"
End Sub
-------------------------------------------------------------------
Sub a()MsgBox "test"
End Sub
------------------------------------------------------------------
Sub ttt2()  '现在开始多少时间后Application.OnTime Now + TimeValue("00:00:02"), "A"
End Sub
------------------------------------------------------------------
dim k
Sub 时间显示()Dim xIf k = 1 Thenk = 0EndEnd IfRange("a1") = Format(Now, "h:mm:ss")Application.OnTime Now + TimeValue("00:00:01"), "时间显示"x = DoEvents
End Sub----------------------------------------
Sub 结束时间显示()k = 1
End Sub

VBA基础知识整理（日期，时间）相关推荐

VBA基础知识整理（字典，自定义函数）
字典基本概念 '1 什么是VBA字典?'字典(dictionary)是一个储存数据的小仓库.共有两列.'第一列叫key , 不允许有重复的元素.'第二列是item,每一个key对应一个item,本列 ...
VBA基础知识整理（文本文件操作）
txt文件的读写 'Open 文件名 for 打开方式 as 文件编号'打开方式:'Input :只能读,不能写'Append:允许读也允许写,如果存在文件就追加记录,如果没有就新建文件'Output ...
VBA基础知识整理（数据类型）
'1 数据类型综述 '在VBA中的数据类型有整数.文本.对象等类型.这些不同的类型有着特定的作用,在进行运算时也会占用 '不同大小的内存,所以我们在编写程序时为了提高运行效率,一般都要定义数据的类型. ...
VBA基础知识整理（文件操作）
文件操作 '1 判断A.Xls文件是否存在 Sub W1()If Len(Dir("d:/A.xls")) = 0 ThenMsgBox "A文件不存在"Els ...
VBA基础知识整理（图象图表）
shape对象的类型和属性 'Shapes 对象, '该对象代表工作表或图形工作表上的所有图形,它是sheets和chart的子对象(属性) Sub t2()On Error Resume NextD ...
HTML5的基础知识整理
HTML5 概述:HTML5是HTML最新的修订版本,2014年10月由万维网联盟(W3C)完成标准制定. HTML5的设计目的是为了在移动设备上支持多媒体. 文章目录 HTML5 前言一.HTMl ...
python常用变量名_python基础知识整理
Python Python开发 Python语言 python基础知识整理序言:本文简单介绍python基础知识的一些重要知识点,用于总结复习,每个知识点的具体用法会在后面的博客中一一补充程序: 一 ...
计算机二级c语基础知识,计算机二级C语基础知识整理.doc
计算机二级C语基础知识整理 1.1 算法算法:是一组有穷指令集,是解题方案的准确而完整的描述.通俗地说,算法就是计算机解题的过程.算法不等于程序,也不等于计算方法,程序的编制不可能优于算法的设计. ...
centos7创建asm磁盘_Oracle ASM 磁盘组基础知识整理（收藏版）
为什么要写这么一篇基础知识呢?还是有那么一点点原因的,不是胡编乱造还真是有真实存在的事件的,前两周里因一套生产环境数据库磁盘不足无法对其进行表空间扩容,需要向存储岗申请存储资源,当存储岗划好资源加完存 ...

VBA基础知识整理（日期，时间）

VBA基础知识整理（日期，时间）相关推荐

最新文章

热门文章