---

' Задание 4: общая стоимость и дни лечения по одному диагнозу
Sub Zadanie4()
    Dim rs As DAO.Recordset
    Dim nomer As Long, dni As Long
    Dim summa As Currency

    nomer = InputBox("Введите номер диагноза")

    Set rs = CurrentDb.OpenRecordset("Стационар")
    Do Until rs.EOF
        If rs("НомерДиагноза") = nomer Then
            dni = dni + rs("ДнейЛечения")
            summa = summa + rs("ДнейЛечения") * rs("СтоимостьДня")
        End If
        rs.MoveNext
    Loop
    rs.Close

    MsgBox "Дней лечения: " & dni & vbCrLf & "Общая стоимость: " & summa & " руб."
End Sub

' Задание 5: увеличение стоимости по числу дней
Sub Zadanie5()
    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("Стационар")
    Do Until rs.EOF
        rs.Edit
        If rs("ДнейЛечения") > 5 And rs("ДнейЛечения") < 10 Then
            rs("СтоимостьДня") = rs("СтоимостьДня") * 1.15
        ElseIf rs("ДнейЛечения") > 10 And rs("ДнейЛечения") < 14 Then
            rs("СтоимостьДня") = rs("СтоимостьДня") * 1.2
        ElseIf rs("ДнейЛечения") > 14 Then
            rs("СтоимостьДня") = rs("СтоимостьДня") * 1.5
        End If
        rs.Update
        rs.MoveNext
    Loop
    rs.Close

    MsgBox "Стоимость пересчитана"
End Sub