如何定义日期格式，使其不受设置的电脑日期格式影响？

naanhuanbao

如何定义日期格式，使其不受设置的电脑日期格式影响？

yylucke

去掉前面的dim语句
因为你的dim语句把日期型变量定义为了系统格式，所以哪怕你用format处理了，结果又被”聪明“的系统变回系统格式。故，删除dim定义语句。


注意：ff和ff1两个变量，ff被事先定义为date数据型，而ff1没有被定义。

f8b1987

1.     ymd = CDate("2020/09/27")
   
2.     ymd2 = CDate("2020-09-27")
   
3.     ymd3 = CDate(Format("20200927", "0000-00-00"))
   
4.    
   
5.     MsgBox Year(ymd) & "/" & Format(Month(ymd), "00") & "/" & Format(Day(ymd), "00")

复制代码

f8b1987

还有一种办法，调用工作表函数

1. aa = Application.WorksheetFunction.Text(Date, "YYYY/MM/DD")

复制代码

naanhuanbao

yylucke 发表于 2020-9-27 11:29
去掉前面的dim语句
因为你的dim语句把日期型变量定义为了系统格式，所以哪怕你用format处理了，结果又被” ...

感谢详尽的解答。但是，去掉dim后，变量类型就成了“ Variant/String”，输出结果类型就成了String字符串型（如得到结果为“20209/27”，而不是Date日期型）。
3楼的解答，将变量一经CDate函数转换，输出结果就马上自动转换成电脑系统的格式了（如20-9-27 星期日）。
至此，还是无法解决我希望得到的输出结果：yyyy/mm/dd.（即：只得到年/月/日，且为日期类型）。

yylucke

彻底解决的办法
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Sub tt()
SetLocaleInfo GetSystemDefaultLCID(), &H1F, "yyyy-MM-dd" '设置系统日期短格式
End Sub

sancoz

设置一下FormatDateTime