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
全部回复（0）