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)


相关推荐

  • 父子组建传值_详解Vue之父子组件传值

    父子组建传值_详解Vue之父子组件传值一、简要介绍父子组件之间的传值主要有三种:传递数值、传递方法、传递对象,主要是靠子组件的props属性来接收传值,下面分别介绍:(一)传递数值1.子组件:Header.vue{{msg}}exportdefault{data(){return{}},methods:{},//接收父类的传值props:[‘msg’]}可以看到,在子组件中的data对象里并没有msg属性,这里调…

  • 函数之递归[通俗易懂]

    递归前戏在讲今天的内容之前,我们先来讲一个故事,讲的什么呢?从前有座山,山里有座庙,庙里有个老和尚讲故事,讲的什么呢?从前有座山,山里有座庙,庙里有个老和尚讲故事,讲的什么呢?从前有座山,山里有座

  • 织梦dede如何去除Power by DedeCms

    织梦dede如何去除Power by DedeCms自从dedecms织梦系统更新到6.7日的版本,底部版权信息调用标签{dede:global.cfg_powerby/}会自动加上织梦官方的链接[Power by DedeCms ],想必很多新用户使用中都想去除这个官方的链接,由于这是官方的作为,本文只是提供一个技术的交流,并不鼓励大家去除底部的链接。好了,回归正题,大家知道,进入后台在后台的系统-系统参数有个网站版权信息,在这里并不能找到官方的

  • easyUI的时间控件[通俗易懂]

    easyUI的时间控件[通俗易懂]以前没怎么用过easyUI,今天用到时间控件,又了解到了一点东西时间控件的样式<inputclass="easyui-datetimebox"id="starttime"name="starttime"style="width:150px"/>然后通过js动态的添加的时候,使用append添加container.append(‘开始时间<inputclass="easyui-d

  • 动画学习之Animate.css的使用与解析[通俗易懂]

    动画学习之Animate.css的使用与解析[通俗易懂]近况近期生活比较单一。const提升自己=true;while(提升自己){写码…看书…思考…睡觉}既单一也充实,单一使我平静,充实使我保持向上的感觉,希望自己真难做到“持续学习,保持思考,不断进步”。最近看到腾讯ISUX团

  • 以太坊矿机转让_以太坊矿机价格

    以太坊矿机转让_以太坊矿机价格文/有料科普全文约3000字,阅读时间3分钟。随着数量的减少比特币越来越难挖,而以太坊相对而言比较好挖,但也要投入价值不菲的设备,本篇文章将为大家讲解如何组装矿机,以及配置矿机软件并加入一个矿池以开始开采以太坊。其实这个方法同样适用于开采比特币。组装矿机投资至少6张显卡(GPU)。显卡是矿机中最重要的部分,因为它们实际上在解决在blockchain的方程矿cryptocurrency的工作。大多数…

发表回复

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

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