VB6 只允许lngNum1到lngNum2，超出就用默认，子程序 f_WithinTheRange
发表于 今天 21:48
返回列表Private Function f_WithinTheRange(ByVal lngNum&, ByVal lngNum1&, ByVal lngNum2&, ByVal lngDef&) As Long
'只允许lngNum1到lngNum2，超出就用默认
f_WithinTheRange = IIf(lngNum >= lngNum1 And lngNum <= lngNum2, lngNum, lngDef)
End Function