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

Excel宏类型的转换「建议收藏」FunctiongcVBCur(ByValvVariableAsVariant)AsCurrency’——————————————————————————————-‘Note   :Integra-t.comglobalFunction’—–

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

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

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/140733.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号