basDemux.bas

Attribute VB_Name = "basDemux"
Public Function r(v As Double) As Double
    r = v - Int(v)
End Function
Public Function m(v As Double, b As Double) As Double
    m = b * r(v / b)
End Function
Public Function d(v As Double, b As Double, p As Double) As Double
    d = m(Int(v / b ^ p), b)
End Function