When is the VBA CVar function actually useful?












2














VBA implicitly converts values to Variant as needed, so what would be a use case of the CVar function? In the example given in the documentation, the call to CVar is obviously redundant.



To be precise, I am looking for a concrete, minimal VBA code example, which




  • compiles, but

  • won't compile (or produce a different output) when (only!) CVar(...some expression...) is replaced by ...some expression....


I haven't been able to find such an example, but maybe the someone else can.










share|improve this question



























    2














    VBA implicitly converts values to Variant as needed, so what would be a use case of the CVar function? In the example given in the documentation, the call to CVar is obviously redundant.



    To be precise, I am looking for a concrete, minimal VBA code example, which




    • compiles, but

    • won't compile (or produce a different output) when (only!) CVar(...some expression...) is replaced by ...some expression....


    I haven't been able to find such an example, but maybe the someone else can.










    share|improve this question

























      2












      2








      2


      1





      VBA implicitly converts values to Variant as needed, so what would be a use case of the CVar function? In the example given in the documentation, the call to CVar is obviously redundant.



      To be precise, I am looking for a concrete, minimal VBA code example, which




      • compiles, but

      • won't compile (or produce a different output) when (only!) CVar(...some expression...) is replaced by ...some expression....


      I haven't been able to find such an example, but maybe the someone else can.










      share|improve this question













      VBA implicitly converts values to Variant as needed, so what would be a use case of the CVar function? In the example given in the documentation, the call to CVar is obviously redundant.



      To be precise, I am looking for a concrete, minimal VBA code example, which




      • compiles, but

      • won't compile (or produce a different output) when (only!) CVar(...some expression...) is replaced by ...some expression....


      I haven't been able to find such an example, but maybe the someone else can.







      vba language-lawyer






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Nov 14 '18 at 9:59









      Heinzi

      122k38266403




      122k38266403
























          2 Answers
          2






          active

          oldest

          votes


















          2














          I cannot think about a real life usage for the following, but at least it shows that you could need the function:



          Sub test()
          Dim myInt As Integer
          myInt = 2
          ' The following call will throw a runtime error in testSub
          Call testSub(myInt)
          ' That's okay
          Call testSub(CVar(myInt))
          End Sub

          Sub testSub(ByRef p As Variant)
          Debug.Print "P: " & VarType(p)
          p = "ABC"
          End Sub





          share|improve this answer

















          • 1




            A good one, I expected it to raise a compile time byref mismatch which it does not. But this kind of problems are usually worked around with Call testSub((myInt)).
            – GSerg
            Nov 14 '18 at 10:22












          • @GSerg: Interesting. That means that (myInt) returns a Variant...
            – FunThomas
            Nov 14 '18 at 10:32






          • 1




            In your example myInt is also passed as Variant, but with VT_BYREF. The () remove that flag. It's an interesting subject with interesting results, e.g. see stackoverflow.com/q/52686198/11683.
            – GSerg
            Nov 14 '18 at 10:35












          • @GSerg: Just for curiosity: Do you know any way to read the VT-Flags within VBA?
            – FunThomas
            Nov 14 '18 at 10:47












          • Yes, read the first two bytes starting at VarPtr(that_variable). An example: stackoverflow.com/a/43554246/11683
            – GSerg
            Nov 14 '18 at 10:49





















          2














          Not sure if that qualifies, but the only thing I can think of is the interaction with As Any in Declare.



          Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
          (Destination As Any, source As Any, ByVal Length As Long)

          Sub Test()
          Dim source As Long, dest As Long

          source = 42

          CopyMemory dest, CVar(source), 4
          MsgBox dest

          CopyMemory dest, source, 4
          MsgBox dest
          End Sub





          share|improve this answer





















          • Nice one! I thought about overloading, but rejected the idea, since VBA itself does not support it, and completely forgot about overload consuming with As Any.
            – Heinzi
            Nov 14 '18 at 13:07











          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53297450%2fwhen-is-the-vba-cvar-function-actually-useful%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          2 Answers
          2






          active

          oldest

          votes








          2 Answers
          2






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          2














          I cannot think about a real life usage for the following, but at least it shows that you could need the function:



          Sub test()
          Dim myInt As Integer
          myInt = 2
          ' The following call will throw a runtime error in testSub
          Call testSub(myInt)
          ' That's okay
          Call testSub(CVar(myInt))
          End Sub

          Sub testSub(ByRef p As Variant)
          Debug.Print "P: " & VarType(p)
          p = "ABC"
          End Sub





          share|improve this answer

















          • 1




            A good one, I expected it to raise a compile time byref mismatch which it does not. But this kind of problems are usually worked around with Call testSub((myInt)).
            – GSerg
            Nov 14 '18 at 10:22












          • @GSerg: Interesting. That means that (myInt) returns a Variant...
            – FunThomas
            Nov 14 '18 at 10:32






          • 1




            In your example myInt is also passed as Variant, but with VT_BYREF. The () remove that flag. It's an interesting subject with interesting results, e.g. see stackoverflow.com/q/52686198/11683.
            – GSerg
            Nov 14 '18 at 10:35












          • @GSerg: Just for curiosity: Do you know any way to read the VT-Flags within VBA?
            – FunThomas
            Nov 14 '18 at 10:47












          • Yes, read the first two bytes starting at VarPtr(that_variable). An example: stackoverflow.com/a/43554246/11683
            – GSerg
            Nov 14 '18 at 10:49


















          2














          I cannot think about a real life usage for the following, but at least it shows that you could need the function:



          Sub test()
          Dim myInt As Integer
          myInt = 2
          ' The following call will throw a runtime error in testSub
          Call testSub(myInt)
          ' That's okay
          Call testSub(CVar(myInt))
          End Sub

          Sub testSub(ByRef p As Variant)
          Debug.Print "P: " & VarType(p)
          p = "ABC"
          End Sub





          share|improve this answer

















          • 1




            A good one, I expected it to raise a compile time byref mismatch which it does not. But this kind of problems are usually worked around with Call testSub((myInt)).
            – GSerg
            Nov 14 '18 at 10:22












          • @GSerg: Interesting. That means that (myInt) returns a Variant...
            – FunThomas
            Nov 14 '18 at 10:32






          • 1




            In your example myInt is also passed as Variant, but with VT_BYREF. The () remove that flag. It's an interesting subject with interesting results, e.g. see stackoverflow.com/q/52686198/11683.
            – GSerg
            Nov 14 '18 at 10:35












          • @GSerg: Just for curiosity: Do you know any way to read the VT-Flags within VBA?
            – FunThomas
            Nov 14 '18 at 10:47












          • Yes, read the first two bytes starting at VarPtr(that_variable). An example: stackoverflow.com/a/43554246/11683
            – GSerg
            Nov 14 '18 at 10:49
















          2












          2








          2






          I cannot think about a real life usage for the following, but at least it shows that you could need the function:



          Sub test()
          Dim myInt As Integer
          myInt = 2
          ' The following call will throw a runtime error in testSub
          Call testSub(myInt)
          ' That's okay
          Call testSub(CVar(myInt))
          End Sub

          Sub testSub(ByRef p As Variant)
          Debug.Print "P: " & VarType(p)
          p = "ABC"
          End Sub





          share|improve this answer












          I cannot think about a real life usage for the following, but at least it shows that you could need the function:



          Sub test()
          Dim myInt As Integer
          myInt = 2
          ' The following call will throw a runtime error in testSub
          Call testSub(myInt)
          ' That's okay
          Call testSub(CVar(myInt))
          End Sub

          Sub testSub(ByRef p As Variant)
          Debug.Print "P: " & VarType(p)
          p = "ABC"
          End Sub






          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Nov 14 '18 at 10:09









          FunThomas

          4,5311523




          4,5311523








          • 1




            A good one, I expected it to raise a compile time byref mismatch which it does not. But this kind of problems are usually worked around with Call testSub((myInt)).
            – GSerg
            Nov 14 '18 at 10:22












          • @GSerg: Interesting. That means that (myInt) returns a Variant...
            – FunThomas
            Nov 14 '18 at 10:32






          • 1




            In your example myInt is also passed as Variant, but with VT_BYREF. The () remove that flag. It's an interesting subject with interesting results, e.g. see stackoverflow.com/q/52686198/11683.
            – GSerg
            Nov 14 '18 at 10:35












          • @GSerg: Just for curiosity: Do you know any way to read the VT-Flags within VBA?
            – FunThomas
            Nov 14 '18 at 10:47












          • Yes, read the first two bytes starting at VarPtr(that_variable). An example: stackoverflow.com/a/43554246/11683
            – GSerg
            Nov 14 '18 at 10:49
















          • 1




            A good one, I expected it to raise a compile time byref mismatch which it does not. But this kind of problems are usually worked around with Call testSub((myInt)).
            – GSerg
            Nov 14 '18 at 10:22












          • @GSerg: Interesting. That means that (myInt) returns a Variant...
            – FunThomas
            Nov 14 '18 at 10:32






          • 1




            In your example myInt is also passed as Variant, but with VT_BYREF. The () remove that flag. It's an interesting subject with interesting results, e.g. see stackoverflow.com/q/52686198/11683.
            – GSerg
            Nov 14 '18 at 10:35












          • @GSerg: Just for curiosity: Do you know any way to read the VT-Flags within VBA?
            – FunThomas
            Nov 14 '18 at 10:47












          • Yes, read the first two bytes starting at VarPtr(that_variable). An example: stackoverflow.com/a/43554246/11683
            – GSerg
            Nov 14 '18 at 10:49










          1




          1




          A good one, I expected it to raise a compile time byref mismatch which it does not. But this kind of problems are usually worked around with Call testSub((myInt)).
          – GSerg
          Nov 14 '18 at 10:22






          A good one, I expected it to raise a compile time byref mismatch which it does not. But this kind of problems are usually worked around with Call testSub((myInt)).
          – GSerg
          Nov 14 '18 at 10:22














          @GSerg: Interesting. That means that (myInt) returns a Variant...
          – FunThomas
          Nov 14 '18 at 10:32




          @GSerg: Interesting. That means that (myInt) returns a Variant...
          – FunThomas
          Nov 14 '18 at 10:32




          1




          1




          In your example myInt is also passed as Variant, but with VT_BYREF. The () remove that flag. It's an interesting subject with interesting results, e.g. see stackoverflow.com/q/52686198/11683.
          – GSerg
          Nov 14 '18 at 10:35






          In your example myInt is also passed as Variant, but with VT_BYREF. The () remove that flag. It's an interesting subject with interesting results, e.g. see stackoverflow.com/q/52686198/11683.
          – GSerg
          Nov 14 '18 at 10:35














          @GSerg: Just for curiosity: Do you know any way to read the VT-Flags within VBA?
          – FunThomas
          Nov 14 '18 at 10:47






          @GSerg: Just for curiosity: Do you know any way to read the VT-Flags within VBA?
          – FunThomas
          Nov 14 '18 at 10:47














          Yes, read the first two bytes starting at VarPtr(that_variable). An example: stackoverflow.com/a/43554246/11683
          – GSerg
          Nov 14 '18 at 10:49






          Yes, read the first two bytes starting at VarPtr(that_variable). An example: stackoverflow.com/a/43554246/11683
          – GSerg
          Nov 14 '18 at 10:49















          2














          Not sure if that qualifies, but the only thing I can think of is the interaction with As Any in Declare.



          Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
          (Destination As Any, source As Any, ByVal Length As Long)

          Sub Test()
          Dim source As Long, dest As Long

          source = 42

          CopyMemory dest, CVar(source), 4
          MsgBox dest

          CopyMemory dest, source, 4
          MsgBox dest
          End Sub





          share|improve this answer





















          • Nice one! I thought about overloading, but rejected the idea, since VBA itself does not support it, and completely forgot about overload consuming with As Any.
            – Heinzi
            Nov 14 '18 at 13:07
















          2














          Not sure if that qualifies, but the only thing I can think of is the interaction with As Any in Declare.



          Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
          (Destination As Any, source As Any, ByVal Length As Long)

          Sub Test()
          Dim source As Long, dest As Long

          source = 42

          CopyMemory dest, CVar(source), 4
          MsgBox dest

          CopyMemory dest, source, 4
          MsgBox dest
          End Sub





          share|improve this answer





















          • Nice one! I thought about overloading, but rejected the idea, since VBA itself does not support it, and completely forgot about overload consuming with As Any.
            – Heinzi
            Nov 14 '18 at 13:07














          2












          2








          2






          Not sure if that qualifies, but the only thing I can think of is the interaction with As Any in Declare.



          Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
          (Destination As Any, source As Any, ByVal Length As Long)

          Sub Test()
          Dim source As Long, dest As Long

          source = 42

          CopyMemory dest, CVar(source), 4
          MsgBox dest

          CopyMemory dest, source, 4
          MsgBox dest
          End Sub





          share|improve this answer












          Not sure if that qualifies, but the only thing I can think of is the interaction with As Any in Declare.



          Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
          (Destination As Any, source As Any, ByVal Length As Long)

          Sub Test()
          Dim source As Long, dest As Long

          source = 42

          CopyMemory dest, CVar(source), 4
          MsgBox dest

          CopyMemory dest, source, 4
          MsgBox dest
          End Sub






          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Nov 14 '18 at 10:57









          GSerg

          58.9k14101219




          58.9k14101219












          • Nice one! I thought about overloading, but rejected the idea, since VBA itself does not support it, and completely forgot about overload consuming with As Any.
            – Heinzi
            Nov 14 '18 at 13:07


















          • Nice one! I thought about overloading, but rejected the idea, since VBA itself does not support it, and completely forgot about overload consuming with As Any.
            – Heinzi
            Nov 14 '18 at 13:07
















          Nice one! I thought about overloading, but rejected the idea, since VBA itself does not support it, and completely forgot about overload consuming with As Any.
          – Heinzi
          Nov 14 '18 at 13:07




          Nice one! I thought about overloading, but rejected the idea, since VBA itself does not support it, and completely forgot about overload consuming with As Any.
          – Heinzi
          Nov 14 '18 at 13:07


















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.





          Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


          Please pay close attention to the following guidance:


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53297450%2fwhen-is-the-vba-cvar-function-actually-useful%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Guess what letter conforming each word

          Port of Spain

          Run scheduled task as local user group (not BUILTIN)