ник: Zheka100
kot_k_k, я сваял как мог аксесовский код, что-то получается что-то нет. Не пойму как можно загнать в переменные значения годов. Ты писал:
1. в глобальную переменную загоняем ГОД (первой записи)
2. пишем фукцию куда отправляем текущий год записи =Функция(Год)
3. сама функция
Вот мой код:
Public Function E(ByVal Value As Integer)
Dim A, C As Integer, D, Year, YearM, B As Integer
Year = 2005 'как сюда загонять значения годов?
YearM = 2005 'как сюда загнать первый год от которого танцуем?
A = Year - YearM
B = Int(A / 8)
C = A - 8 * B
'проверка четности числа С
'If chek(C) Then
' MsgBox "четное"
' Else
' MsgBox "нечетное"
' End If
If chek(C) = True Then
D = C / 2 + 1
Else
Select Case C
Case 1
D = 7
Case 3
D = 8
Case 5
D = 5
Case 7
D = 6
End Select
End If
E = D + B * 8
End Function
'проверка на четность
Private Function chek(C As Integer) As Boolean
If (C / 2 - Fix(C / 2)) Then
chek = False
Else
chek = True
End If
End Function