Calendar 常數(shù)

可在代碼中的任何地方用下列常數(shù)代替實(shí)際值：

常數(shù)	值	描述
vbCalGreg	0	指出使用的是陽(yáng)歷。
vbCalHijri	1	指出使用的是伊斯蘭歷法。

Color 常數(shù)

可在代碼中的任何地方用下列常數(shù)代替實(shí)際值：

常數(shù)	值	描述
vbBlack	0x0	黑色
vbRed	0xFF	紅色
vbGreen	0xFF00	綠色
vbYellow	0xFFFF	黃色
vbBlue	0xFF0000	藍(lán)色
vbMagenta	0xFF00FF	紫紅色
vbCyan	0xFFFF00	青色
vbWhite	0xFFFFFF	白色

CallType 常數(shù)

可在代碼中的任何地方用下列常數(shù)代替實(shí)際值：

常數(shù)	值	描述
vbMethod	1	指出已經(jīng)調(diào)用了一個(gè)方法。
vbGet	2	指出一個(gè)Property Get 過(guò)程。
vbLet	4	指出一個(gè) Property Let 過(guò)程。
vbSet	8	指出一個(gè) Property Set 過(guò)程。

下列常數(shù)由 Visual Basic for Applications 中的類型庫(kù)定義，可用來(lái)在代碼中的任何地方代替實(shí)際值：

Comparison常數(shù)

常數(shù)	值	描述
VbUseCompareOption	-1	使用Option Compare語(yǔ)句的設(shè)置進(jìn)行比較。
VbBinaryCompare	0	進(jìn)行二進(jìn)制的比較。
VbTextCompare	1	進(jìn)行文字的比較。
vbDatabaseCompare	2	用于 Microsoft Access(僅限于Windows)，進(jìn)行以數(shù)據(jù)庫(kù)所含信息為基礎(chǔ)的比較。

Compiler 常數(shù)

Visual Basic for Applications 定義了一些不能與 #If...Then...#Else 指令一起使用的常數(shù)。這些常數(shù)除了其范圍是全局的；也就是說(shuō)，除了可在工程中到處應(yīng)用，在功能上與 #If...Then...#Else 指令定義的常數(shù)相同。

在 16 位開(kāi)發(fā)平臺(tái)上，編譯常數(shù)定義如下：

常數(shù)	值	描述
Win16	True	指出開(kāi)發(fā)環(huán)境是 16 位。
Win32	False	指出開(kāi)發(fā)環(huán)境不是 32 位。

在 32 位開(kāi)發(fā)平臺(tái)上，編譯常數(shù)定義如下：

常數(shù)	值	描述
Vba6	True	指出開(kāi)發(fā)環(huán)境是 Visual Basic for Applications, version 6.0。
Vba6	False	指出開(kāi)發(fā)環(huán)境不是Visual Basic for Applications, version 6.0。
Win16	False	指出開(kāi)發(fā)環(huán)境不是 16 位。
Win32	True	指出開(kāi)發(fā)環(huán)境是 32 位。

Mac	False	指出開(kāi)發(fā)環(huán)境不是 Macintosh。
Win16	False	指出開(kāi)發(fā)環(huán)境不是 16位的。
Win32	False	指出開(kāi)發(fā)環(huán)境不是 32位的。
Mac	True	指出開(kāi)發(fā)環(huán)境是 Macintosh。

注意 這些常數(shù)是由 Visual Basic 提供的，所以不能在任何層次中用相同名稱定義自己的常數(shù)。

 

Date 常數(shù)

可在代碼中的任何地方用下列常數(shù)代替實(shí)際值：

參數(shù)值

firstdayofweek 參數(shù)具有以下這些值：

常數(shù)	值	描述
vbUseSystem	0	使用 NLS API 設(shè)置。
vbSunday	1	星期日（缺?。?/TD>
vbMonday	2	星期一
vbTuesday	3	星期二
vbWednesday	4	星期三
vbThursday	5	星期四
vbFriday	6	星期五
vbSaturday	7	星期六

firstdayofyear 參數(shù)具有以下這些值：

常數(shù)	值	描述
vbUseSystem	0	使用 NLS API 設(shè)置。
VbUseSystemDayOfWeek	0	使用系統(tǒng)設(shè)置中為星期的第一天指定的星期數(shù)。
VbFirstJan1	1	由 1 月 1 日所在的那個(gè)星期開(kāi)始（缺?。?。
vbFirstFourDays	2	由新的一年中第一個(gè)至少有 4 天的星期開(kāi)始。
vbFirstFullWeek	3	由一年中第一個(gè)完整的星期開(kāi)始。

返回值

常數(shù)	值	描述
vbSunday	1	星期日
vbMonday	2	星期一
vbTuesday	3	星期二
vbWednesday	4	星期三
vbThursday	5	星期四
vbFriday	6	星期五
vbSaturday	7	星期六

日期格式常數(shù)

僅當(dāng)您的工程對(duì)包含這些常數(shù)定義的相應(yīng)類型庫(kù)有一個(gè)顯式引用時(shí)，才可以使用這些常數(shù) 。

常數(shù)	值	描述
vbGeneralDate	0	顯示日期和/或時(shí)間。對(duì)于一個(gè)實(shí)數(shù)，顯示日期和時(shí)間。如果沒(méi)有小數(shù)部分，則僅顯示日期。如果沒(méi)有整數(shù)部分，則僅顯示時(shí)間。日期和時(shí)間的顯示由系統(tǒng)設(shè)置值確定。
vbLongDate	1	用計(jì)算機(jī)區(qū)域設(shè)置值指定的長(zhǎng)日期格式顯示日期。
vbShortDate	2	用計(jì)算機(jī)區(qū)域設(shè)置值指定的短日期格式顯示日期。
vbLongTime	3	用計(jì)算機(jī)區(qū)域設(shè)置值指定的長(zhǎng)時(shí)間格式顯示時(shí)間。
vbShortTime	4	用計(jì)算機(jī)區(qū)域設(shè)置值指定的短時(shí)間格式顯示時(shí)間。

Dir、GetAttr 和 SetAttr 常數(shù)

可在代碼中的任何地方用下列常數(shù)代替實(shí)際值：

常數(shù)	值	描述
vbNormal	0	正常的（Dir 和 SetAttr 的缺省值）
vbReadOnly	1	只讀的
vbHidden	2	隱藏的
vbSystem	4	系統(tǒng)文件
vbVolume	8	卷標(biāo)
vbDirectory	16	目錄或文件夾
vbArchive	32	文件自上一次備份后已經(jīng)改變
vbAlias	64	在 Macintosh上，標(biāo)識(shí)符是一個(gè)別名。

在Macintosh上，只有VbNormal、 vbReadOnly、 vbHidden 和vbAlias是可用的。