Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<const>
  version=2.0.1
  vdate=22.12.2016
  fname=cast_cast.bas
  ns=%NAMESPACE%
  fpath=/vba/cast
</const>
{{keywords>vba,cast}}
{{description>Diese Funktion erstellt auf verschiedene Arten ein Dictionary. V-%%version%%}}

====== [VBA] cast() ======
//Eine Funktion die anhand der %%VarTypes%% versucht ein Wert zu casten.
Diese Funktion ist nicht für Objekte geeignet.
//
==Version %%version%% %%vdate%%==
{{%%fname%%|Download %%fname%% (V-%%version%%)}}

===== Definition =====
<code>boolean = cast(vbVarType, value [,Strong])</code>
<code vb>Public Function cast( _
        ByVal iType As VbVarType, _
        ByVal iVar As Variant, _
        Optional ByVal iStrong As Boolean = False _
) As Variant</code>


===== Beispiele =====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[vba:functions:print_r:index]]
<code vb>d cast(vbInteger, "123.45")
<Integer> 123

'Versuch misslungen. Der Originalwert wird zurückgehen
d cast(vbInteger, "ABC")
<String> 'ABC'

'Dasselbe aber mit Strong
d cast(vbInteger, "ABC", true)
--> Verursacht einen Error 13 Type mismatch

'0, leerer String, Empty und Null können zu Null oder Empty konvertiert werden
d cast(vbNull, 0)
<Null> 
d cast(vbEmpty, NULL)
<Empty> 

'Boolean sind ebenfalls möglich
d cast(vbBoolean, 1)
<Boolean> True

'Ein einzelner Wert in ein Array wandeln
d cast(vbArray, 12)
<Variant()>  (
    [0] => <Integer> 12
)

'Ein Array in ein Array wandeln
d cast(vbArray, array(11, 12))
<Variant()>  (
    [0] => <Integer> 11
    [1] => <Integer> 12
)

'cast() führt auch zusätzlich ein NZ() aus
d cast(vbInteger, Null)
<Integer> 0</code>

===== Code =====
<source '%%fpath%%/%%fname%%' vb>
Yaslaw.Info

User Tools

Site Tools

Page Tools
