snipt

Ctrl+h for KB shortcuts

VB.net

nz

Public Overloads Shared Function nz(ByVal obj As Object, ByVal strReplacement As String) As String
        Try
            If (obj Is Nothing OrElse IsDBNull(obj) OrElse obj.ToString().Length = 0) Then
                Return strReplacement
            Else
                Return obj
            End If
        Catch e As Exception
            Return strReplacement
        End Try
End Function

Public Overloads Shared Function nz(ByVal obj As Object, ByVal lngReplacement As Long) As Long
        Try
            If (obj Is Nothing OrElse IsDBNull(obj) OrElse obj.ToString().Length = 0) Then
                Return lngReplacement
            Else
                Return obj
            End If
        Catch e As Exception
            Return lngReplacement
        End Try
End Function
https://snippets.siftie.com/embed/c97b334ffd41ea4997083f1949632bc1/
/raw/c97b334ffd41ea4997083f1949632bc1/
c97b334ffd41ea4997083f1949632bc1
vb.net
VB.net
23
2019-03-22T21:09:40
True
False
False
/api/public/snipt/1723/
nz
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1"> 1</a> <a href="#L-2"> 2</a> <a href="#L-3"> 3</a> <a href="#L-4"> 4</a> <a href="#L-5"> 5</a> <a href="#L-6"> 6</a> <a href="#L-7"> 7</a> <a href="#L-8"> 8</a> <a href="#L-9"> 9</a> <a href="#L-10">10</a> <a href="#L-11">11</a> <a href="#L-12">12</a> <a href="#L-13">13</a> <a href="#L-14">14</a> <a href="#L-15">15</a> <a href="#L-16">16</a> <a href="#L-17">17</a> <a href="#L-18">18</a> <a href="#L-19">19</a> <a href="#L-20">20</a> <a href="#L-21">21</a> <a href="#L-22">22</a> <a href="#L-23">23</a></pre></div></td><td class="code"><div class="highlight"><pre><span></span><span id="L-1"><a name="L-1"></a><span class="k">Public</span> <span class="k">Overloads</span> <span class="k">Shared</span> <span class="k">Function</span> <span class="nf">nz</span><span class="p">(</span><span class="k">ByVal</span> <span class="n">obj</span> <span class="ow">As</span> <span class="kt">Object</span><span class="p">,</span> <span class="k">ByVal</span> <span class="n">strReplacement</span> <span class="ow">As</span> <span class="kt">String</span><span class="p">)</span> <span class="ow">As</span> <span class="kt">String</span> </span><span id="L-2"><a name="L-2"></a> <span class="k">Try</span> </span><span id="L-3"><a name="L-3"></a> <span class="k">If</span> <span class="p">(</span><span class="n">obj</span> <span class="ow">Is</span> <span class="k">Nothing</span> <span class="ow">OrElse</span> <span class="n">IsDBNull</span><span class="p">(</span><span class="n">obj</span><span class="p">)</span> <span class="ow">OrElse</span> <span class="n">obj</span><span class="p">.</span><span class="n">ToString</span><span class="p">().</span><span class="n">Length</span> <span class="o">=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">Then</span> </span><span id="L-4"><a name="L-4"></a> <span class="k">Return</span> <span class="n">strReplacement</span> </span><span id="L-5"><a name="L-5"></a> <span class="k">Else</span> </span><span id="L-6"><a name="L-6"></a> <span class="k">Return</span> <span class="n">obj</span> </span><span id="L-7"><a name="L-7"></a> <span class="k">End</span> <span class="k">If</span> </span><span id="L-8"><a name="L-8"></a> <span class="k">Catch</span> <span class="n">e</span> <span class="ow">As</span> <span class="n">Exception</span> </span><span id="L-9"><a name="L-9"></a> <span class="k">Return</span> <span class="n">strReplacement</span> </span><span id="L-10"><a name="L-10"></a> <span class="k">End</span> <span class="k">Try</span> </span><span id="L-11"><a name="L-11"></a><span class="k">End</span> <span class="k">Function</span> </span><span id="L-12"><a name="L-12"></a> </span><span id="L-13"><a name="L-13"></a><span class="k">Public</span> <span class="k">Overloads</span> <span class="k">Shared</span> <span class="k">Function</span> <span class="nf">nz</span><span class="p">(</span><span class="k">ByVal</span> <span class="n">obj</span> <span class="ow">As</span> <span class="kt">Object</span><span class="p">,</span> <span class="k">ByVal</span> <span class="n">lngReplacement</span> <span class="ow">As</span> <span class="kt">Long</span><span class="p">)</span> <span class="ow">As</span> <span class="kt">Long</span> </span><span id="L-14"><a name="L-14"></a> <span class="k">Try</span> </span><span id="L-15"><a name="L-15"></a> <span class="k">If</span> <span class="p">(</span><span class="n">obj</span> <span class="ow">Is</span> <span class="k">Nothing</span> <span class="ow">OrElse</span> <span class="n">IsDBNull</span><span class="p">(</span><span class="n">obj</span><span class="p">)</span> <span class="ow">OrElse</span> <span class="n">obj</span><span class="p">.</span><span class="n">ToString</span><span class="p">().</span><span class="n">Length</span> <span class="o">=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">Then</span> </span><span id="L-16"><a name="L-16"></a> <span class="k">Return</span> <span class="n">lngReplacement</span> </span><span id="L-17"><a name="L-17"></a> <span class="k">Else</span> </span><span id="L-18"><a name="L-18"></a> <span class="k">Return</span> <span class="n">obj</span> </span><span id="L-19"><a name="L-19"></a> <span class="k">End</span> <span class="k">If</span> </span><span id="L-20"><a name="L-20"></a> <span class="k">Catch</span> <span class="n">e</span> <span class="ow">As</span> <span class="n">Exception</span> </span><span id="L-21"><a name="L-21"></a> <span class="k">Return</span> <span class="n">lngReplacement</span> </span><span id="L-22"><a name="L-22"></a> <span class="k">End</span> <span class="k">Try</span> </span><span id="L-23"><a name="L-23"></a><span class="k">End</span> <span class="k">Function</span> </span></pre></div> </td></tr></table>
tools, vb.net