LinCongByTime

From scripting
Jump to: navigation, search
Public RValue
rvalue = 0.422

Public Function LinCongByTime()
Dim OT, ConstB, ConstM
ConstB = CDbl(Time)*1000
ConstM = 1000
OT = ((RValue*ConstB)+1) Mod ConstM
RValue = OT
LinCong = OT
End Function