EuroDay = 360 / 365 * NormalDay
Ennor писал(а):Хм. Я точно не помню данную предметную область, но скорее всего, имеет место быть следующее определение евро-дня:
- Код: Выделить всё
EuroDay = 360 / 365 * NormalDay
Ну и используй его. С округлением, разумеется.
Ну или ищи определение этой системы подсчета, может, там какие-то конкретные дни года выкидываются.
alibek писал(а):Если это делается в Excel, то там есть функция, ДНЕЙ360 помоему.
Почитать описание по этой функции, как она считается.
alibek писал(а):ADPrise -- это из расширенных функций? Тогда можно просто посмотреть ее исходники.
alibek писал(а):ADPrise -- это из расширенных функций? Тогда можно просто посмотреть ее исходники.
alibek писал(а):У меня этой функции нет, не знаю.
Но она должна быть в XLA-файле.
Info_m.be_free писал(а):А чтобы это работало все время можно ещё и высокосный год учесть...
Function DaysInYear(MyYear)
DaysInYear = 365
If LeapYear(MyYear) = True Then DaysInYear = 366
End Function
Function LeapYear(MyYear)
'год через каждые 4 на 5-тый
If MyYear Mod 4 = 0 Then
' Столетие?
If MyYear Mod 100 = 0 Then
' Значит делим на 400
If MyYear Mod 400 = 0 Then
LeapYear = True
Else
LeapYear = False
End If
Else
LeapYear = True
End If
Else
LeapYear = False
End If
End Function
Сейчас этот форум просматривают: SemrushBot, Yandex-бот и гости: 51