basCForVB.bas

Attribute VB_Name = "basCForVB"
Public Function CBoolSwitch(Test As Variant, ArgT As Variant, ArgF As Variant) As Variant

    Select Case Test
    Case True
        CBoolSwitch = ArgT
    Case Else
        CBoolSwitch = ArgF
    End Select

End Function

Public Sub CIncr(Arg As Variant, Value As Variant)
    Arg = Arg + Value
End Sub

Public Sub CDecr(Arg As Variant, Value As Variant)
    Arg = Arg - Value
End Sub

Public Sub CMult(Arg As Variant, Value As Variant)
    Arg = Arg * Value
End Sub

Public Sub CDiv(Arg As Variant, Value As Variant)
    If Value <> 0 Then
        Arg = Arg / Value
    End If
End Sub

Public Function CLShift(A As Variant, B As Variant) As Variant
    CLShift = A * 2 ^ B
End Function

Public Function CRShift(A As Variant, B As Variant) As Variant
    CRShift = A / 2 ^ B
End Function