Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/date/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 返回错误值和格式的日期格式_Vba_Date_Excel - Fatal编程技术网

Vba 返回错误值和格式的日期格式

Vba 返回错误值和格式的日期格式,vba,date,excel,Vba,Date,Excel,我有一个奇怪的问题。出于某种原因,我无法理解这段简单的代码返回了错误的值。它将于1985年3月8日回归。如果我将格式设置为“mm/dd/yy”,它将返回正确的日期,这是我不想要的格式。(正如一个注释,如果我在格式中使用“mm”,它将返回1900年1月2日,如果我使用“mmdd”,它将返回1900年11月6日。)这在以前是正常工作的,所以我假设一定发生了一些变化,但我不知道发生了什么 任何帮助都将不胜感激 Sub testdate() Dim today As Date today = F

我有一个奇怪的问题。出于某种原因,我无法理解这段简单的代码返回了错误的值。它将于1985年3月8日回归。如果我将格式设置为“mm/dd/yy”,它将返回正确的日期,这是我不想要的格式。(正如一个注释,如果我在格式中使用“mm”,它将返回1900年1月2日,如果我使用“mmdd”,它将返回1900年11月6日。)这在以前是正常工作的,所以我假设一定发生了一些变化,但我不知道发生了什么

任何帮助都将不胜感激

Sub testdate()    
Dim today As Date
today = Format(Now, "mmddyy")    
MsgBox today    
End Sub

将显示031114

使用
Dim today作为字符串
而不是
Dim today作为日期
。或者使用直接
MsgBox格式(现在是“mmddyy”)
而不是今天的
MsgBox
ah-ha,谢谢,我应该看到的。
Sub testdate()
    Dim todayy As String
    todayy = Format(Now, "mmddyy")
    MsgBox todayy
End Sub