Общенародная БД - Вет. Клиника

PublicKodOrg=DLookUp("КодОрганизацииГМ";"ГлавноеМеню")

Function ValueBy2 (intNum As Integer) As Integer
  ValueByTo = intNum*2 ' (Выходное) значение функции равно Переданный ей аргумент, помноженный на два
End Function

Sub UpdateTheField ()
'Процедура обновляет поле ДругоеПоле в форме Форма
 
'Объявляем переменную, то есть резервируем некую область памяти ПК для хранения значения
  Dim val  
'Присваиваем переменной некую величину, 
'то есть заполняем эту область памяти реальными данными;
'в данном случае - тем, что находится в поле Поле формы Форма:
  val = Forms!Форма!Поле
'Определяем новое значение ДругоеПоле на основе значения Поле:
  Forms!Форма!ДругоеПоле = UpdateTheField val
  Forms!Форма.requery
End Sub

Public Function FAge(datb As Date, datt As Date) As String
'datb - дата рождения
'datt - дата, на которую определяется возраст
Dim db As Integer, lp As Boolean, m As Long
  If datb >= datt Then
    FAge = ""
  Else
    db = Day(datb)
    lp = (db > Day(datt))
    m = DateDiff("m", datb, datt) + lp
    FAge = Mid$((", " + NumJoinNoun(m \ 12, "год", "года", "лет")) & _
       (", " + NumJoinNoun(m Mod 12, "месяц", "месяца", "месяцев")) & _
       (", " + NumJoinNoun(DateDiff("d", DateSerial(Year(datt), Month(datt) + lp, db), datt), _
                    "день", "дня", "дней")), 3)
  End If
End Function

'Сочетание неотрицательного целого числа с существительным
Function NumJoinNoun(n&, a1$, a2_4$, a_other$)
'n - число;
'a1 - форма существительного при n, оканчивающемся на 1, кроме n = 11;
'a2_4 - форма существительного при n, оканчивающемся на 2,3,4, кроме n = 12, 13, 14;
'a_other - форма существительного при иных n.
  If n = 0 Then NumJoinNoun = Null: Exit Function
  NumJoinNoun = a_other
  If (n \ 10) Mod 10 <> 1 Then
    Select Case n Mod 10
      Case 1: NumJoinNoun = a1
      Case 2 To 4: NumJoinNoun = a2_4
    End Select
  End If
  NumJoinNoun = n & " " & NumJoinNoun
End Function

ublic Function FAge(ДатаРожденияЖ As Date, Возраст As Date) As String
'datb - дата рождения
'datt - дата, на которую определяется возраст
Dim db As Integer, lp As Boolean, m As Long
  If ДатаРожденияЖ >= Возраст Then
    FAge = ""
  Else
    db = Day(ДатаРожденияЖ)
    lp = (db > Day(Возраст))
    m = DateDiff("m", ДатаРожденияЖ, Возраст) + lp
    FAge = Mid$((", " + NumJoinNoun(m \ 12, "год", "года", "лет")) & _
       (", " + NumJoinNoun(m Mod 12, "месяц", "месяца", "месяцев")) & _
       (", " + NumJoinNoun(DateDiff("d", DateSerial(Year(Возраст), Month(Возраст) + lp, db), Возраст), _
                    "день", "дня", "дней")), 3)
  End If
End Function