XL2000: 在宏中返回的日期是四年份太早

文章翻译 文章翻译
文章编号: 213593 - 查看本文应用于的产品
本文已归档。它按“原样”提供,并且不再更新。
展开全部 | 关闭全部

症状

当您运行一个宏,该宏从一个工作表单元格使用日期宏所返回的日期时可能是四个年份和一天早于实际日期。

原因

选项 对话框中 计算方式 选项卡中选择 1904年日期系统 和满足下列条件之一为真时,宏将返回一个日期就是四年零一天前面:

  • 该宏使用 Value2 属性时它将存储在该日期。

    -或者-

  • 该宏时它将存储在该日期,在 Microsoft Excel 应用程序库中使用函数。

替代方法

下面的宏确定 1904 年日期系统处于选中状态,将日期转换到 1900年的日期系统,返回预期的日期。

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证。这包括,但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。
若要将该宏,请按照下列步骤操作:

  1. 插入一个新的工作簿、 在 文件 菜单上单击 新建,单击 工作簿,和然后单击 确定
  2. 工具 菜单上单击 选项,单击 计算方式 选项卡,然后单击 1904年日期系统。依次 确定
  3. 在 Sheet1 中键入以下日期:
          A1: 7/5/96
          A2: 5/11/96
          A3: 4/28/96
    					
  4. 工具 菜单上指向 ,单击 Visual Basic 编辑器。在 Visual Basic 编辑器中在 插入 菜单上单击 模块
  5. 在模块工作表中键入下面的代码:
          Sub DateTest()
             'dimension date variable
             Dim dDate As Date
    
             'store minimum date in range into variable
             dDate = Application.Min(Worksheets(1).Range("A1:A3"))
    
             'display stored date
             MsgBox "Stored date" & Chr(13) & dDate
    
             'check for 1904 date system
             If Application.ThisWorkbook.Date1904 Then
    
              'convert 1904 base date to 1900 base date
              dDate = DateSerial(Year(dDate) + 4, Month(dDate), Day(dDate) + 1)
    
              'display converted date
                MsgBox "Converted date" & Chr(13) & dDate
    
             Else
                MsgBox "1904 date system is not enabled"
             End If
          End Sub
    						
  6. 若要进行该宏在 工具 菜单上指向 ,单击 。选择 DateTest,单击 运行
第一个消息框将显示具有日期 4/27/92,这是四个年份和一天早于最早的日期范围内的单元格区域 A1 到 A3。在第二个消息框显示正确的"转换"日期 4/28/96。

状态

Microsoft 已经确认这是在本文开头列出的 Microsoft 产品中的问题。

更多信息

Visual Basic 应用程序不会不会自动检测 1904 年日期系统,并且将转换为所需日期。如果用户既在 Microsoft Excel 中选择 1904 年日期系统,运行一个宏工作表上的单元格从读取日期的不同之处可能四年零一天 (额外的一天,闰年的帐户)。例如对于 9/1/96 1904 年日期系统中的日期可能会返回 8/31/92 的日期。

在 Visual Basic 中,当您选择 1904 年日期系统和宏使用 Value2 属性时它将存储的日期进行时,日期系统差异可能会发生。

属性

文章编号: 213593 - 最后修改: 2013年10月14日 - 修订: 4.2
这篇文章中的信息适用于:
  • Microsoft Excel 2000 标准版
关键字:?
kbnosurvey kbarchive kbmt kbbug kbdtacode kbpending kbprogramming KB213593 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 213593
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com