vba中數(shù)據(jù)類型轉(zhuǎn)換

1、類型轉(zhuǎn)換函數(shù)請(qǐng)參閱示例特性每個(gè)函數(shù)都可以強(qiáng)制將一個(gè)表達(dá)式轉(zhuǎn)換成某種特定數(shù)據(jù)類型CBool(expression )CByte(expression )CCur(expression )CDate(expression )CDbl(expression )CDec(expression )Clnt( expression )CLng(expression )CLngLng(expression )(只在64 位平臺(tái)上有效。)CLngPtr( expression )CSng(expression )CStr( expression )CVar(expression )CStr( expressi

2、on )必要的expression參數(shù)可以是任何字符串表達(dá)式或數(shù)值表達(dá)式返回類型函數(shù)名稱決定返回類型，如下所示：函數(shù)返回類型expression參數(shù)范圍CBoolBoolea n任何有效的字符串或數(shù)值表達(dá)式。CByteByte0 至 255。CCurCurre ncy-922,337,203,685,至 922,337,203,685,。CDateDate任何有效的日期表達(dá)式。CDblDouble負(fù)數(shù)從至；正數(shù)從至。CDecDecimal零變比數(shù)值，即無(wú)小數(shù)位數(shù)值，為+/-79,228,162,514,264,337,593,543,950,335。對(duì)于28位小數(shù)的數(shù)值，范圍則為+/;最小的可

3、能非零值是。CI ntIn teger-32,768至32,767，小數(shù)部分四舍五入。CL ngLo ng-2,147,483,648 至 2,147,483,647，小數(shù)部分四舍五入。CLngLngLongLong-9,223,372,036,854,775,808至 U9,223,372,036,854,775,807;小數(shù)部分四舍五入（只在64位平臺(tái)上有效。）CLn gPtrLon gPtr在32位系統(tǒng)上，為-2,147,483,648至U2,147,483,647 ;在64 位系統(tǒng)上，為 -9,223,372,036,854,775,808至 U9,223,372,036,854,77

4、5,807;對(duì)于 32 位和 64位系統(tǒng)，小數(shù)部分四舍五入。CS ngSi ngle負(fù)數(shù)為至；正數(shù)為至。CStrStri ng依據(jù)expression 參數(shù)返回Cstr 。CVarVaria nt若為數(shù)值，則范圍與 Double相同；若不為數(shù)值,則范圍與String 相同。說(shuō)明如果傳遞給函數(shù)的expression超過(guò)轉(zhuǎn)換目標(biāo)數(shù)據(jù)類型的范圍，將發(fā)生錯(cuò)誤。通常，在編碼時(shí)可以使用數(shù)據(jù)類型轉(zhuǎn)換函數(shù)， 來(lái)體現(xiàn)某些操作的結(jié)果應(yīng)該表示為 特定的數(shù)據(jù)類型，而不是缺省的數(shù)據(jù)類型。例如，當(dāng)單精度、雙精度或整數(shù)運(yùn)算 發(fā)生的情況下，使用 CCur來(lái)強(qiáng)制執(zhí)行貨幣運(yùn)算。應(yīng)該使用數(shù)據(jù)類型轉(zhuǎn)換函數(shù)來(lái)代替 Vai，以使國(guó)際版的

5、數(shù)據(jù)轉(zhuǎn)換可以從一種數(shù)據(jù) 類型轉(zhuǎn)換為另一種。例如，當(dāng)使用 Ccur時(shí)，不同的小數(shù)點(diǎn)分隔符、千分位分隔 符和各種貨幣選項(xiàng)，依據(jù)系統(tǒng)的區(qū)域設(shè)置都會(huì)被妥善識(shí)別。當(dāng)小數(shù)部分恰好為時(shí)，Ci nt和CL ng函數(shù)會(huì)將它轉(zhuǎn)換為最接近的偶數(shù)值。例如，轉(zhuǎn)換為0、轉(zhuǎn)換為2。Cint和CLng函數(shù)不同于 Fix和Int函數(shù)，F(xiàn)ix 和Int函數(shù)會(huì)將小數(shù)部分截?cái)喽皇撬纳嵛迦?。并且Fix和Int函數(shù)總是返回與傳入的數(shù)據(jù)類型相同的值。使用IsDate函數(shù)，可判斷date是否可以被轉(zhuǎn)換為日期或時(shí)間。Cdate可用來(lái) 識(shí)別日期文字和時(shí)間文字，以及落入可接受的日期范圍內(nèi)的數(shù)值。 當(dāng)轉(zhuǎn)換一個(gè)數(shù) 字成為日期時(shí)，是將整數(shù)部分轉(zhuǎn)換為日

6、期，小數(shù)部分轉(zhuǎn)換為從午夜起算的時(shí)間。CDate依據(jù)系統(tǒng)上的區(qū)域設(shè)置來(lái)決定日期的格式。 如果提供的格式為不可識(shí)別的 日期設(shè)置，則不能正確判斷年、月、日的順序。另外，長(zhǎng)日期格式，若包含有星 期的字符串，也不能被識(shí)別。注意CDec函數(shù)不能返回獨(dú)立的數(shù)據(jù)類型，而總是返回一個(gè) Variant ,它的值已 經(jīng)被轉(zhuǎn)換為Decimal子類型。CBool函數(shù)示例此示例使用CBool函數(shù)將表達(dá)式轉(zhuǎn)換為 Boolean。如果表達(dá)式的值不為零，則CBool返回True;否則，返回 False。Dim A, B, CheckA = 5:B = 5 初始化變量。Check = CBool( A = B ) Check 包

7、含 True。A = 0 定義變量。Check = CBool( A) Check 包含 False。CByte 函數(shù)示例此示例使用 CByte 函數(shù)將表達(dá)式轉(zhuǎn)換為 Byte 。Dim MyDouble, MyByteMyDouble = MyDouble 為 Double 。MyByte = CByte( MyDouble) MyByte 包含 126 。CCur 函數(shù)示例此示例使用 CCur 函數(shù)將表達(dá)式轉(zhuǎn)換為 Currency 。Dim MyDouble, MyCurrMyDouble = MyDouble 為 Double 。MyCurr = CCur( MyDouble * 2 )

8、將 MyDouble * 2 的結(jié)果 轉(zhuǎn)換為 Currency 。CDate 函數(shù)示例此示例使用 CDate 函數(shù)將字符串轉(zhuǎn)換為 Date 。通常，建議不要將日期和時(shí)間硬 編碼為字符串(如此示例中所示)。請(qǐng)改為使用日期文字和時(shí)間文字，如 #2/12/1969# 和 #4:45:23 PM# 。Dim MyDate, MyShortDate, MyTime, MyShortTime轉(zhuǎn)換為 Date 數(shù)據(jù)類型。MyDate = February 12, 1969 定義日期。MyShortDate = CDate( MyDate)MyShortTime = CDate( MyTime) 轉(zhuǎn)換為 Da

9、te 數(shù)據(jù)類型。CDbl 函數(shù)示例此示例使用 CDbl 函數(shù)將表達(dá)式轉(zhuǎn)換為 Double 。Dim MyCurr, MyDoubleMyCurr = CCur MyCurr 為 Currency 。MyDouble = CDbl( MyCurr * * 轉(zhuǎn)換結(jié)果為 Double 。CDec 函數(shù)示例此示例使用CDec函數(shù)將數(shù)字值轉(zhuǎn)換為Decimal 。Dim MyDecimal, MyCurr MyCurr = .0587 MyCurr MyDecimal = CDec(MyCurr )CInt 函數(shù)示例此示例使用 CInt 函數(shù)將值轉(zhuǎn)換為Dim MyDouble, MyIntMyDouble

10、 = MyDouble MyInt = CInt( MyDouble)為 Currency 。 MyDecimal 為 Decimal 。Integer 。為 Double 。MyInt 包含 2346 。CLng 函數(shù)示例此示例使用 CLng 函數(shù)將值轉(zhuǎn)換為 Long。Dim MyVal1, MyVal2, MyLong1, MyLong2MyVal1 = :MyVal2 = MyVal1、 MyVal2 為 Double 。MyLong1 = CLng(MyVal1) MyLong1 包含 25427 。MyLong2 = CLng(MyVal2) MyLong2 包含 25428 。CS

11、ng 函數(shù)示例此示例使用 CSng 函數(shù)將值轉(zhuǎn)換為 Single 。Dim MyDouble1, MyDouble2, MySingle1, MySingle2 MyDouble1 、 MyDouble2 為 Double 。MyDouble1 = :MyDouble2 =MySingle1 = CSng(MyDouble1) MySingle1包含 。MySingle2 = CSng(MyDouble2) MySingle2包含 。CStr 函數(shù)示例此示例使用 CStr 函數(shù)將數(shù)字值轉(zhuǎn)換為 String 。Dim MyDouble, MyStringMyDouble = MyDouble 為 Doub