获取系统日期格式及文本转换为日期

Cellfarmer

如何取得系统短日期的格式，如“yyyy/mm/dd”，或者“dd.mm.yyyy”，没有找到一个简便的方法，于是写了这两个函数。
支持的分隔符:斜杠，减号，小数点。也支持没有分隔符的“yyyymmdd”.
测试发现Excel的各个版本都保留了1900-2-29这个不存在的日期，但VBA.Dateserial()函数不存在这个问题。
转换函数根据系统日期格式把文本转换为日期值，支持“yyyymmdd”这样的格式。
如遇到问题，请在本帖反馈。

microyip

1. Sub a()
   
2.     MsgBox Format(Date, "YYYYMMDD")
   
3.     MsgBox Format(Date, "YYYY-MM-DD")
   
4.     MsgBox Format(Date, "YYYY/MM/DD HH:MM:SS")
   
5. End Sub

复制代码

Cellfarmer

microyip 发表于 2019-12-15 17:18

不是要把日期转换为文本，是取得系统的设置。系统的设置是用户的习惯，一般Excel显示的日期值是随着Windows的设置而变化显示方式的。