Datum in einem Makro zurückgegeben wird vier Jahre zu früher

Wenn Sie ein Makro ausführen, ein Datum aus einer Tabellenzelle das Datum verwendet, von dem Makro zurückgegeben, können vier Jahre und einen Tag früher als das tatsächliche Datum sein.

Ein Makro in der Registerkarte Berechnen im Dialogfeld Optionen zurückgegeben ein Datum, vier Jahre und einen Tag früher, wenn Sie "1904-Datumssystem" auswählen, und eine der folgenden Bedingungen erfüllt ist:

• Das Makro verwendet die Value2-Eigenschaft, wenn das Datum gespeichert. -oder-
  
  
• Das Makro verwendet eine Funktion in der Bibliothek Microsoft Excel Anwendung, wenn das Datum gespeichert.

Das folgende Makro bestimmt, ob das 1904-Datumssystem ist aktiviert, ein Datum in das 1900-Datumssystem konvertiert und das erwartete Datum zurück.

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent. Dies umfasst, ist jedoch nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der Programmiersprache, die Programmierungsbeispiele ist und mit den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden vertraut sind. Microsoft Support-Technikern helfen Erläuterung die Funktionalität einer bestimmten Prozedur, Sie werden ändert jedoch nicht diese Beispiele bieten Funktionen hinzugefügt oder Verfahren, um Ihren Anforderungen entsprechend zu erstellen. Gehen Sie folgendermaßen vor um das Makro zu verwenden:

1. Um eine neue Arbeitsmappe einzufügen, klicken Sie im Menü Datei auf neu, klicken Sie auf Arbeitsmappe und klicken Sie dann auf OK.
2. Menü Extras klicken Sie auf Optionen, klicken Sie auf die Registerkarte berechnen, und klicken Sie auf "1904-Datumssystem." Klicken Sie dann auf OK.
3. Geben Sie die folgenden Daten in Tabelle1 ein:
   A1: 7/5/96
   A2: 5/11/96
   A3: 4/28/96
4. Zeigen Sie im Menü Extras auf Makro und klicken Sie auf Visual Basic-Editor. Klicken Sie im Visual Basic-Editor im Menü Einfügen auf Modul.
5. Geben Sie in das Modulblatt den folgenden Code:

         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. Um das Makro ausgeführt wird, zeigen Sie im Menü Extras auf Makro und klicken Sie auf. Wählen Sie DateTest aus, und klicken Sie auf Ausführen.

Das erste Meldungsfeld angezeigt wird mit einem Datum 4/27/92, die vier Jahre und einen Tag früher als das früheste Datum im Bereich der Zellen A1 bis A3 ist. Das zweite Meldungsfeld zeigt das richtige "konvertierte" Datum von 4/28/96.

Microsoft hat dies ein Problem in den am Anfang dieses Artikels aufgeführten Microsoft-Produkten bestätigt.

Visual Basic für Applikationen nicht automatisch erkennen das 1904-Datumssystem und Konvertieren des Datums nach Bedarf. Wenn ein Benutzer das 1904-Datumssystem in Microsoft Excel wählt und führt ein Makro, das ein Datum aus einer Arbeitsblatt-Zelle liest, möglicherweise die Differenz vier Jahre und einen Tag (zusätzliche einen Tag Benutzerkonten für die Schaltjahr). Beispielsweise kann ein Datum 9/1/96, in das 1904-Datumssystem ein Datum 8/31/92 zurück.

Das Datum System Abweichung kann in Visual Basic auftreten, wenn Sie das 1904-Datumssystem auswählen und das Makro die Value2-Eigenschaft, verwendet wenn das Datum gespeichert.

Die Value2-Eigenschaft ist eine neue Eigenschaft in Visual Basic, die Sie in Microsoft Office 97 verwenden können. Die Value2-Eigenschaft speichert Variablen in dieselbe Weise wie die Value-Eigenschaft, außer, dass es nicht die Datentypen Währung oder Datum verwendet.