Excel宏类型的转换「建议收藏」

大家好，又见面了，我是你们的朋友全栈君。

Function gcVBCur(ByVal vVariable As Variant) As Currency ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value gcVBCur = CCur(0) ‘Validation If IsNull(vVariable) Or Not IsNumeric(vVariable) Then Exit Function End If

‘Set return function value gcVBCur = CCur(vVariable)

End Function

Function gdVBDbl(ByVal vVariable As Variant) As Double ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value gdVBDbl = CDbl(0)

‘Validation If IsNull(vVariable) Or Not IsNumeric(vVariable) Then Exit Function End If

‘Set return function value gdVBDbl = CDbl(vVariable)

End Function

Function gnVBInt(ByVal vVariable As Variant) As Integer ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value gnVBInt = CInt(0)

‘Validation If IsNull(vVariable) Or Not IsNumeric(vVariable) Then Exit Function End If

‘Set return function value gnVBInt = CInt(vVariable)

End Function

Function glVBLng(ByVal vVariable As Variant) As Long ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value glVBLng = CLng(0)

‘Validation If IsNull(vVariable) Or Not IsNumeric(vVariable) Then Exit Function End If

‘Set return function value glVBLng = CLng(vVariable)

End Function

Function ggVBSng(ByVal vVariable As Variant) As Single ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value ggVBSng = CSng(0)

‘Validation If IsNull(vVariable) Or Not IsNumeric(vVariable) Then Exit Function End If

‘Set return function value ggVBSng = CSng(vVariable)

End Function

Function gsVBStr(ByVal vVariable As Variant) As String ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value gsVBStr = “”

‘Validation If IsNull(vVariable) Then Exit Function End If

‘Set return function value gsVBStr = CStr(vVariable)

End Function

Function gtVBDate(ByVal vVariable As Variant) As Date ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set return function value gtVBDate = DateValue(gtVBDateTime(vVariable))

End Function

Function gtVBTime(ByVal vVariable As Variant) As Date ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set return function value gtVBTime = TimeValue(gtVBDateTime(vVariable))

End Function

Function gtVBDateTime(ByVal vVariable As Variant) As Date ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value gtVBDateTime = CDate(0)

‘Declare Dim ldtmDateTime As Date ‘Set default value ldtmDateTime = CDate(0) Select Case VarType(vVariable) Case vbDate ldtmDateTime = vVariable Case vbSingle, vbDouble, vbInteger, vbLong ldtmDateTime = CDate(vVariable) Case vbString If IsDate(vVariable) Then ldtmDateTime = CDate(vVariable) End If Case Else End Select ‘Set return function value gtVBDateTime = ldtmDateTime

End Function

Function gbVBBool(ByVal vVariable As Variant) As Boolean ‘——————————————————————————————- ‘Note : Integra-t.com global Function ‘——————————————————————————————- On Error Resume Next ‘Set default function value gbVBBool = False

‘Set return function value Select Case VarType(vVariable) Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDecimal gbVBBool = CBool(vVariable) Case vbDate If vVariable <> CDate(0) Then gbVBBool = True End If Case vbString If IsNumeric(vVariable) Then gbVBBool = CBool(Val(vVariable)) ElseIf Len(CStr(vVariable)) > 0 Then Select Case UCase$(vVariable) Case “TRUE”, “YES”, “Y” gbVBBool = True End Select End If Case vbBoolean gbVBBool = vVariable Case Else End Select

End Function

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/140733.html原文链接：https://javaforall.cn