Wie konvertiere ich eine Excel-Seriennummer in eine .NET DateTime?


77

Wie konvertiere ich vom seriellen Excel-Datum in eine .NET-Datumszeit?

Zum Beispiel ist 39938 der 05/05/2009.

Antworten:


94

Wo ist 39938 die Anzahl der Tage seit dem 1.1.1900?

Verwenden Sie in diesem Fall die Framework-Bibliotheksfunktion DateTime.FromOADate().
Diese Funktion kapselt alle Details und führt die Überprüfung der Grenzen durch.

Für seinen historischen Wert ist hier eine mögliche Implementierung:

(C #)

public static DateTime FromExcelSerialDate(int SerialDate)
{
    if (SerialDate > 59) SerialDate -= 1; //Excel/Lotus 2/29/1900 bug   
    return new DateTime(1899, 12, 31).AddDays(SerialDate);
}

VB

Public Shared Function FromExcelSerialDate(ByVal SerialDate As Integer) As DateTime
    If SerialDate > 59 Then SerialDate -= 1 ' Excel/Lotus 2/29/1900 bug
    Return New DateTime(1899, 12, 31).AddDays(SerialDate)
End Function

[Update]:
Hmm ... Ein kurzer Test zeigt, dass tatsächlich zwei Tage frei sind. Ich bin mir nicht sicher, wo der Unterschied liegt.

Okay: Problem jetzt behoben. Siehe die Kommentare für Details.


3
Ich denke, Sie erhalten mit dieser Konvertierung 2 Tage zu viel, dh das Epochendatum müsste auf DateTime (1899, 12, 30) verschoben werden. Dies ist vermutlich auf den Schaltjahrfehler von Excel zurückzuführen.
Dirk Vollmar

2
Ups, alle anderen waren schneller ;-) Und ja, der Fehler stammt ursprünglich von Lotus, wie Joel erklärte: joelonsoftware.com/items/2006/06/16.html
Dirk Vollmar

29
-1 zum Duplizieren dessen, was bereits in .NET Framework (DateTime.FromOADate) gelöst ist.

4
Weitere Informationen zu FromOADate finden Sie unter msdn.microsoft.com/en-us/library/…
JDB erinnert sich noch immer an Monica,

5
Obwohl ich der Meinung bin, dass die FROMOADate-Methode besser ist, fand ich diese Antwort dennoch informativ.
VoteCoffee

173

Ich finde es einfacher, die FromOADate-Methode zu verwenden , zum Beispiel:

DateTime dt = DateTime.FromOADate(39938);

Mit diesem Code ist dt "05/05/2009".


2
Dies behandelt auch Daten mit Zeitwerten (Gleitkomma im zugrunde liegenden Datenformat), was die akzeptierte Lösung nicht tut.
Derek Slager

@nullptr Es hat jedoch eine Genauigkeit von nur 1 Millisekunde. Sie können eine viel höhere Präzision erzielen, wenn Sie sich darum kümmern. Siehe meine Antwort woanders .
Jeppe Stig Nielsen

Für meine PowerShell Peepz:[DateTime]::FromOADate($serialDate)
Kolob Canyon

2

Für 39938 tun Sie dies: 39938 * 864000000000 + 599264352000000000

864000000000 repräsentiert die Anzahl der Zecken an einem Tag. 599264352000000000 repräsentiert die Anzahl der Zecken vom Jahr 0001 bis zum Jahr 1900


1
void ExcelSerialDateToDMY(int nSerialDate, int &nDay, 
                          int &nMonth, int &nYear)
{
    // Excel/Lotus 123 have a bug with 29-02-1900. 1900 is not a
    // leap year, but Excel/Lotus 123 think it is...
    if (nSerialDate == 60)
    {
        nDay    = 29;
        nMonth    = 2;
        nYear    = 1900;

        return;
    }
    else if (nSerialDate < 60)
    {
        // Because of the 29-02-1900 bug, any serial date 
        // under 60 is one off... Compensate.
        nSerialDate++;
    }

    // Modified Julian to DMY calculation with an addition of 2415019
    int l = nSerialDate + 68569 + 2415019;
    int n = int(( 4 * l ) / 146097);
            l = l - int(( 146097 * n + 3 ) / 4);
    int i = int(( 4000 * ( l + 1 ) ) / 1461001);
        l = l - int(( 1461 * i ) / 4) + 31;
    int j = int(( 80 * l ) / 2447);
     nDay = l - int(( 2447 * j ) / 80);
        l = int(j / 11);
        nMonth = j + 2 - ( 12 * l );
    nYear = 100 * ( n - 49 ) + i + l;
}

Ausschneiden und Einfügen von anderen Talenten ...

Ian Brown

Durch die Nutzung unserer Website bestätigen Sie, dass Sie unsere Cookie-Richtlinie und Datenschutzrichtlinie gelesen und verstanden haben.
Licensed under cc by-sa 3.0 with attribution required.