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

1、-. z.類(lèi)型轉(zhuǎn)換函數(shù)請(qǐng)參閱例如特性每個(gè)函數(shù)都可以強(qiáng)制將一個(gè)表達(dá)式轉(zhuǎn)換成*種特定數(shù)據(jù)類(lèi)型。語(yǔ)法CBool(e*pression)CByte(e*pression)CCur(e*pression)CDate(e*pression)CDbl(e*pression)CDec(e*pression)CInt(e*pression)CLng(e*pression)CLngLng(e*pression)只在 64 位平臺(tái)上有效。CLngPtr(e*pression)CSng(e*pression)CStr(e*pression)CVar(e*pression)CStr(e*pression)必要的 e*p

2、ression參數(shù)可以是任何字符串表達(dá)式或數(shù)值表達(dá)式。返回類(lèi)型函數(shù)名稱(chēng)決定返回類(lèi)型，如下所示：函數(shù)返回類(lèi)型e*pression 參數(shù)圍CBool Boolean任何有效的字符串或數(shù)值表達(dá)式。CByteByte0 至 255。CCurCurrency-922,337,203,685,477.5808 至922,337,203,685,477.5807。CDateDate任何有效的日期表達(dá)式。CDblDouble 負(fù)數(shù)從 -1.231E308 至 -4.247E-324；正數(shù)從 4.247E-324 至 1.232E308。CDecDecimal零變比數(shù)值，即無(wú)小數(shù)位數(shù)值，為 +/-79,228,

3、162,514,264,337,593,543,950,335。對(duì)于 28 位小數(shù)的數(shù)值，圍則為 +/-7.；最小的可能非零值是 0.。CIntInteger-32,768 至 32,767，小數(shù)局部四舍五入。CLngLong-2,147,483,648 至 2,147,483,647，小數(shù)局部四舍五入。CLngLngLongLong-9,223,372,036,854,775,808 到 9,223,372,036,854,775,807；小數(shù)局部四舍五入。只在 64 位平臺(tái)上有效。CLngPtrLongPtr在 32 位系統(tǒng)上，為 -2,147,483,648 到 2,147,483,64

4、7；在 64 位系統(tǒng)上，為 -9,223,372,036,854,775,808 到 9,223,372,036,854,775,807；對(duì)于 32 位和 64 位系統(tǒng)，小數(shù)局部四舍五入。 CSngSingle負(fù)數(shù)為 -3.402823E38 至 -1.401298E-45；正數(shù)為 1.401298E-45 至 3.402823E38。CStrString依據(jù) e*pression 參數(shù)返回 Cstr。CVarVariant假設(shè)為數(shù)值，則圍與 Double 一樣；假設(shè)不為數(shù)值，則圍與 String 一樣。說(shuō)明如果傳遞給函數(shù)的 e*pression 超過(guò)轉(zhuǎn)換目標(biāo)數(shù)據(jù)類(lèi)型的圍，將發(fā)生錯(cuò)誤。通常，在

5、編碼時(shí)可以使用數(shù)據(jù)類(lèi)型轉(zhuǎn)換函數(shù)，來(lái)表達(dá)*些操作的結(jié)果應(yīng)該表示為特定的數(shù)據(jù)類(lèi)型，而不是缺省的數(shù)據(jù)類(lèi)型。例如，當(dāng)單精度、雙精度或整數(shù)運(yùn)算發(fā)生的情況下，使用 CCur 來(lái)強(qiáng)制執(zhí)行貨幣運(yùn)算。應(yīng)該使用數(shù)據(jù)類(lèi)型轉(zhuǎn)換函數(shù)來(lái)代替 Val，以使國(guó)際版的數(shù)據(jù)轉(zhuǎn)換可以從一種數(shù)據(jù)類(lèi)型轉(zhuǎn)換為另一種。例如，當(dāng)使用 Ccur 時(shí)，不同的小數(shù)點(diǎn)分隔符、千分位分隔符和各種貨幣選項(xiàng)，依據(jù)系統(tǒng)的區(qū)域設(shè)置都會(huì)被妥善識(shí)別。當(dāng)小數(shù)局部恰好為 0.5 時(shí)，Cint 和 CLng 函數(shù)會(huì)將它轉(zhuǎn)換為最接近的偶數(shù)值。例如，0.5 轉(zhuǎn)換為 0、1.5 轉(zhuǎn)換為 2。Cint 和 CLng 函數(shù)不同于 Fi* 和 Int 函數(shù)，F(xiàn)i* 和 Int 函

6、數(shù)會(huì)將小數(shù)局部截?cái)喽皇撬纳嵛迦?。并?Fi* 和 Int 函數(shù)總是返回與傳入的數(shù)據(jù)類(lèi)型一樣的值。使用 IsDate 函數(shù)，可判斷 date 是否可以被轉(zhuǎn)換為日期或時(shí)間。Cdate 可用來(lái)識(shí)別日期文字和時(shí)間文字，以及落入可承受的日期圍的數(shù)值。當(dāng)轉(zhuǎn)換一個(gè)數(shù)字成為日期時(shí)，是將整數(shù)局部轉(zhuǎn)換為日期，小數(shù)局部轉(zhuǎn)換為從午夜起算的時(shí)間。CDate 依據(jù)系統(tǒng)上的區(qū)域設(shè)置來(lái)決定日期的格式。如果提供的格式為不可識(shí)別的日期設(shè)置，則不能正確判斷年、月、日的順序。另外，長(zhǎng)日期格式，假設(shè)包含有星期的字符串，也不能被識(shí)別。注意 CDec 函數(shù)不能返回獨(dú)立的數(shù)據(jù)類(lèi)型，而總是返回一個(gè) Variant，它的值已經(jīng)被轉(zhuǎn)換為 Dec

7、imal 子類(lèi)型。CBool 函數(shù)例如此例如使用 CBool 函數(shù)將表達(dá)式轉(zhuǎn)換為 Boolean。如果表達(dá)式的值不為零，則 CBool 返回 True；否則，返回 False。Dim A, B, CheckA = 5:B = 5 初始化變量。Check = CBool(A = B) Check 包含 True。A = 0 定義變量。Check = CBool(A) Check 包含 False。CByte 函數(shù)例如此例如使用 CByte 函數(shù)將表達(dá)式轉(zhuǎn)換為 Byte。Dim MyDouble, MyByteMyDouble = 125.5678 MyDouble 為 Double。MyByte

8、 = CByte(MyDouble) MyByte 包含 126。CCur 函數(shù)例如此例如使用 CCur 函數(shù)將表達(dá)式轉(zhuǎn)換為 Currency。Dim MyDouble, MyCurrMyDouble = 543.214588 MyDouble 為 Double。MyCurr = CCur(MyDouble * 2) 將 MyDouble * 2 的結(jié)果 (1086.429176) 轉(zhuǎn)換為 Currency (1086.4292)。CDate 函數(shù)例如此例如使用 CDate 函數(shù)將字符串轉(zhuǎn)換為 Date。通常，建議不要將日期和時(shí)間硬編碼為字符串如此例如中所示。請(qǐng)改為使用日期文字和時(shí)間文字，如

9、#2/12/1969# 和 #4:45:23 PM#。Dim MyDate, MyShortDate, MyTime, MyShortTimeMyDate = February 12, 1969 定義日期。MyShortDate = CDate(MyDate) 轉(zhuǎn)換為 Date 數(shù)據(jù)類(lèi)型。MyTime = 4:35:47 PM 定義時(shí)間。MyShortTime = CDate(MyTime) 轉(zhuǎn)換為 Date 數(shù)據(jù)類(lèi)型。CDbl 函數(shù)例如此例如使用 CDbl 函數(shù)將表達(dá)式轉(zhuǎn)換為 Double。Dim MyCurr, MyDoubleMyCurr = CCur(234.456784) MyCur

10、r 為 Currency。MyDouble = CDbl(MyCurr * 8.2 * 0.01) 轉(zhuǎn)換結(jié)果為 Double。CDec 函數(shù)例如此例如使用 CDec 函數(shù)將數(shù)字值轉(zhuǎn)換為 Decimal。Dim MyDecimal, MyCurrMyCurr = 10000000.0587 MyCurr 為 Currency。MyDecimal = CDec(MyCurr) MyDecimal 為 Decimal。CInt 函數(shù)例如此例如使用 CInt 函數(shù)將值轉(zhuǎn)換為 Integer。Dim MyDouble, MyIntMyDouble = 2345.5678 MyDouble 為 Doubl

11、e。MyInt = CInt(MyDouble) MyInt 包含 2346。CLng 函數(shù)例如此例如使用 CLng 函數(shù)將值轉(zhuǎn)換為 Long。Dim MyVal1, MyVal2, MyLong1, MyLong2MyVal1 = 25427.45:MyVal2 = 25427.55 MyVal1、MyVal2 為 Double。MyLong1 = CLng(MyVal1) MyLong1 包含 25427。MyLong2 = CLng(MyVal2) MyLong2 包含 25428。CSng 函數(shù)例如此例如使用 CSng 函數(shù)將值轉(zhuǎn)換為 Single。Dim MyDouble1, MyDouble2, MySingle1, MySingle2 MyDouble1、MyDouble2 為 Double。MyDouble1 = 75.3421115:MyDouble2 = 75.3421555MySingle1 = CSng(MyDouble1) MySingle1 包含 75.34211。MySingle2 = CSng(MyDouble2) MySingle2 包含 75.34216。CStr 函數(shù)例如此例如使用 CStr 函數(shù)將數(shù)字值轉(zhuǎn)換為 String。Dim MyDouble, MyStringMyDouble = 437.324 MyDou