爸爸去哪儿第十期完整版,太空宝箱攻略,战地机甲斯卡纳
返回当前日期、时间、格式化显示日期、根据年月日返回日期、根据小时分种返回时间、计算两个日期相隔天数,月数,年数,小时,分种,秒,感兴趣的朋友可以看看。
Option Explicit
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
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
'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()
Debug.Print VBA.DateSerial(2011, 10, 1)
End Sub
'4 根据小时分种返回时间
Sub t4()
Debug.Print VBA.TimeSerial(1, 2, 1)
End Sub
'5 返回年月日小时分秒
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
'1 计算两个日期相隔天数,月数,年数,小时,分种,秒
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
Sub tt2() '计算两时间的差
Dim t, x
t = Timer
For x = 1 To 10000000
Next x
Debug.Print Timer - t
End Sub
'2 日期时间加减
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
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
同一个Excel 文件中的任意多个工作表合并到一个表中的神技
Excel 根据身份证直接算出退休年月 用哪个函数 如何区别男女
Excel 中如何选择正确的地图类型及各种地图类型的应用场景
根据入职日期用Excel 计算工龄补贴 满1年补贴50满2年补贴100
Excel 微图表对数据进行可视化处理实现数据与图表的一体化衔接
被雪藏的datedif()函数的典型用法 适用最新版本的Excel
EXCEL 数据分析之合并单元格后按合计得分排序的整个心路历程
Excel-VBA批量将表达式转换为运算结果把代表的汉字给替换掉
网友评论