Convert a formula to UDF Function

[Paul_Hossler]

Two new lines marked <<<<<<<<<<<

Option Explicit


Function Something(Conditions As String, Titles As Range) As Variant
    
    Dim X As Double
    Dim ary As Variant
    Dim i As Long
    
    Something = CVErr(xlErrNA)
    On Error GoTo NiceExit
    
    ary = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(Titles))
    For i = LBound(ary) To UBound(ary)
        ary(i) = Val(Format(ary(i)))
    Next i
    
    Select Case LCase(Conditions)
        Case "excellent", "very good", "good"
            X = ary(1) * 10# / 12#
            X = X + ary(5) + ary(8)
            If ary(2) >= 1440 Then X = X + ary(2) - 1440    '   <<<<<<<<<<
        
        Case Else
            X = ary(1) * 10# / 12#
            X = X + ary(3) + ary(4) + ary(13) + ary(14) + ary(20)
            X = X + ary(19) * ary(1)
                           
            If (ary(1) * 2.85 - Int(ary(1) * 2.85)) < 0.98 Then
                X = X + Int(ary(1) * 2.85)
            Else
                X = X + Int(ary(1) * 2.85)
            End If
            If ary(2) >= 1440 Then X = X + ary(2) - 1440    '   <<<<<<<<<<
    End Select


    Something = Round(X, 2)


NiceExit:
End Function