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

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 157035 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Dieser Artikel wurde archiviert. Er wird im vorliegenden Zustand bereitgestellt und nicht mehr aktualisiert.
Alles erweitern | Alles schließen

Problembeschreibung

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.

Ursache

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.

Abhilfe

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.

Status

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

Weitere Informationen

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.

Eigenschaften

Artikel-ID: 157035 - Geändert am: Freitag, 14. Februar 2014 - Version: 2.3
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
Keywords: 
kbnosurvey kbarchive kbmt kbdtacode kbprb kbprogramming KB157035 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 157035
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Ihr Feedback an uns

 

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