1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Function nYear(datefirst As Date, datesecond As Date)
If Day(datesecond) - Day(datefirst) + 1 < 0 Then
If Month(datesecond) - Month(datefirst) - 1 < 0 Then
nYear = Year(datesecond) - Year(datefirst) - 1
Else
nYear = Year(datesecond) - Year(datefirst)
End If
Else
If Month(datesecond) - Month(datefirst) < 0 Then
nYear = Year(datesecond) - Year(datefirst) - 1
Else
nYear = Year(datesecond) - Year(datefirst)
End If
End If
End Function
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
If Day(datesecond) - Day(datefirst) + 1 < 0 Then
If Month(datesecond) - Month(datefirst) - 1 < 0 Then
nMonth = Month(datesecond) - Month(datefirst) - 1 + 12
Else
nMonth = Month(datesecond) - Month(datefirst) - 1
End If
Else
If Month(datesecond) - Month(datefirst) < 0 Then
nMonth = Month(datesecond) - Month(datefirst) + 12
Else
nMonth = Month(datesecond) - Month(datefirst)
End If
End If
End Function
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
Function nDay(datefirst As Date, datesecond As Date)
If Day(datesecond) - Day(datefirst) + 1 < 0 Then
Select Case Month(datesecond)
Case 2
n = 31
Case 3
If Year(datesecond) / 4 = Int(Year(datesecond) / 4 ) Then
n = 29
Else
n = 28
End If
Case 4
n = 31
Case 5
n = 30
Case 6
n = 31
Case 7
n = 30
Case 8
n = 31
Case 9
n = 31
Case 10
n = 30
Case 11
n = 31
Case 12
n = 30
Case 1
n = 31
End Select
nDay = Day(datesecond) - Day(datefirst) + 1 + n
Else
nDay = Day(datesecond) - Day(datefirst) + 1
End If
End Function
P.S. Возможно, функции можно и упостить, но я так ygbcfk и не стал дальше выламываться.
P.P.S. Финкции работают только все вместе если применять, т.е. в результате будет 2 года 11 месяцев 23 дня. Если применять по отдельности, то будет только 23 дня или только 11 месяцев. Чтобы узнать полное число месяцев, надо будет кол-во лет умножить на 12 и пибавить 11 или юзать DateDiff.
