excel - VBA Excel 中的 VBA DateValue() 错误？

Question

当我使用公式 datevalue("01/01/1900") 时，我得到 1 并格式化为日期，显示为 01/01/1900

当我使用VBA时

.Range("A1").Value = DateValue("01/01/1900")

它在单元格中显示为“02/01/1900”

这怎么可能？

如果我使用例如

.Range("A1").Value = DateValue("01/01/1901")

效果很好!

头融化了!!!

Microsoft 声明 - “使用 Microsoft Excel for Windows 中的默认日期系统，date_text 参数必须表示 1900 年 1 月 1 日到 9999 年 12 月 31 日之间的日期”

Answer 1

简而言之，Excel 的 DateTime 纪元与 VBA 的 DateTime 纪元不同。不过，一旦过了 1900 年 2 月 28 日，它们就会变得相同。

来自Joel Spolksy's blog :

In most modern programming environments, dates are stored as realnumbers. The integer part of the number is the number of days sincesome agreed-upon date in the past, called the epoch. In Excel, today'sdate, June 16, 2006, is stored as 38884, counting days where January1st, 1900 is 1.

I started working through the various date and time functions in Basicand the date and time functions in Excel, trying things out, when Inoticed something strange in the Visual Basic documentation: Basicuses December 31, 1899 as the epoch instead of January 1, 1900, butfor some reason, today's date was the same in Excel as it was inBasic.

Huh?

I went to find an Excel developer who was old enough to remember why.Ed Fries seemed to know the answer.

"Oh," he told me. "Check out February 28th, 1900."

"It's 59," I said.

"Now try March 1st."

"It's 61!"

"What happened to 60?" Ed asked.

"February 29th. 1900 was a leap year! It's divisible by 4!"

"Good guess, but no cigar," Ed said, and left me wondering for awhile.

Oops. I did some research. Years that are divisible by 100 are notleap years, unless they're also divisible by 400.

1900 wasn't a leap year.

"It's a bug in Excel!" I exclaimed.

"Well, not really," said Ed. "We had to do it that way because we needto be able to import Lotus 123 worksheets."

"So, it's a bug in Lotus 123?"

"Yeah, but probably an intentional one. Lotus had to fit in 640K.That's not a lot of memory. If you ignore 1900, you can figure out ifa given year is a leap year just by looking to see if the rightmosttwo bits are zero. That's really fast and easy. The Lotus guysprobably figured it didn't matter to be wrong for those two months wayin the past. It looks like the Basic guys wanted to be anal aboutthose two months, so they moved the epoch one day back."

"Aargh!" I said, and went off to study why there was a checkbox in theoptions dialog called 1904 Date System.

<小时/>

以下信息取自this Super User answer .

<小时/>

如 Microsoft KB 214058 中所述:

Days of the week before March 1, 1900 are incorrect in Excel

MORE INFORMATION

When the date system in Microsoft Excel was originally created, it was designed to be fully compatible with date systems used by other spreadsheet programs.

However, in this date system, the year 1900 is incorrectly interpreted as a leap year. Because there is no February 29 ("leap day") in the year 1900, the day of the week for any date before March 1, 1900 (the day after the "leap day"), is not computed correctly.

“其他电子表格程序”指Lotus 1-2-3 ，这在当时相当流行，并错误地认为 1900 年是闰年。 KB 214326对此进行了更详细的解释。 :

Excel 2000 incorrectly assumes that the year 1900 is a leap year

MORE INFORMATION

When Lotus 1-2-3 was first released, the program assumed that the year 1900 was a leap year, even though it actually was not a leap year. This made it easier for the program to handle leap years and caused no harm to almost all date calculations in Lotus 1-2-3.

When Microsoft Multiplan and Microsoft Excel were released, they also assumed that 1900 was a leap year. This assumption allowed Microsoft Multiplan and Microsoft Excel to use the same serial date system used by Lotus 1-2-3 and provide greater compatibility with Lotus 1-2-3. Treating 1900 as a leap year also made it easier for users to move worksheets from one program to the other.

Although it is technically possible to correct this behavior so that current versions of Microsoft Excel do not assume that 1900 is a leap year, the disadvantages of doing so outweigh the advantages.

If this behavior were to be corrected, many problems would arise, including the following:

• Almost all dates in current Microsoft Excel worksheets and other documents would be decreased by one day. Correcting this shift would take considerable time and effort, especially in formulas that use dates.
• Some functions, such as the WEEKDAY function, would return different values; this might cause formulas in worksheets to work incorrectly.
• Correcting this behavior would break serial date compatibility between Microsoft Excel and other programs that use dates.

If the behavior remains uncorrected, only one problem occurs:

• The WEEKDAY function returns incorrect values for dates before March 1, 1900. Because most users do not use dates before March 1, 1900, this problem is rare.