> еще, а если я буду от 31.03.2003 отнимать месяц, какую дату он мне покажет?
31.02.2003
Покажет 03-03-2003 :)
Тебе что нужно? Отнять из даты месяц? Так ты сам написал: в ферале м.б. и 28 и 29, а может быть в другом месяце и 30 и 31 день. так что отнимать-то? Месяцы? Кол-во дней в текущем месяце?
Если дни, то:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Function DaysInMonth_2(d As Date) As Integer
'Из справки Access97
' Returns the number of days in a month
' Requires a date argument, since February can change if it's a leap year
' Lets Access figure it out
'
If VarType(d) <> 7 Then
DaysInMonth_2 = Null
Else
DaysInMonth_2 = DateSerial(Year(d), Month(d) + 1 , 1 ) - DateSerial(Year(d), Month(d), 1 )
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.
Public Function DaysInMonth(d As Date) As Integer
'
' Возвращает число дней в месяце переданной даты
' Требуется для Февраля функция проверки года LeapYear
'
If VarType(d) <> 7 Then 'определение какого типа переменая передана для Дат = 7
DaysInMonth = Null
Else
Select Case Month(d)
Case 2
If LeapYear(Year(d)) Then
DaysInMonth = 29
Else
DaysInMonth = 28
End If
Case 4 , 6 , 9 , 11
DaysInMonth = 30
Case 1 , 3 , 5 , 7 , 8 , 10 , 12
DaysInMonth = 31
End Select
End If
End Function
1.
2.
3.
4.
5.
6.
7.
Public Function LeapYear(YYYY As Integer) As Integer
'
' Leap Year from standard rules
' YYYY: 4-digit year
'
LeapYear = YYYY Mod 4 = 0 And (YYYY Mod 100 <> 0 Or YYYY Mod 400 = 0 )
End Function
