'
'强制把v转换成Int,失败时返回dv
'
Function ParseInt(v,dv)
Err.Clear()
On Error Resume Next
v=CInt(v)
If Err.Number <> 0 Then
Err.Clear()
ParseInt=dv
Exit Function
End If
ParseInt=v
End Function
'
'转换成String
'
Function ParseString(v)
If TypeName(v) = "String" Then
ParseString=v
Exit Function
End If
If IsNull(v) Then
ParseString=""
Exit Function
End If
ParseString=CStr(v)
End Function