Vyom World.com Let's Touch the Sky Together!
 Home VyomWorld.com Home Free Magazines! VyomLinks.com Home JobsAssist.com Home Vyom Network Contact Us Jobs & Careers Resume Submitter Placement Papers IT Companies Directory Computer Jobs Interview Questions Online Exams Vyom Career eMag. Fun Screensavers New! Send FREE SMS! SMS Jokes Source Codes Library Source Codes Home ASP Source Codes C Source Codes C++ Source Codes COBOL Source Codes Java Source Codes Pascal Source Codes Submit Source Codes GATE GATE an Overview GATE Preparation Study Materal GRE GRE an Overview GRE Questions GRE Preparation GRE Universities TOEFL Preparation TOEFL Resources GMAT Preparation GMAT Resources MBA Preparation MBA Resources Networking Concepts Networking Concepts Testing Preparation Testing Resources Webmasters Free Traffic Builder Webmaster Articles Web Hosting Tutorials Hardware Tutorial 1500 Free eBooks New! FREE Publications
Vyom Career eMag.
 Get 9,000+ Interview Questions & Answers in an eBook. 9,000+ Interview Questions All Questions Answered 5 FREE Bonuses Free Upgrades Get it now!
Get 9,000+ Interview Questions with Answers in an eBook

Home >> Source Codes Library Home >> Language Home >> Category Home > > Item Description
Search Code Library

 Advertisements Advertisements

 Title CBit Function Description: CBit converts anything to an integer that is suitable for use with MS SQL Server bit fields. CBit ensures that a 1 or 0 will always be returned by the function, regardless of the data type or value of the input expression. CBit returns a 0 or 1 value based on the following criteria (see table). Criteria is applied in the order stated below. Once any criteria is recognized by CBit, no other criteria will be checked to determine the value of the bit field. In other words, CBit goes with the first criteria that matches and then stops testing the variant input and returns the results of the first applicable test. Variant Argument CBit Returns ------------------------------------------------------------------ if variant can be converted to sub-type 1 string and is considered alpha-numeric and if the value is: "on", "true", "y", or "t" if variant can be converted to sub-type 0 string and is considered alpha-numeric and if the value is: "off", "false", "n", "f", or "" if variant can be converted to a long 1 value and is greater than 0 if variant can be converted to a long 0 value and is less than 0 if variant is numeric but raises an error 0 when being converted to long if variant is null, empty or an array 0 if variant is an object and is set to 1 anything other than Nothing if variant is an object and is set to 0 Nothing if data type or value of passed variant 0 argument is not given a value based on the above criteria If CBit cannot determine the bit status of a particular variant entry, CBit always returns 0. Hits: 1457 Since 25th November, 2003 Code: Select and Copy the Code <% Private Function CBit(ByVal variantIn) Dim re, bTest, bOut bOut = Null On Error Resume Next Set re = New RegExp With re .Global = False .IgnoreCase = True .Pattern = "^([A-Z\-\_\d]+)\$" bTest = .test(variantIn) End With Set re = Nothing If Err Then bTest = False On Error GoTo 0 If IsNull(bOut) And bTest Then 'alpha-numeric Select Case CStr(LCase(Trim(variantIn))) Case "on", "true", "y", "t" bOut = 1 Case "off", "false", "n", "f", "" bOut = 0 End Select End If If IsNull(bOut) And IsNumeric(variantIn) Then On Error Resume Next variantIn = CLng(variantIn) If Err Then bOut = 0 Else If variantIn > 0 Then _ bOut = 1 Else bOut = 0 End If On Error GoTo 0 End If If IsNull(bOut) And (IsNull(variantIn) Or _ IsEmpty(variantIn) Or IsArray(variantIn)) Then bOut = 0 If IsNull(bOut) And IsObject(variantIn) Then If variantIn Is Nothing Then _ bOut = 0 Else bOut = 1 End If If IsNull(bOut) Then bOut = 0 CBit = bOut End Function %>
New! Click here to Add your Code!

ASP Home | C Home | C++ Home | COBOL Home | Java Home | Pascal Home
Source Codes Home Page

Recently Updated: New Placement Papers added.
Vyom Network : Web Hosting | Dedicated Server | Free SMS, GRE, GMAT, MBA | Online Exams | Freshers Jobs | Software Downloads | Programming & Source Codes | GRE Preparation | Jobs, Discussions | Software Listing | Free eBooks | Free eBooks | Free Business Info | Interview Questions | Free Tutorials | International Business Information | IAS Preparation | Jokes, Songs, Fun | Free Classifieds | Free Recipes | FAQs | Free Downloads | Bangalore Info | Tech Solutions | Project Outsourcing, Web Hosting | GATE Preparation | MBA Preparation | SAP Info | Excellent Mobiles | Software Testing | Interview Questions | Freshers Jobs | Server Insiders | File Extension Directory

Copyright ©2003-2018 Vyom Technosoft Pvt. Ltd., All Rights Reserved. Read our Privacy Policy