Как преобразовать серийный номер даты Excel в.NET DateTime?
Как преобразовать серийную дату Excel в дату.NET?
Например, 39938 - 05.05.2009.
4 ответа
Где 39938 - количество дней с 01.01.1900?
В этом случае используйте функцию библиотеки фреймворкаDateTime.FromOADate()
,
Эта функция инкапсулирует все особенности и выполняет проверку границ.
Для его исторической ценности вот возможная реализация:
(С #)
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
[Обновить]:
Хм... Быстрый тест показывает, что на самом деле два выходных. Не уверен, где разница.
Хорошо, проблема исправлена. Смотрите комментарии для деталей.
Я считаю, что проще с помощью метода FromOADate, например:
DateTime dt = DateTime.FromOADate(39938);
Используя этот код dt "05/05/2009".
Для 39938 сделайте это: 39938 * 864000000000 + 599264352000000000
864000000000 представляет количество тиков в день 599264352000000000 представляет количество тиков с 0001 года по 1900 год
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;
}
Вырезать и вставить чьи-то таланты...