第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
VBA入门到进阶常用知识代码总结43
最新推荐文章于 2024-04-25 08:37:42 发布