"Mixed mode"
assignment statements were shown in a previous topic (i.e., a string was
assigned to an integer, a single was assigned to a string, etc.). VB would
perform the necessary conversions in these cases wherever it could. Such
conversions are called __implicit conversions__.

In VB, you can also use a
set of functions that __explicitly__ convert (or "cast") one type
of data to another. The set of functions that enable you to do this all begin
with the letter "C": CBool, CByte, CCur, CDate, CDbl, CDec, CInt,
CLng, CSng, CStr, and CVar. In addition, two older functions, Val and Str,
enable you to convert from a string to a number and from a number to a string,
respectively. Each function is described below:

**CBool **takes any valid expression and converts it to
Boolean. Values of zero convert to False, all others to True. If the
expression is String, it must be a string that can be converted to a number
(like "123"). The strings "True" and "False" will
also work; any other string will result in an error.

__Examples__:

blnTest = CBool(50) ' blnTest = True

blnTest = CBool(0) ' blnTest = False

blnTest = CBool("-26") ' blnTest = True

blnTest = CBool("True") ' blnTest = True

blnTest = CBool("False") ' blnTest = False

blnTest = CBool("ABC") ' *** Error ***

**CByte** converts
an expression to a Byte data type. The value of the expression is rounded up,
must not exceed 255, and must not be negative.

__Examples__:

bytX = CByte(125.5678) ' bytX = 126

bytX = CByte(300.99) ' error

**CCur** converts
an expression to a Currency data type. The expression must be a number (or a
string representation of a number) that is with the Currency range. The result
is rounded off at the 4th digit after decimal point.

__Examples__:

curX = CCur(1234.56789) ' curX = 1234.5679

curX = CCur(1234.56782) ' curX = 1234.5678

**CDate** converts
a numeric or string expression to a Date data type. (For numeric expressions, 0
represents the date 12/30/1899. Negative values represent dates before 12/30/1899;
positive values represent dates after. The decimal portion of a number
represents the time â€“ for example, .5 = noon.) Numeric or string arguments outside of the range
of the Date data type (1/1/100 thru 12/31/9999)
results in an error.

__Examples__:

dtmTest = CDate("1/1/2000") 'dtmTest = 1/1/2000

dtmTest = CDate("January 1, 2000") 'dtmTest = 1/1/2000

dtmTest = CDate(123) 'dtmTest = 5/2/1900

dtmTest = CDate(123.456) 'dtmTest = 5/2/1900 10:56:38 AM

dtmTest = CDate("ABC") 'error

**CDbl** converts
an expression to a Double data type. The expression must be a number (or a
string representation of a number) that is within the Double range.

__Example__:

dblTest = CDbl("1058.930") 'dblTest = 1058.93

**CDec** converts
an expression to a Decimal data type. The expression must be a number (or a
string representation of a number) that is within the Decimal range (roughly, a
29 digit number with a varying decimal point).

Note: The Decimal data type is not a "stand alone" VB data type and can only be used with Variant data types.

The following example stores the Decimal representation of 123.456 in vntDecValue and tells VB to use the Decimal sub-type with the Variant variable vntDecValue:

vntDecValue = CDec("123.456")

**CInt** converts
an expression to an Integer data type. The expression must be a number (or a
string representation of a number) that is within the Integer range. Values
with digits after the decimal point are automatically rounded to the nearest
integer.

intX = CInt(-1.2) 'intX = -1

intX = CInt(-1.9) 'intX = -2

intX = CInt(3.69) 'intX = 4

intX = CInt(3.3) 'intX = 3

**CLng** converts
an expression to a Long data type. The expression must be a number (or a string
representation of a number) that is within the Long range. Values with digits
after the decimal point are automatically rounded to the nearest integer.

__Examples__:

lngX = CLng(-1.2) 'lngX = -1

lngX = CLng(-1.9) 'lngX = -2

lngX = CLng(3.69) 'lngX = 4

lngX = CLng(3.3) 'lngX = 3

**CSng** converts
an expression to a Single data type. The expression must be a number (or a
string representation of a number) that is within the Single range.

__Example__:

sngTest = CSng("1058.930") 'sngTest = 1058.93

**CStr** converts
a variable of any datatype to a string. If the argument is a Date, the
"short format" date (m/d/yy) is returned. If the argument is Boolean,
the string "True" or "False" is returned. If the argument
is a number, a string representation of the number is returned.

__Examples__:

dtmTest = #08/02/2001#

blnTest = False

sngTest = 123.456

strTest = CStr(dtmTest) 'strTest = "8/2/01"

strTest = CStr(blnTest) 'strTest = "False"

strTest = CStr(sngTest) 'strTest = "123.456"

**CVar **converts a variable to a Variant. If the argument is
numeric, the result is a Double; for non-numeric values, the result is a
String.

**The ****Val Function**

The Val function is a more generic (and less efficient) way to convert a string to a number. Technically, it returns a Double data type. It strips all blanks from a string argument and then converts the remaining characters to a number. The Val function recognizes a leading sign, digits, and a decimal point as part of a number; it will stop scanning the string at the first character that cannot be considered part of a number. If the string cannot be converted to a number, 0 will be returned.

` `__Examples__:

lngX =`Val(" `

`1615 198th Street N.E.`

`") 'lngX = 1615198`

`intX =`

Val(`"2457"`

)`'intX = 2457`

`intX =`

Val(`" 2 45 7"`

)`'intX = 2457`

`intX =`

Val(`"24 and 57"`

)`'intX = 24`

` sngX = Val("-1234.56") 'sngX = -1234.56`

` sngX = Val("-1,234.56") 'sngX = -1`

` dblX = Val("ABC") 'dblX = 0`

Although less efficient than
the "Cxxx" functions, one advantage to using **Val** is that if
the string argument cannot be converted to a number, Val will simply return 0,
whereas the equivalent "Cxxx" function would return a Type Mismatch
error.

** **

**The ****Str (or Str$) Function**

The Str function is an
older function (dating back to earlier versions of BASIC) that converts a
number to a string. When numbers are converted to strings, a leading space is
always reserved for the sign of *number*. If *number* is positive,
the returned string contains a leading space and the plus sign is implied. The Str
function recognizes only the period (**.**) as a valid decimal separator.

` `__Examples__:

` `

Dim strTest As String

strTest = Str$(123) ' Returns " 123".

strTest = Str$(-123.45) ' Returns "-123.45".

strTest = Str$(789.001) ' Returns " 789.001".

## convert

how could i convert 8 decimal digits in vb6.0?

this is what i want.....how can i make 13.5 into 14...in vb....

if i will input 100 it will authomatically becomes 14. instead of 13.5.....

## Sir...

I tried this to convert into decimal,cdbl,ccur in vb6 but seems i didn't get the exact return value..

i tried all the functions, cdbl,ccur,cdec but seems i didn't get any result

the value of a text box

-123,123,122,123.12323

i want to get the result in

is to retain the decimal point like

-123123122123.12

but not of them give me the right value... any help on this?

## reply

?round("-123,123,122,123.12323",2)

?round("123,123,122,123.12323",2)

## Nice! This helped me a lot!

Nice! This helped me a lot! Thanks

## Post new comment