Монтаж, эксплуатация и ремонт технологического оборудования. Курсовое проектирование. Юнусов Г.С - 131 стр.

    Else
     I2 = Dat(3, 15)
     L2 = I2 * Cos(Alfa)
     L1 = L2 - Dat(3, 9) - Dat(3, 12)
     X = Sin(Beta) / Cos(Beta)
     Y = (Dat(3, 3) - Dat(3, 10)) / Sin(Alfa) - L1 * Sin(Beta) / X
      Rez(3, 5) = Y
      Rez(3, 3) = Y * Cos(Alfa) + I2 * Cos(Beta) + Dat(3, 11)
    End If
  End If
  If Nomer = 4 Then
  'Технико-экономические параметры крана
    X = Dat(4, 7)
    If Abs(X) < Zero Then
      Y=0
    Else
    Y = 1.181 * (Dat(4, 3) + Dat(4, 4) * Dat(4, 6) / X + Dat(4, 5) *
Dat(4, 6))
    End If
    Rez(4, 2) = Y 'Сi
    X = Dat(4, 7) 'tгод
    N = Dat(4, 9) 'N
    Y = Dat(4, 10) 'n
    If (Abs(X) < Zero) Or (Abs(N) < Zero) Or (Abs(Y) < Zero) Then
      Y=0
    Else
      Y = Dat(4, 8) / (X * N * Y)
    End If
    Rez(4, 3) = Y 'T
    Rez(4, 1) = Rez(4, 2) + Dat(4, 1) * Dat(4, 2) * Rez(4, 3)
  End If
  'Заполняем таблицу с результатами
  With MSFlexGrid2(Nomer - 1)
    N = .Rows - 1
    For I = 1 To N
      X = Rez(Nomer, I)
      StrR = Format(X, "###########.00")
      .TextMatrix(I, 1) = StrR
    Next I
  End With
                                 130