每个函数都可以将表达式（表达式：算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合，计算结果为单个值。表达式可执行计算、操作字符或测试数据。）强制转换

Linux Access函数之CBool函数 此示例使用CBool函数将表达式转换为Boolean值。如果表达式的求值结果是一个非零值，CBool将返回True；否则，它将返回False。

DimA,B,Check 
A=5:B=5'Initializevariables. 
Check=CBool(A=B)'CheckcontainsTrue. 
A=0'Definevariable. 
Check=CBool(A)'CheckcontainsFalse. 

Linux Access函数之CByte函数 此示例使用CByte函数将表达式转换为Byte值。

DimMyDouble,MyByte 
MyDouble=125.5678'MyDoubleisaDouble. 
MyByte=CByte(MyDouble)'MyBytecontains126. 

Linux Access函数之CCur函数 此示例使用CCur函数将表达式转换为Currency值。

DimMyDouble,MyCurr 
MyDouble=543.214588'MyDoubleisaDouble. 
MyCurr=CCur(MyDouble*2) 
'ConvertresultofMyDouble*2(1086.429176)toa 
'Currency(1086.4292). 

Linux Access函数之CDate函数 此示例使用CDate函数将字符串转换为Date值。通常，建议不将日期和时间硬编码为字符串（如本示例中所示）。请改用日期文本和时间文本，如#2/12/1969#和#4:45:23PM#。

DimMyDate,MyShortDate,MyTime,MyShortTime 
MyDate="February12,1969"
'ConverttoDatedatatype. 
MyShortDate=CDate(MyDate) 
MyTime="4:35:47PM"
'ConverttoDatedatatype. 
MyShortTime=CDate(MyTime) 

Linux Access函数之CDbl函数 此示例使用CDbl函数将表达式转换为双精度型值。

DimMyCurr,MyDouble 
MyCurr=CCur(234.456784) 
'ConvertresulttoaDouble. 
MyDouble=CDbl(MyCurr*8.2*0.01) 

Linux Access函数之CDec函数 此示例使用CDec函数将数值转换为Decimal值。

DimMyDecimal,MyCurr 
MyCurr=10000000.0587'MyCurrisaCurrency. 
MyDecimal=CDec(MyCurr)'MyDecimalisaDecimal. 

Linux Access函数之CInt函数 此示例使用CInt函数将值转换为Integer值。

DimMyDouble,MyInt 
MyDouble=2345.5678'MyDoubleisaDouble. 
MyInt=CInt(MyDouble)'MyIntcontains2346. 

Linux Access函数之CLng函数 此示例使用CLng函数将值转换为Long值。

DimMyVal1,MyVal2,MyLong1,MyLong2 
MyVal1=25427.45 
MyVal2=25427.55'MyVal1,MyVal2areDoubles. 
MyLong1=CLng(MyVal1) 
'MyLong1contains25427. 
MyLong2=CLng(MyVal2) 
'MyLong2contains25428. 

Linux Access函数之CSng函数 此示例使用CSng函数将值转换为Single值。