【導(dǎo)讀】ExcelVBA學(xué)習(xí)資料。函。數(shù)。參。考。手。冊。摘自Excel2020VBA幫助。2020年10月27日。第2頁

　　

【正文】 否可以被轉(zhuǎn)換為日期或時(shí)間。 Cdate 可用來識別日期文字和時(shí)間文字，以及落入可接受的日期范圍內(nèi)的數(shù)值。當(dāng)轉(zhuǎn)換一個(gè)數(shù)字成為日期時(shí)，是將整數(shù)部分轉(zhuǎn)換為日期，小數(shù)部分轉(zhuǎn)換為從午夜起算的時(shí)間。 CDate 依據(jù)系統(tǒng)上的區(qū)域設(shè)置來決定日期的格式。如果提供的格式為不可識別的日期設(shè)置，則不能正確判斷年、月、日 的順序。另外，長日期格式，若包含有星期的字符串，也不能被識別。 CVDate 函數(shù)也提供對早期 Visual Basic 版本的兼容性。 CVDate 函數(shù)的語法與 CDate 函數(shù)是完全相同的，不過， CVDate 是返回一個(gè) Variant，它的子類型是 Date，而不是實(shí)際的 Date 類型。因?yàn)楝F(xiàn)在已有真正的 Date 類型，所以 CVDate 也不再需要了。轉(zhuǎn)換一個(gè)表達(dá)式成為 Date，再賦值給一個(gè) Variant，也可以達(dá)到同樣的效果。也可以使用這種技巧將其他真正的數(shù)據(jù)類型轉(zhuǎn)換為對等的 Variant 子類型。 注意 CDec 函數(shù)不能返回獨(dú)立的數(shù)據(jù)類型，而總是返回一個(gè) Variant，它的值已經(jīng)被轉(zhuǎn)換為 Decimal 子類型。 CBool 函數(shù)示例 本示例使用 CBool 函數(shù)來將一表達(dá)式轉(zhuǎn)成 Boolean 值。如果表達(dá)式的結(jié)果為非零的值， CBool 返回 True；否則返回 False。 Dim A, B, Check A = 5: B = 5 39。 設(shè)置變量初值。 第 12 頁 Check = CBool(A = B) 39。 Check 的值為 True。 A = 0 39。 定義變量。 Check = CBool(A) 39。 Check 的值為 False。 CByte 函數(shù)示例 本示例使用 CByte 函數(shù)將一表達(dá)式轉(zhuǎn)成 Byte。 Dim MyDouble, MyByte MyDouble = 39。 MyDouble 為 Double（雙精度）。 MyByte = CByte(MyDouble) 39。 MyByte 值為 126。 CCur 函數(shù)示例 本示例使用 CCur 函數(shù)將表達(dá)式轉(zhuǎn)成 Currency。 Dim MyDouble, MyCurr MyDouble = 39。 MyDouble 為 Double 類型。 MyCurr = CCur(MyDouble * 2) 39。 將 MyDouble * 2 的結(jié)果 39。 （ ）轉(zhuǎn)換為 Currency （ ）。 CDate 函數(shù)示例 本示例使用 CDate 函數(shù)將字符串轉(zhuǎn)換成 Date。一般說來，字符串格式的日期與時(shí)間硬編碼（如示例中所示）并不好。較好的做法是使用日期原義表達(dá)式和時(shí)間的原義表達(dá)式（如 2/12/1969， 4:45:23 PM）。 Dim MyDate, MyShortDate, MyTime, MyShortTime MyDate = February 12, 1969 39。 定義日期。 MyShortDate = CDate(MyDate) 39。 轉(zhuǎn)換為 Date 數(shù)據(jù)類型。 MyTime = 4:35:47 PM 39。 定義時(shí)間。 MyShortTime = CDate(MyTime) 39。 轉(zhuǎn)換為 Date 數(shù)據(jù)類型。 CDbl 函數(shù)示例 本示例使用 CDbl 函數(shù)將表達(dá)式轉(zhuǎn)換為 Double 類型。 Dim MyCurr, MyDouble MyCurr = CCur() 39。 MyCurr 為 Currency 類型。 MyDouble = CDbl(MyCurr * * ) 39。 將結(jié)果轉(zhuǎn)換為 Double 類型。 CDec 函數(shù)示例 該示例使用 CDec 函數(shù)將數(shù)字值轉(zhuǎn)換為 Decimal。 Dim MyDecimal, MyCurr MyCurr = 39。 MyCurr 是貨幣。 MyDecimal = CDec(MyCurr) 39。 MyDecimal 是二進(jìn)制數(shù)。 CInt 函數(shù)示例 本示例使用 CInt 函數(shù)將一數(shù)值轉(zhuǎn)換為 Integer。 Dim MyDouble, MyInt MyDouble = 39。 MyDouble 為 Double 類型。 MyInt = CInt(MyDouble) 39。 MyInt 的值為 2346。 第 13 頁 CLng 函數(shù)示例 本示例使用 CLng 函數(shù)將一數(shù)值轉(zhuǎn)換為 Long。 Dim MyVal1, MyVal2, MyLong1, MyLong2 MyVal1 = : MyVal2 = 39。 MyVal MyVal2 均為 Double 類型。 MyLong1 = CLng(MyVal1) 39。 MyLong1 的值為 25427。 MyLong2 = CLng(MyVal2) 39。 MyLong2 的值為 25428。 CSng 函數(shù)示例 本示例使用 CSng 函數(shù)將一數(shù)值轉(zhuǎn)換為 Single。 Dim MyDouble1, MyDouble2, MySingle1, MySingle2 39。 MyDouble MyDouble2 均為 Double 類型。 MyDouble1 = : MyDouble2 = MySingle1 = CSng(MyDouble1) 39。 MySingle1 的值為 。 MySingle2 = CSng(MyDouble2) 39。 MySingle2 的值為 。 CStr 函數(shù)示例 本示例使用 CStr 函數(shù)將一數(shù)值轉(zhuǎn)換為 String。 Dim MyDouble, MyString MyDouble = 39。 MyDouble 為 Double 類型。 MyString = CStr(MyDouble) 39。 MyString 的內(nèi)容為 “ ” 。 CVar 函數(shù)示例 本示例使用 CVar 函數(shù)將表達(dá)式轉(zhuǎn)換為 Variant。 Dim MyInt, MyVar MyInt = 4534 39。 MyInt 為 Integer 類型。 MyVar = CVar(MyInt amp。 000) 39。 MyVar 的內(nèi)容為字符串 “ 4534000” 。 Choose 函數(shù) 從參數(shù)列表中選擇并返回一個(gè)值。 語法 Choose(index, choice1[, choice2, ... [, choicen]]) Choose 函數(shù)的語法具有以下幾個(gè)部分： 部分 描述 index 必要參數(shù)，數(shù)值表達(dá)式或字段，它的運(yùn)算結(jié)果是一個(gè)數(shù)值，且界于 1 和可選擇的項(xiàng)目數(shù)之間。 choice 必要參數(shù)， Variant 表達(dá)式，包含可選擇項(xiàng)目的其中之一。 說明 第 14 頁 Choose 會根據(jù) index 的值來返回選擇項(xiàng)列表中的某個(gè)值。如果 index 是 1，則 Choose 會返回列表中的第 1 個(gè)選擇項(xiàng)。如果 index 是 2，則會返回列表中的第 2 個(gè)選擇項(xiàng)，以此類推。 可以使用 Choose 來查閱一個(gè)列表中的項(xiàng)目。例如，如果 index 所指定的值為 3，而 choice1 = one、 choice2 = two、且 choice3 = three，那么 Choose 將返回 three。當(dāng) index 代表一選項(xiàng)組中的值時(shí)，則這項(xiàng)功能將會特別有用。 即使它只返回一個(gè)選項(xiàng)值， Choose 仍然會計(jì)算列表中的每個(gè)選擇項(xiàng)。所以應(yīng)該注意到這項(xiàng)副 作用。例如，當(dāng)在每個(gè)選擇項(xiàng)表達(dá)式中使用了 MsgBox 函數(shù)作為其中的一部分時(shí)，每計(jì)算一個(gè)選擇項(xiàng)，就會顯示一次消息框。 當(dāng) index 小于 1 或大于列出的選擇項(xiàng)數(shù)目時(shí)， Choose 函數(shù)返回 Null。 如果 index 不是整數(shù)，則會先四舍五入為與其最接近的整數(shù)。 Choose 函數(shù)示例 本示例使用 Choose 函數(shù)來顯示一個(gè)名稱，該名稱對應(yīng)於用 Ind 參數(shù)傳遞到過程之中的索引。 Function GetChoice(Ind As Integer) GetChoice = Choose(Ind, Speedy, United, Federal) End Function Chr 函數(shù) 返回 String，其中包含有與指定的字符代碼相關(guān)的字符 。 語法 Chr(charcode) 必要的 charcode 參數(shù)是一個(gè)用來識別某字符的 Long。 說明 0 到 31 之間的數(shù)字與標(biāo)準(zhǔn)的非打印 ASCII 代碼相同。例如， Chr(10) 可以返回?fù)Q行字符。 charcode 的正常范圍為 0 – 255。然而，在 DBCS 系統(tǒng)， charcode 的實(shí)際范圍為 32768 到 65535。 注意 ChrB 函數(shù)作用于包含在 String 中的字節(jié)數(shù)據(jù)。 ChrB 總是返回一個(gè)單字節(jié)，而不是返回一個(gè)字符，一個(gè)字符可能是一個(gè)或兩個(gè)字節(jié)。 ChrW 函數(shù)返回包含 Unicode 的 String，若在不支持 Unicode 的平臺上，則其功能與 Chr 函數(shù)相同。 注意 Visual Basic for the Macintosh 不支持 Unicode 字符串。因此，當(dāng) n 值在 128 – 65,535 范圍內(nèi)時(shí)， ChrW(n) 不能像在 Windows 環(huán)境中那樣返回所有的 Unicode 字符。相 反地，當(dāng) Unicode 的 n 值大于 127 時(shí)， ChrW(n) 會試圖做一個(gè) “ 最好的猜測 ” 。因此，在 Macintosh 環(huán)境中，不能使用 ChrW 。 Chr 函數(shù)示例 本示例使用 Chr 函數(shù)來返回指定字符碼所代表的字符。 Dim MyChar 第 15 頁 MyChar = Chr(65) 39。 返回 A。 MyChar = Chr(97) 39。 返回 a。 MyChar = Chr(62) 39。 返回 。 MyChar = Chr(37) 39。 返回 %。 Command 函數(shù) 返回命令行的參數(shù)部分 ，該命令行用于裝入 Microsoft Visual Basic 或 Visual Basic 開發(fā)的可執(zhí)行程序。 Visual Basic Command 函數(shù)在 Microsoft Office 應(yīng)用程序中不可用。 語法 Command 說明 當(dāng)從命令行裝入 Visual Basic 時(shí)， /cmd 之后的命令行的任何部分作為命令行的參數(shù)傳遞給程序。下面的示例中， cmdlineargs 代表 Command 函數(shù)返回的參數(shù)信息。 VB /cmd cmdlineargs 對于使用 Visual Basic 開發(fā)并編譯為 .exe 文件的應(yīng)用程序， Command 返回出現(xiàn)在命令行中應(yīng)用程序名之后的任何參數(shù)。例如： MyApp cmdlineargs 想知道如何在正在使用的應(yīng)用程序的用戶界面中改變命令行參數(shù)，請搜尋關(guān)于“ 命令行參數(shù) ” 的幫助。 Command 函數(shù)示例 本示例在某個(gè)函數(shù)中用 Command 函數(shù)獲得命令行參數(shù)，并將命令行參數(shù)以 Variant 類型之?dāng)?shù)組返回。在 Microsoft Office 中不可用。 Function GetCommandLine(Optional MaxArgs) 39。聲明變量。 Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs 39。檢查是否提供了 MaxArgs 參數(shù)。 If IsMissing(MaxArgs) Then MaxArgs = 10 39。 使數(shù)組的大小合適。 ReDim ArgArray(MaxArgs) NumArgs = 0: InArg = False 39。取得命令行參數(shù)。 CmdLine = Command() CmdLnLen = Len(CmdLine) 39。以一次一個(gè)字符的方式取出命令行參數(shù)。 For I = 1 To CmdLnLen C = Mid(CmdLine, I, 1) 第 16 頁 39。檢測是否為 space 或 tab。 If (C And C vbTab) Then 39。若既不是 space 鍵，也不是 tab 鍵， 39。則檢測是否為參數(shù)內(nèi)含之字符。 If Not InArg Then 39。新的參數(shù)。 39。檢測參數(shù)是否過多。 If NumArgs = MaxArgs Then Exit For NumArgs = NumArgs + 1 InArg = True