³£ÓÃVBAº¯Êý¾«Ñ¡¼¯_À¶ÇÅÐþ˪.doc
(156.5 KB, ÏÂÔØ´ÎÊý: 291)
³£ÓÃVBAº¯Êý¾«Ñ¡
By À¶ÇÅÐþ˪
Ŀ¼
Ç°ÑÔ
µÚ1.1Àý ASCº¯Êý
µÚ1.2Àý Chrº¯Êý
µÚ1.3Àý Chooseº¯Êý
µÚ1.4Àý Cosº¯Êý
µÚ1.5Àý Dateº¯Êý
µÚ1.6Àý DateAddº¯Êý
µÚ1.7Àý DateDiffº¯Êý
µÚ1.8Àý DatePartº¯Êý
µÚ1.9Àý DateSerialº¯Êý
µÚ1.10Àý DateValueº¯Êý
µÚ1.11Àý Dayº¯Êý
µÚ1.12Àý Dirº¯Êý
µÚ1.13Àý Fixº¯Êý
µÚ1.14Àý Formatº¯Êý
µÚ1.15Àý Hourº¯Êý
µÚ1.16Àý IIFº¯Êý
µÚ1.17Àý InputBoxº¯Êý
µÚ1.18Àý Instrº¯Êý
µÚ1.19Àý InstrRevº¯Êý
µÚ1.20Àý IsArrayº¯Êý
µÚ1.21Àý IsNumericº¯Êý
µÚ1.22Àý Joinº¯Êý
µÚ1.23Àý LBound ºÍUBound º¯Êý
µÚ1.24Àý LCaseºÍUCase º¯Êý
µÚ1.25Àý Left ºÍ Right º¯Êý
µÚ1.26Àý Len º¯Êý
µÚ1.27Àý LTrim¡¢RTrimÓë Trim º¯Êý
µÚ1.28Àý Mid º¯Êý
µÚ1.29Àý Month ºÍ MonthNameº¯Êý
µÚ1.30Àý MsgBox º¯Êý
µÚ1.31Àý Nowº¯Êý
µÚ1.32Àý RGBº¯Êý
µÚ1.33Àý Rndº¯Êý
µÚ1.34Àý Roundº¯Êý
µÚ1.35Àý Split º¯Êý
µÚ1.36Àý Sqr º¯Êý
µÚ1.37Àý Str ºÍCStr º¯Êý
µÚ1.38Àý Time º¯Êý
µÚ1.39Àý TimeSerial ºÍTimeValue º¯Êý
µÚ1.40Àý Timer º¯Êý
Ç°ÑÔ
ÎÒÃÇƽʱÔÚ¹¤×÷±íµ¥Ôª¸ñµÄ¹«Ê½Öг£³£Ê¹Óú¯Êý£¬Excel×Ô´øµÄ³£Óõĺ¯Êý¶à´ï300¶à¸ö£¬¹¦ÄÜÇ¿´ó£¬·á¸»¶à²Ê£¬µ«ÊÇÔÚVBAÖв»ÄÜÖ±½ÓÓ¦Ó㬱ØÐëÔÚº¯ÊýÃûÇ°Ãæ¼ÓÉ϶ÔÏ󣬱ÈÈ磺Application.WorksheetFunction.Sum(arg1,arg2,arg3)¡£
¶øÄÜÔÚVBAÖÐÖ±½ÓÓ¦Óõĺ¯ÊýÒ²Óм¸Ê®¸ö£¬ÏÂÃ潫ÖðÒ»Ïêϸ½éÉܳ£ÓõÄ40¸öVBAº¯Êý£¬ÒÔ¹©´ó¼Òѧϰ²Î¿¼¡£
µÚ1.1Àý ASCº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÐкóµÃµ½×Ö·û´®¡±Excel¡±µÄÊ××ÖĸºÍ¡±e¡±µÄASCIIÖµ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '·µ»Ø69
myNum2 = Asc("e") '·µ»Ø101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_01()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£
2¡¢Dim myNum1%, myNum2%£º±äÁ¿myNum1ºÍmyNum2ÉùÃ÷ΪÕûÐͱäÁ¿¡£
Ò²¿ÉÒÔдΪ Dim myNum1 As Integer ¡£Integer ±äÁ¿´æ´¢Îª 16루2 ¸ö×Ö½Ú£©µÄÊýÖµÐÎʽ£¬Æ䷶ΧΪ -32,768 µ½ 32,767 Ö®¼ä¡£Integer µÄÀàÐÍÉùÃ÷×Ö·ûÊǰٷֱȷûºÅ (%)¡£
3¡¢myNum1 = Asc("Excel")£º°ÑAscº¯ÊýµÄÖµ¸³¸ø±äÁ¿myNum1¡£
Ascº¯Êý·µ»ØÒ»¸ö Integer£¬´ú±í×Ö·û´®ÖÐÊ××ÖĸµÄ×Ö·ûµÄASCII´úÂë¡£
Óï·¨
Asc(string)
±ØÒªµÄ string£¨×Ö·û´®£© ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string ÖÐûÓаüº¬ÈκÎ×Ö·û£¬Ôò»á²úÉúÔËÐÐʱ´íÎó¡£
4¡¢myNum2 = Asc("e")£º°ÑAscº¯ÊýµÄÖµ¸³¸ø±äÁ¿myNum2¡£ÕâÀï·µ»ØСд×ÖĸeµÄASCII´úÂë101¡£
5¡¢[a1] = "myNum1= ": [b1] = myNum1£º°Ñ×Ö·û´®¡°myNum1= ¡°¸³¸øA1µ¥Ôª¸ñ£¬°Ñ±äÁ¿myNum1µÄÖµ¸³¸øB1µ¥Ôª¸ñ¡£
6¡¢[a2] = "myNum2= ": [b2] = myNum2£º°Ñ×Ö·û´®¡°myNum2= ¡°¸³¸øA2µ¥Ôª¸ñ£¬°Ñ±äÁ¿myNum2µÄÖµ¸³¸øB2µ¥Ôª¸ñ¡£
7¡¢End Sub£º³ÌÐòµÄ½áÊøÓï¾ä£¬ºÍ¡°SubʾÀý_1_01£¨£©¡±Ïà¶ÔÓ¦¡£
µÚ1.2Àý Chrº¯Êý
Ò»¡¢ÌâÄ¿""£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃChrº¯Êý½«ASCIIֵת»»Îª¶ÔÓ¦µÄ×Ö·û¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_02()
Dim myChar1$, myChar2$
myChar1 = Chr(69) ' ·µ»Ø E¡£
myChar2 = Chr(101) ' ·µ»Ø e¡£
[a1] = "myChar1= ": [b1] = myChar1
[a2] = "myChar2= ": [b2] = myChar2
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_02()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£
2¡¢Dim myChar1$, myChar2$£º±äÁ¿myChar1ºÍmyChar2ÉùÃ÷Ϊ×Ö·û´®±äÁ¿¡£
Ò²¿ÉÒÔдΪ Dim myChar1 As String ¡£String Ö®×Ö·ûÂëµÄ·¶Î§ÊÇ 0 µ½ 255¡£×Ö·û¼¯µÄÇ° 128 ¸ö×Ö·û£¨0 µ½ 127£©¶ÔÓ¦ÓÚ±ê×¼µÄ U.S. ¼üÅÌÉϵÄ×Ö·ûÓë·ûºÅ¡£ÕâÇ° 128 ¸ö×Ö·ûÓë ASCII ×Ö·û¼¯ÖÐËù¶¨ÒåµÄÏàͬ¡£ºó 128 ¸ö×Ö·û£¨128 µ½ 255£©Ôò´ú±íÌØÊâ×Ö·û£¬ÀýÈç¹ú¼Ê×Ö·û£¬ÖØÒô·ûºÅ£¬»õ±Ò·ûºÅ¼°·ÖÊý¡£String µÄÀàÐÍÉùÃ÷×Ö·ûΪÃÀÔªºÅ ($)¡£
3¡¢myChar1 = Chr(69)£º°ÑChr(69)µÄÖµ¸³¸ø±äÁ¿myChar1¡£ÕâÀï·µ»Ø´óд×ÖĸE¡£
Chrº¯Êý¸ù¾Ý×Ö·û´úÂë·µ»ØÒ»¸ö×Ö·û¡£
Óï·¨
Chr(charcode)
±ØÒªµÄ charcode£¨×Ö·û´úÂ룩 ²ÎÊýÊÇÓÃÀ´Ê¶±ðij×Ö·ûµÄ¡£
4¡¢myChar2 = Chr(101)£º°ÑChr º¯ÊýµÄÖµ¸³¸ø±äÁ¿myChar2¡£ÕâÀï·µ»ØСд×Öĸe¡£
5¡¢[a1] = "myChar1= ": [b1] = myChar1£º°Ñ×Ö·û´®¡°myChar1= ¡°¸³¸øA1µ¥Ôª¸ñ£¬°Ñ±äÁ¿myChar1µÄÖµ¸³¸øB1µ¥Ôª¸ñ¡£
6¡¢[a2] = "myChar2= ": [b2] = myChar2£º°Ñ×Ö·û´®¡°myChar2= ¡°¸³¸øA2µ¥Ôª¸ñ£¬°Ñ±äÁ¿myChar2µÄÖµ¸³¸øB2µ¥Ôª¸ñ¡£
7¡¢End Sub£º³ÌÐòµÄ½áÊøÓï¾ä£¬ºÍ¡°SubʾÀý_1_02£¨£©¡±Ïà¶ÔÓ¦¡£
µÚ1.3Àý Chooseº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃChooseº¯Êý¸ù¾ÝÖ¸¶¨Êý×ÖÑ¡Ôñ¶ÔÓ¦µÄ×Ö·û´®¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_03()
Dim Num%
Num=2
MsgBox Choose(Num, "Ò»ÔÂ", "¶þÔÂ", "ÈýÔÂ")
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_03()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_03¡£
2¡¢Dim Num% £º±äÁ¿NumÉùÃ÷ΪÕûÐͱäÁ¿¡£
3¡¢Num=2 £º°Ñ2¸³¸ø±äÁ¿Num¡£
4¡¢MsgBox Choose(Num, "Ò»ÔÂ", "¶þÔÂ", "ÈýÔÂ") £º
Chooseº¯Êý´Ó²ÎÊýÁбíÖÐÑ¡Ôñ²¢·µ»ØÒ»¸öÖµ¡£
Óï·¨
Choose(index, choice-1[, choice-2, ... [, choice-n]])
Choose »á¸ù¾Ý index µÄÖµÀ´·µ»ØÑ¡ÔñÏîÁбíÖеÄij¸öÖµ¡£Èç¹û index ÊÇ 1£¬Ôò Choose »á·µ»ØÁбíÖÐµÄµÚ 1 ¸öÑ¡ÔñÏî¡£Èç¹û index ÊÇ 2£¬Ôò»á·µ»ØÁбíÖÐµÄµÚ 2 ¸öÑ¡ÔñÏÒÔ´ËÀàÍÆ¡£
IndexÊDZØÒª²ÎÊý£¬ÊýÖµ±í´ïʽ»ò×ֶΣ¬ËüµÄÔËËã½á¹ûÊÇÒ»¸öÊýÖµ£¬ÇÒ½çÓÚ 1 ºÍ¿ÉÑ¡ÔñµÄÏîÄ¿ÊýÖ®¼ä¡£µ± indexСÓÚ 1 »ò´óÓÚÁгöµÄÑ¡ÔñÏîÊýĿʱ£¬Choose º¯Êý·µ»Ø Null¡£Èç¹û index ²»ÊÇÕûÊý£¬Ôò»áÏÈËÄÉáÎåÈëΪÓëÆä×î½Ó½üµÄÕûÊý¡£
µÚ1.4Àý Cosº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃCosº¯Êý¸ù¾ÝÖ¸¶¨½Ç¶ÈµÄÓàÏÒ¼ÆËãÆäÕý¸îµÄÖµ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_04()
Dim jiaodu, zenge
jiaodu = 1.3
zenge = 1 / Cos(jiaodu)
MsgBox ¡°½Ç¶ÈΪ ¡± & jiaodu & ¡°µÄÕý¸îµÄÖµ£½ ¡± & zenge
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_04()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_04¡£
2¡¢Dim jiaodu, zenge £ºÁ½¸ö±äÁ¿¶¼±»Ö¸¶¨Îª¿É±äÐÍÊý¾ÝÀàÐÍ¡£µ±ÉùÃ÷³£Êý¡¢±äÁ¿»ò²ÎÊýʱ£¬ÈôÎÞÖ¸¶¨Êý¾ÝÀàÐÍÔò»á×Ô¶¯µÄÖ¸¶¨³É Variant£¨¿É±äÐÍ£© Êý¾ÝÀàÐÍ¡£ÉùÃ÷³É Variant Êý¾ÝÀàÐ͵ıäÁ¿¿ÉÒÔΪ×Ö·û´®¡¢ÈÕÆÚ¡¢Ê±¼ä¡¢Boolean»òÊýÖµ¡£
3¡¢jiaodu = 1.3 £º°ÑÒÔ¡°»¡¶È¡±Îªµ¥Î»µÄ½Ç¶È1.3¸³¸ø±äÁ¿jiaodu¡£
4¡¢zenge = 1 / Cos(jiaodu) £ºÀûÓÃ1/ÓàÏÒËãµÃÕý¸î£¨sec()£©µÄÖµ£¬¸³¸ø±äÁ¿zenge¡£
Cosº¯Êý·µ»ØÒ»¸ö½ÇµÄÓàÏÒÖµ¡£Æä²ÎÊýÊDZíʾһ¸öÒÔ»¡¶ÈΪµ¥Î»µÄ½Ç¡£
5¡¢MsgBox ¡°½Ç¶ÈΪ ¡± & jiaodu & ¡°µÄÕý¸îµÄÖµ£½ ¡± & zenge £ºÀûÓÃMsgBoxº¯ÊýÏÔʾËãµÃµÄÕý¸î£¨sec()£©µÄÖµ¡£
µÚ1.5Àý Dateº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDateº¯ÊýÏÔʾϵͳÈÕÆÚµÄÖµ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_05()
Dim myDate
myDate = Date
MsgBox ¡°ÏµÍ³ÈÕÆÚΪ ¡± & myDate
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_05()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_05¡£
2¡¢Dim myDate £º±äÁ¿myDate±»Ö¸¶¨Îª¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢myDate = Date £º°ÑϵͳÈÕÆÚµÄÖµ¸³¸ø±äÁ¿myDate¡£
Dateº¯Êý·µ»Øϵͳµ±Ç°µÄÈÕÆÚ¡£
4¡¢MsgBox ¡°ÏµÍ³ÈÕÆÚΪ ¡± & myDate £ºÀûÓÃMsgBoxº¯ÊýÏÔʾϵͳÈÕÆÚµÄÖµ¡£
µÚ1.6Àý DateAddº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDateAddº¯ÊýÏÔʾ·µ»ØÒ»¶¨¼ä¸ôºóµÄÈÕÆÚ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_06()
Dim dyrq As Date
Dim jglx As String
Dim n As Integer
Dim Msg
jglx = "m"
dyrq = InputBox("ÇëÊäÈëÒ»¸öÈÕÆÚ")
n = InputBox("ÊäÈëÔö¼ÓÔµÄÊýÄ¿£º")
Msg = "ÐÂÈÕÆÚ: " & DateAdd(jglx, n, dyrq)
MsgBox Msg
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_06()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_06¡£
2¡¢Dim dyrq As Date £º±äÁ¿dyrqÉùÃ÷ΪÈÕÆÚ¶ÔÏóÐÍÊý¾ÝÀàÐÍ¡£ÆäÓ༸¸ö±äÁ¿·Ö±ðÊÇ×Ö·û´®ÐÍ¡¢ÕûÐͺͿɱäÐͱäÁ¿¡£
3¡¢jglx = "m" £ºÓÃ×Ö·ûmÀ´Ö¸¶¨ÒÔ¡°Ô·ݡ±×÷Ϊ¼ä¸ô¡£
4¡¢dyrq = InputBox("ÇëÊäÈëÒ»¸öÈÕÆÚ") £ºÓÃInputBoxº¯ÊýÀ´ÈÃÓû§ÊäÈëÒ»¸öÈÕÆÚ£¬²¢°ÑÓû§ÊäÈëµÄÈÕÆÚ¸³¸ø±äÁ¿dyrq¡£
5¡¢n = InputBox("ÊäÈëÔö¼ÓÔµÄÊýÄ¿£º") £ºÓÃInputBoxº¯ÊýÀ´ÈÃÓû§ÊäÈë¼ä¸ôÔµÄÊýÄ¿£¬²¢°ÑÓû§ÊäÈëµÄÖµ¸³¸ø±äÁ¿n¡£
6¡¢Msg = "ÐÂÈÕÆÚ: " & DateAdd(jglx, n, dyrq) £ºÓÃDateAddº¯Êý¼ÆËãµÃµ½µÄеÄÈÕÆÚºÍ×Ö·û´®¡°ÐÂÈÕÆÚ£º ¡±Á¬½ÓÆðÀ´¸³¸ø±äÁ¿Msg¡£
DateAddº¯Êý·µ»ØÒ»¸öÈÕÆÚ£¬ÕâÒ»ÈÕÆÚ¼ÓÉÏÁËÒ»¸öʱ¼ä¼ä¸ô¡£
Óï·¨
DateAdd(interval, number, date)
DateAdd º¯ÊýÓï·¨ÖÐÓÐÏÂÁÐÃüÃû²ÎÊý£º
interval ±ØÒª¡£×Ö·û´®±í´ïʽ£¬ÊÇËùÒª¼ÓÉÏÈ¥µÄʱ¼ä¼ä¸ô¡£Ëü¾ßÓкöàÉ趨ֵ£¬±ÈÈ硱m¡±ÎªÔ£»¡±d¡±ÎªÈÕ£»¡±yyyy¡±ÎªÄêµÈµÈ¡£
number ±ØÒª¡£ÊýÖµ±í´ïʽ£¬ÊÇÒª¼ÓÉϵÄʱ¼ä¼ä¸ôµÄÊýÄ¿¡£ÆäÊýÖµ¿ÉÒÔΪÕýÊý£¨µÃµ½Î´À´µÄÈÕÆÚ£©£¬Ò²¿ÉÒÔΪ¸ºÊý£¨µÃµ½¹ýÈ¥µÄÈÕÆÚ£©¡£
¡¡¡¡date ±ØÒª¡£±íʾÈÕÆÚµÄÎÄ×Ö¡£
7¡¢MsgBox Msg £ºÀûÓÃMsgBoxº¯ÊýÏÔʾMsgµÄÖµ¡£
µÚ1.7Àý DateDiffº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDateDiffº¯Êý·µ»Øij¸öÖ¸¶¨ÈÕÆÚ¾àÀë½ñÌìµÄÌìÊý¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_07()
Dim zdrq As Date
Dim Msg
zdrq = InputBox("ÇëÊäÈëÒ»¸öÈÕÆÚ£º")
Msg = "À뿪½ñÌìµÄÌìÊý: " & DateDiff("d", Now, zdrq)
MsgBox Msg
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_07()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_07¡£
2¡¢Dim zdrq As Date £º±äÁ¿zdrqÉùÃ÷ΪÈÕÆÚ¶ÔÏóÐÍÊý¾ÝÀàÐÍ¡£
3¡¢zdrq = InputBox("ÇëÊäÈëÒ»¸öÈÕÆÚ") £ºÓÃInputBoxº¯ÊýÀ´ÈÃÓû§ÊäÈëÒ»¸öÈÕÆÚ£¬²¢°ÑÓû§ÊäÈëµÄÈÕÆÚ¸³¸ø±äÁ¿zdrq¡£
4¡¢Msg = "À뿪½ñÌìµÄÌìÊý: " & DateDiff("d", Now, zdrq) £ºÓÃDateDiffº¯Êý¼ÆËãµÃµ½µÄ½á¹ûºÍ×Ö·û´®¡°À뿪½ñÌìµÄÌìÊý£º ¡±Á¬½ÓÆðÀ´¸³¸ø±äÁ¿Msg¡£
5¡¢MsgBox Msg £ºÀûÓÃMsgBoxº¯ÊýÏÔʾMsgµÄÖµ¡£
DateDiff º¯Êý
¿ÉÓÃÀ´¾ö¶¨Á½¸öÈÕÆÚÖ®¼äËùÖ¸¶¨µÄʱ¼ä¼ä¸ôÊýÄ¿¡£ÀýÈ磬¿ÉÒÔʹÓà DateDiff À´¼ÆËãÁ½¸öÈÕÆÚÖ®¼äÏà¸ô¼¸ÈÕ£¬»ò¼ÆËã´Ó½ñÌìÆðµ½Äêµ×»¹ÓжàÉÙ¸öÐÇÆÚ¡£
¡¡¡¡
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff º¯ÊýÓï·¨ÖÐÓÐÏÂÁÐÃüÃû²ÎÊý£º
interval ±ØÒª¡£×Ö·û´®±í´ïʽ£¬ÊÇËùÒª¼ÓÉÏÈ¥µÄʱ¼ä¼ä¸ô¡£Ëü¾ßÓкöàÉ趨ֵ£¬ÓëDateAddº¯ÊýÏàͬ£»´ËÀýÖеÄ"d"£¬±íʾÌìÊý£»
Date1£¬date2 ±ØÒª£»¼ÆËãÖÐÒªÓõ½µÄÁ½¸öÈÕÆÚ¡£
Firstdayofweek ¿ÉÑ¡¡£Ö¸¶¨Ò»¸öÐÇÆڵĵÚÒ»ÌìµÄ³£Êý¡£Èç¹ûδÓèÖ¸¶¨£¬ÔòÒÔÐÇÆÚÈÕΪµÚÒ»Ìì¡£
firstweekofyear ¿ÉÑ¡¡£Ö¸¶¨Ò»ÄêµÄµÚÒ»Öܵij£Êý¡£Èç¹ûδÓèÖ¸¶¨£¬ÔòÒÔ°üº¬ 1 Ô 1 ÈÕµÄÐÇÆÚΪµÚÒ»ÖÜ¡£
µÚ1.8Àý DatePartº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDatePartº¯Êý·µ»Øij¸öÖ¸¶¨ÈÕÆÚÊÇÔÚÒ»ÄêµÄÄÄÒ»¸ö¼¾¶È¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_08()
Dim zdrq As Date
Dim Msg
zdrq = InputBox("ÇëÊäÈëÒ»¸öÈÕÆÚ:")
Msg = "¼¾¶È: " & DatePart("q", zdrq)
MsgBox Msg
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_08()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_08¡£
2¡¢Dim zdrq As Date £º±äÁ¿zdrqÉùÃ÷ΪÈÕÆÚ¶ÔÏóÐÍÊý¾ÝÀàÐÍ¡£
3¡¢zdrq = InputBox("ÇëÊäÈëÒ»¸öÈÕÆÚ") £ºÓÃInputBoxº¯ÊýÀ´ÈÃÓû§ÊäÈëÒ»¸öÈÕÆÚ£¬²¢°ÑÓû§ÊäÈëµÄÈÕÆÚ¸³¸ø±äÁ¿zdrq¡£
4¡¢Msg = "¼¾¶È: " & DatePart("q", zdrq) £ºÓÃDatePartº¯Êý¼ÆËãµÃµ½µÄ½á¹ûºÍ×Ö·û´®¡°¼¾¶È£º ¡±Á¬½ÓÆðÀ´¸³¸ø±äÁ¿Msg¡£
5¡¢MsgBox Msg £ºÀûÓÃMsgBoxº¯ÊýÏÔʾMsgµÄÖµ¡£
DatePart º¯Êý
DatePart(interval, date, [, firstdayofweek[, firstweekofyear]])
Óï·¨ÖÐÓÐÏÂÁÐÃüÃû²ÎÊý£º
interval ±ØÒª¡£×Ö·û´®±í´ïʽ£¬ÊÇËùÒª¼ÓÉÏÈ¥µÄʱ¼ä¼ä¸ô¡£Ëü¾ßÓкöàÉ趨ֵ£¬ÓëDateAddº¯ÊýÏàͬ£»´ËÀýÖеÄ"q"£¬±íʾ¼¾¶È£»
Date£¬ ±ØÒª£»¼ÆËãÖÐÒªÓõ½µÄÁ½¸öÈÕÆÚ¡£
Firstdayofweek ¿ÉÑ¡¡£Ö¸¶¨Ò»¸öÐÇÆڵĵÚÒ»ÌìµÄ³£Êý¡£Èç¹ûδÓèÖ¸¶¨£¬ÔòÒÔÐÇÆÚÈÕΪµÚÒ»Ìì¡£
firstweekofyear ¿ÉÑ¡¡£Ö¸¶¨Ò»ÄêµÄµÚÒ»Öܵij£Êý¡£Èç¹ûδÓèÖ¸¶¨£¬ÔòÒÔ°üº¬ 1 Ô 1 ÈÕµÄÐÇÆÚΪµÚÒ»ÖÜ¡£
µÚ1.9Àý DateSerialº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDateSerialº¯Êý·µ»ØÖ¸¶¨ÈÕÆÚµÄDateÀàÐÍ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_09()
Dim zdrq
zdrq = DateSerial(2008, 8, 8)
MsgBox zdrq
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_09()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_09¡£
2¡¢Dim zdrq £º±äÁ¿zdrqÉùÃ÷Ϊ¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢zdrq = DateSerial(2008, 8, 8) £ºDateSerialº¯Êýת»»ËùµÃµÄ½á¹û¸³¸ø±äÁ¿zdrq¡£
DateSerialº¯Êý·µ»ØÖ¸¶¨ÈÕÆÚÄêÔÂÈÕµÄÈÕÆÚ¸ñʽ¡£
Óï·¨
DateSerial(year, month, day)
DateSerial º¯ÊýÓï·¨ÓÐÏÂÁеÄÃüÃû²ÎÊý£º
year ±ØÒª£»ÕûÐÍ¡£´Ó 100 µ½ 9999 ¼äµÄÕûÊý£¬»òÒ»ÊýÖµ±í´ïʽ¡£
month ±ØÒª£»ÕûÐÍ¡£ÈκÎÊýÖµ±í´ïʽ¡£
day ±ØÒª£»ÕûÐÍ¡£ÈκÎÊýÖµ±í´ïʽ¡£
4¡¢MsgBox zdrq £ºÀûÓÃMsgBoxº¯ÊýÏÔʾzdrqµÄÖµ¡£
¡¡¡¡
µÚ1.10Àý DateValue º¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDateValueº¯Êý·µ»ØÖ¸¶¨ÈÕÆÚµÄDateÀàÐÍ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_010()
Dim zdrq
zdrq = DateValue("August 8, 2008")
MsgBox zdrq
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_010()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_010¡£
2¡¢Dim zdrq £º±äÁ¿zdrqÉùÃ÷Ϊ¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢zdrq = DateValue("August 8, 2008") £ºDateSerialº¯Êýת»»ËùµÃµÄ½á¹û¸³¸ø±äÁ¿zdrq¡£
4¡¢MsgBox zdrq £ºÀûÓÃMsgBoxº¯ÊýÏÔʾzdrqµÄÖµ¡£
DateValueº¯Êý
½«×Ö·û´®×ª»»ÎªÈÕÆÚ¸ñʽ¡£
Óï·¨
DateValue (date)
DateValue º¯ÊýµÄ²ÎÊý£º
date ±ØÒª£»Í¨³£ÊÇ×Ö·û´®±í´ïʽ£¬±íʾ´Ó 100 Äê 1 Ô 1 ÈÕµ½ 9999 Äê 12 Ô 31 ÈÕÖ®¼äµÄÒ»¸öÈÕÆÚ¡£µ«ÊÇ£¬date Ò²¿ÉÒÔÊÇÈκαí´ïʽ£¬ÆäËù´ú±íµÄÈÕÆÚ¡¢Ê±¼äÔÚÉÏÊö·¶Î§ÄÚ¡£
µÚ1.11Àý Dayº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDayº¯Êý·µ»ØÖ¸¶¨ÈÕÆÚµÄÈÕ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_11()
Dim zdrq
zdrq = #2008-12-8#
MsgBox zdrq & " ÕâÌìµÄÈÕΪ: " & Day(zdrq)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_11()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_11¡£
2¡¢Dim zdrq £º±äÁ¿zdrqÉùÃ÷Ϊ¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢zdrq = #2008- 8- 8# £º°ÑÈÕÆÚ2008-8-8¸³¸ø±äÁ¿zdrq¡£
4¡¢MsgBox zdrq & " ÕâÌìµÄÈÕΪ: " & Day(zdrq)£ºÀûÓÃMsgBoxº¯ÊýÏÔʾDay(zdrq)µÄÖµ¡£
¡¡¡¡
Dayº¯Êý·µ»ØÒ»¸öÆäֵΪ 1 µ½ 31 Ö®¼äµÄÕûÊý£¬±íʾһ¸öÔÂÖеÄijһÈÕ¡£
Óï·¨
Day (date)
Day º¯ÊýµÄ²ÎÊý£º
date±ØÒªµÄ£¬¿ÉÒÔÊÇÈκÎÄܹ»±íʾÈÕÆÚµÄ Variant¡¢ÊýÖµ±í´ïʽ¡¢×Ö·û´®±í´ïʽ»òËüÃǵÄ×éºÏ¡£
µÚ1.12Àý Dirº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃDirº¯Êý·µ»ØÒ»¸öÎļþ¼ÐµÄÎļþÁÐ±í¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_12()
Dim wjm
wjm = Dir("C:\WINDOWS\WIN.ini")
MsgBox wjm
wjm = Dir("C:\WINDOWS\*.ini")
wjm = Dir
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_12()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_12¡£
2¡¢Dim wjm £º±äÁ¿wjmÉùÃ÷Ϊ¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢wjm = Dir("C:\WINDOWS\WIN.ini") £º
Èç¹û¸ÃÎļþ´æÔÚÔò·µ»Ø¡°WIN.INI¡±(ÔÚC:\Windows Îļþ¼ÐÖÐ) £¬°Ñ·µ»ØµÄÎļþÃû¸³¸ø±äÁ¿wjm ¡£Èç¹û¸ÃÎļþ²»´æÔÚÔòwjm=¡±¡±¡£
4¡¢wjm = Dir("C:\WINDOWS\*.ini") £º
·µ»Ø´øÖ¸¶¨À©Õ¹ÃûµÄÎļþÃû¡£Èç¹û³¬¹ýÒ»¸ö *.ini Îļþ´æÔÚ£¬º¯Êý½«·µ»Ø°´Ìõ¼þµÚÒ»¸öÕÒµ½µÄÎļþÃû¡£
5¡¢wjm = Dir £º
ÈôµÚ¶þ´Îµ÷Óà Dir º¯Êý£¬µ«²»´øÈκβÎÊý£¬Ôòº¯Êý½«·µ»ØͬһĿ¼ÏµÄÏÂÒ»¸ö *.ini Îļþ¡£
¡¡¡¡Dirº¯Êý
·µ»ØÒ»¸ö×Ö·û´® String£¬ÓÃÒÔ±íʾһ¸öÎļþÃû¡¢Ä¿Â¼Ãû»òÎļþ¼ÐÃû³Æ£¬Ëü±ØÐëÓëÖ¸¶¨µÄģʽ»òÎļþÊôÐÔ¡¢»ò´ÅÅ̾í±êÏàÆ¥Åä¡£
Dir[(pathname[, attributes])]
Dir º¯ÊýµÄÓï·¨¾ßÓÐÒÔϼ¸¸ö²¿·Ö£º
pathname ¿ÉÑ¡²ÎÊý¡£ÓÃÀ´Ö¸¶¨ÎļþÃûµÄ×Ö·û´®±í´ïʽ£¬¿ÉÄÜ°üº¬Ä¿Â¼»òÎļþ¼Ð¡¢ÒÔ¼°Çý¶¯Æ÷¡£Èç¹ûûÓÐÕÒµ½ pathname£¬Ôò»á·µ»ØÁ㳤¶È×Ö·û´® ("")¡£
attributes ¿ÉÑ¡²ÎÊý¡£³£Êý»òÊýÖµ±í´ïʽ£¬Æä×ܺÍÓÃÀ´Ö¸¶¨ÎļþÊôÐÔ¡£Èç¹ûÊ¡ÂÔ£¬Ôò»á·µ»ØÆ¥Åä pathname µ«²»°üº¬ÊôÐÔµÄÎļþ¡£
µÚ1.13Àý Fixº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃFixº¯Êý·µ»ØijÊýÖµµÄÕûÊý²¿·Ö¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_13()
MsgBox ¡°99.8µÄÕûÊý²¿·ÖÊÇ£º ¡± & Fix(99.8)
MsgBox ¡°£99.8µÄÕûÊý²¿·ÖÊÇ£º ¡± & Fix(-99.8)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_13()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_13¡£
2¡¢MsgBox ¡°99.8µÄÕûÊý²¿·ÖÊÇ£º ¡± & Fix(99.8) £º
ÀûÓÃMsgBoxº¯ÊýÏÔʾFix(99.8)µÄÖµ¡£
3¡¢MsgBox ¡°-99.8µÄÕûÊý²¿·ÖÊÇ£º ¡± & Fix(-99.8) £º
ÀûÓÃMsgBoxº¯ÊýÏÔʾFix(-99.8)µÄÖµ¡£
Fixº¯Êý·µ»Ø²ÎÊýµÄÕûÊý²¿·Ö¡£
Óï·¨
Fix(number)
number ±ØÒªµÄ ÊÇÈκÎÓÐЧµÄÊýÖµ±í´ïʽ¡£
Int ¼° Fix º¯ÊýÔÚ·µ»ØijÊýÖµµÄÕûÊý²¿·ÖʱÓкβ»Í¬¡£µ±²ÎÊýΪ¸ºÊýʱ£¬Int º¯Êý·µ»ØСÓÚ»òµÈÓڸòÎÊýÖ®×î´óÕûÊý£¬¶ø Fix º¯ÊýÔò·µ»Ø´óÓÚ»òµÈÓڸòÎÊýÖ®×îСÕûÊý¡£
µÚ1.14Àý Formatº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃFormatº¯Êý¶ÔÖ¸¶¨×Ö·û´®·µ»ØÖ¸¶¨¸ñʽµÄÊä³ö¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_14()
Dim sj, rq
sj = ¡°19:08:43¡±
rq = ¡°2008-8-8¡±
MsgBox sj & ¡° µÄ¸ñʽÉèΪ"hh:mm:ss AMPM"£º ¡± & Format(sj, "hh:mm:ss AMPM") ' ·µ»Ø "07:08:43ÏÂÎç"¡£
MsgBox rq & ¡° µÄ¸ñʽÉèΪ"dddd, mmm d yyyy"£º ¡± & Format(rq, "dddd, mmm d yyyy")
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_14()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_14¡£
2¡¢Dim sj,rq £º±äÁ¿sj,rqÉùÃ÷Ϊ¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢sj = ¡°19:08:43¡± £º°Ñ×Ö·û´®¡±19:08:43¡±¸³¸ø±äÁ¿sj¡£
4¡¢rq = ¡°2008-8-8¡± £º°Ñ×Ö·û´®¡±2008-8-8¡±¸³¸ø±äÁ¿rq¡£
5¡¢MsgBox sj & ¡° µÄ¸ñʽÉèΪ"hh:mm:ss AMPM"£º ¡± & Format(sj, "hh:mm:ss AMPM") £º
ÀûÓÃMsgBoxº¯ÊýÏÔʾFormatº¯ÊýµÄÖµ¡£·µ»Ø "07:08:43ÏÂÎç"¡£
6¡¢MsgBox rq & ¡° µÄ¸ñʽÉèΪ"dddd, mmm d yyyy"£º ¡± & Format(rq, "dddd, mmm d yyyy") £º
¡¡¡¡ÀûÓÃMsgBoxº¯ÊýÏÔʾFormatº¯ÊýµÄÖµ¡£´úÂëÖ´ÐкóÈçͼ5-14Ëùʾ¡£
¡¡¡¡Formatº¯Êý
¸ù¾ÝÓÐЧµÄÃüÃû±í´ïʽÀ´¶ÔÖ¸¶¨µÄ±í´ïʽ½øÐиñʽ»¯¡£
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format º¯ÊýµÄÓï·¨¾ßÓÐÏÂÃ漸¸ö²¿·Ö£º
expression ±ØÒª²ÎÊý¡£ÈκÎÓÐЧµÄ±í´ïʽ¡£
format ¿ÉÑ¡²ÎÊý¡£ÓÐЧµÄÃüÃû±í´ïʽ»òÓû§×Ô¶¨Òå¸ñʽ±í´ïʽ¡£
firstdayofweek ¿ÉÑ¡²ÎÊý¡£³£Êý£¬±íʾһÐÇÆڵĵÚÒ»Ìì¡£
firstweekofyear ¿ÉÑ¡²ÎÊý¡£³£Êý£¬±íʾһÄêµÄµÚÒ»ÖÜ¡£
µÚ1.15Àý Hourº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃHourº¯Êý¶ÔÖ¸¶¨×Ö·û´®·µ»ØСʱÊý¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_15()
Dim sj
sj = "3:45:20 PM" ' Ö¸¶¨Ò»Ê±¼ä×Ö·û´®¡£
MsgBox sj & " µÄСʱÊÇ£º " & Hour(sj)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_15()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_15¡£
2¡¢Dim sj £º±äÁ¿sjÉùÃ÷Ϊ¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢sj = ¡°3:45:20 PM¡± £º°Ñ×Ö·û´®¡±3:45:20 PM¡±¸³¸ø±äÁ¿sj¡£
4¡¢MsgBox sj & " µÄСʱÊÇ£º " & Hour(sj) £º
ÀûÓÃMsgBoxº¯ÊýÏÔʾHourº¯ÊýµÄÖµ¡£´úÂëÖ´ÐкóÈçͼ5-15Ëùʾ¡£
Hour º¯Êý
·µ»ØÒ»¸öÆäֵΪ 0 µ½ 23 Ö®¼äµÄÕûÊý£¬±íʾһÌìÖ®ÖеÄijһÖӵ㡣
Óï·¨
Hour(time)
Time ±ØÒªµÄ²ÎÊý£¬¿ÉÒÔÊÇÈκÎÄܹ»±íʾʱ¿ÌµÄÊýÖµ±í´ïʽ¡¢×Ö·û´®±í´ïʽ»òËüÃǵÄ×éºÏ¡£
µÚ1.16Àý IIFº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃIIFº¯Êý¸ù¾ÝÅжÏÌõ¼þ·µ»Ø½á¹û¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_16()
Dim Cheshi As String, dx As Integer
dx = 560
Cheshi = IIF(dx > 1000, "´ó", "С")
MsgBox dx & " ±È1000Òª" & Cheshi & " " & Abs(1000 - dx)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_16()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_16¡£
2¡¢Dim Cheshi As String, dx As Integer £º±äÁ¿CheshiÉùÃ÷Ϊ×Ö·û´®Êý¾ÝÀàÐÍ£¬dxÉùÃ÷ΪÕûÐÍ¡£
3¡¢dx= 560 £º°ÑÊý×Ö560¸³¸ø±äÁ¿dx¡£
4¡¢Cheshi = IIF(dx > 1000, "´ó", "С") £º
¸ù¾Ý±äÁ¿dxÊÇ·ñ´óÓÚ1000µÄÌõ¼þÀ´Åжϣ¬²¢ÇÒ°Ñ·µ»ØµÄ½á¹û¸³¸ø±äÁ¿Cheshi¡£
5¡¢MsgBox dx & " ±È1000Òª" & Cheshi & " " & Abs(1000 - dx) £º
ÀûÓÃMsgBoxº¯ÊýÏÔʾ×îºóµÄÖµ¡£ÆäÖÐAbsº¯ÊýÊÇÈ¡±í´ïʽµÄ¾ø¶ÔÖµº¯Êý¡£
IIF º¯Êý
¸ù¾Ý±í´ïʽµÄÖµ£¬À´·µ»ØÁ½²¿·ÖÖеÄÆäÖÐÒ»¸ö¡£
IIF(expr, truepart, falsepart)
IIF º¯ÊýµÄÓï·¨º¬ÓÐÏÂÃæÕâЩÃüÃû²ÎÊý£º
expr ±ØÒª²ÎÊý¡£ÓÃÀ´ÅжÏÕæαµÄ±í´ïʽ¡£
truepart ±ØÒª²ÎÊý¡£Èç¹û expr Ϊ True£¬Ôò·µ»ØÕⲿ·ÖµÄÖµ»ò±í´ïʽ¡£
falsepart ±ØÒª²ÎÊý¡£Èç¹û expr Ϊ False£¬Ôò·µ»ØÕⲿ·ÖµÄÖµ»ò±í´ïʽ¡£
µÚ1.17Àý InputBoxº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃInputBoxº¯Êý£¬Óû§ÊäÈëÒ»¶¨·¶Î§µÄÊýÖµ²¢·µ»Ø½á¹û¡£
¶þ¡¢´úÂ룺
Sub Sub ʾÀý_1_17()
Dim Msg$, bt$, Default$, MyValue,aa
Msg = "ÊäÈëÒ»¸ö10µ½25Ö®¼äµÄÊýÖµ£º"
bt = "InputBox º¯ÊýʾÀý"
Default = "10" ' ÉèÖÃȱʡֵ¡£
100£º
¡¡¡¡¡¡¡¡MyValue = InputBox(Msg,bt, Default)
¡¡¡¡¡¡¡¡If MyValue < 10 Or MyValue > 25 Then
aa = MsgBox("ÊäÈëÊýÖµ³¬³ö·¶Î§£¬ÇëÖØÐÂÊäÈë»òÕßÍ˳ö¡£", 1)
If aa <> vbOK Then Exit Sub
GoTo 100
¡¡¡¡¡¡Else
MsgBox "ÄãÊäÈëµÄÊÇ " & MyValue
¡¡End If
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_17()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_17¡£
2¡¢Dim Msg$, bt$, Default, MyValue,aa £º±äÁ¿Msg¡¢DefaultºÍbtÉùÃ÷Ϊ×Ö·û´®Êý¾ÝÀàÐÍ£¬ÆäËüµÄûÓÐÏÔʽÉùÃ÷£¬¶¼Îª¿É±äÐÍÊý¾ÝÀàÐÍ¡£
3¡¢Msg = "ÊäÈëÒ»¸ö10µ½25Ö®¼äµÄÊýÖµ£º" £ºÉèÖÃÌáʾÐÅÏ¢£¬°Ñ×Ö·û´®¸³¸ø±äÁ¿Msg¡£
4¡¢bt = "InputBox º¯ÊýʾÀý" £ºÉèÖñêÌ⣬°Ñ×Ö·û´®¸³¸ø±äÁ¿bt¡£
5¡¢Default = "10" £ºÉèÖÃȱʡֵ£¬°Ñ×Ö·û´®¸³¸ø±äÁ¿Default¡£
6¡¢MyValue = InputBox(Msg,bt, Default) £ºÍ¨¹ýInputBoxº¯ÊýÏÔʾÐÅÏ¢¡¢±êÌ⼰ȱʡֵ£¬°Ñº¯Êý·µ»ØÖµ¸³¸ø±äÁ¿MyValue¡£
7¡¢If MyValue < 10 Or MyValue > 25 Then £ºÈç¹ûInputBoxº¯Êý·µ»ØµÄÊýֵСÓÚ10»òÕß´óÓÚ25£¬ÄÇôִÐÐÏÂÃæµÄÓï¾ä¡£
8¡¢aa = MsgBox("ÊäÈëÊýÖµ³¬³ö·¶Î§£¬ÇëÖØÐÂÊäÈë»òÕßÍ˳ö¡£", 1) £ºÈç¹ûInputBoxº¯Êý·µ»ØµÄÊýÖµ³¬³öÁË·¶Î§£¬ÏÔʾһ¸öÏûÏ¢¿ò£¬ÏûÏ¢¿òÀïÃæµÄµÚ2¸ö²ÎÊýÊÇ1£¬±íʾÏûÏ¢¿òÉÏÓÐÁ½¸ö°´Å¥£º¡°È·¶¨¡±ºÍ¡°È¡Ïû¡±°´Å¥¡£²¢°ÑÏûÏ¢¿ò·µ»ØµÄ½á¹û¸³¸ø±äÁ¿aa¡£
9¡¢If aa <> vbOK Then Exit Sub £ºÈç¹ûÓû§°´ÁËÏûÏ¢¿òÉϵġ°È¡Ïû¡±°´Å¥£¬¾ÍÍ˳ö±¾³ÌÐò¡£
10¡¢GoTo 100 £ºÈç¹ûÓû§°´ÁËÏûÏ¢¿òÉϵġ°È·¶¨¡±°´Å¥£¬¾Íת¶ø´ÓÐкÅ100¿ªÊ¼Ö´ÐдúÂë¡£
11¡¢MsgBox "ÄãÊäÈëµÄÊÇ " & MyValue £ºÈç¹ûÓû§ÊäÈëÁË·ûºÏÒªÇóµÄÊýÖµ£¬°´Á˻سµ¼ü»òÕß¡°È·¶¨¡±°´Å¥£¬ÏûÏ¢¿òÏÔʾÓû§ÊäÈëµÄÖµ¡£
InputBox º¯Êý
ÔÚÒ»¶Ô»°¿òÀ´ÖÐÏÔʾÌáʾ£¬µÈ´ýÓû§ÊäÈëÕýÎÄ»ò°´Ï°´Å¥£¬²¢·µ»Ø°üº¬Îı¾¿òÄÚÈݵÄ×Ö·û´®¡£
Óï·¨
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
InputBox º¯ÊýµÄÓï·¨¾ßÓÐÒÔϼ¸¸öÃüÃû²ÎÊý£º
Prompt ±ØÐèµÄ¡£×÷Ϊ¶Ô»°¿òÏûÏ¢³öÏÖµÄ×Ö·û´®±í´ïʽ¡£Prompt µÄ×î´ó³¤¶È´óÔ¼ÊÇ 1024 ¸ö×Ö·û£¬ÓÉËùÓÃ×Ö·ûµÄ¿í¶È¾ö¶¨¡£Èç¹û Prompt °üº¬¶à¸öÐУ¬Ôò¿ÉÔÚ¸÷ÐÐÖ®¼äÓûسµ·û (Chr(13))¡¢»»Ðзû (Chr(10)) »ò»Ø³µ»»ÐзûµÄ×éºÏ (Chr(13) & Chr(10)) À´·Ö¸ô¡£
Title ¿ÉÑ¡µÄ¡£ÏÔʾ¶Ô»°¿ò±êÌâÀ¸ÖеÄ×Ö·û´®±í´ïʽ¡£Èç¹ûÊ¡ÂÔ Title£¬Ôò°ÑÓ¦ÓóÌÐòÃû·ÅÈë±êÌâÀ¸ÖС£
Default ¿ÉÑ¡µÄ¡£ÏÔʾÎı¾¿òÖеÄ×Ö·û´®±í´ïʽ£¬ÔÚûÓÐÆäËüÊäÈëʱ×÷Ϊȱʡֵ¡£Èç¹ûÊ¡ÂÔ Default£¬ÔòÎı¾¿òΪ¿Õ¡£
ÆäËü²ÎÊýÊ¡ÂÔ£¬Çë²Î¼ûExcel°ïÖúÎļþ¡£
µÚ1.18Àý Instrº¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃInstrº¯Êý£¬ÔÚÒ»×Ö·û´®ÖвéÕÒÁíÒ»×Ö·û´®²¢·µ»Ø½á¹û¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_18()
Dim bssString, yczChar, wz
bssString ="ABpAApCDPBBP"
yczChar = "P"
MsgBox "bssString = "" ABpAApCDPBBP """ & Chr(10) & _
"yczChar= ""P"" ʱ£º " & Chr(10) & Chr(10) & _
"InStr(4, bssString, yczChar, 1) ·µ»ØֵΪ " & _
InStr(4, bssString, yczChar, 1)
wz = Instr(1, bssString, yczChar, 0)
wz = Instr(bssString,yczChar) ' ·µ»Ø 9¡£
wz = Instr(1, bssString, "W") ' ·µ»Ø 0¡£
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_18()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_18¡£
2¡¢Dim bssString, yczChar, wz £º±äÁ¿bssString¡¢yczCharºÍwsÉùÃ÷Ϊ¿É±äÐͱäÁ¿¡£
3¡¢bssString ="ABpAApCDXPBBP" £º °Ñ±»ËÑË÷µÄ×Ö·û´®¸³¸ø±äÁ¿bssString¡£
4¡¢yczChar = "P" £º °ÑÒª²éÕÒµÄ×Ö·ûP¸³¸ø±äÁ¿yczChar¡£
5¡¢MsgBox "bssString = "" ABpAApCDPBBP """ & Chr(10) & _
"yczChar= ""P"" ʱ£º " & Chr(10) & Chr(10) & _
"InStr(4, bssString, yczChar, 1) ·µ»ØֵΪ " & _
InStr(4, bssString, yczChar, 1)£º ÓÃÏûÏ¢¿òÏÔʾ´ÓµÚËĸö×Ö·û¿ªÊ¼£¬ÒÔÎı¾±È½ÏµÄ·½Ê½ÕÒ×Ö·ûP£¬·µ»ØֵΪ 6£¨Ð¡Ð´ pµÄλÖã©¡£Ð¡Ð´ p ºÍ´óд P ÔÚÎı¾±È½ÏÏÂÊÇÒ»ÑùµÄ£¬Ò²¾ÍÊǵ±º¯ÊýµÄ×îºóÒ»¸ö²ÎÊýΪ1ʱ£¬²éÕÒ²»·Ö´óСд¡£°ÑÒª²éÕÒµÄ×Ö·ûPµÄλÖø³¸ø±äÁ¿yczChar¡£Ê½ÖÐChr(10)ÊÇ»»Ðзû¡£
6¡¢wz = Instr(1, bssString, yczChar, 0) £º´ÓµÚÒ»¸ö×Ö·û¿ªÊ¼£¬ÒÔ¶þ½øÖƱȽϵķ½Ê½²éÕÒ£¬·µ»ØֵΪ 9£¨´óд PµÄλÖã©¡£Ð¡Ð´ p ºÍ´óд P ÔÚ¶þ½øÖƱȽÏÏÂÊDz»Ò»ÑùµÄ£¬Ò²¾ÍÊǵ±º¯ÊýµÄ×îºóÒ»¸ö²ÎÊýΪ0ʱ£¬²éÕÒ·Ö´óСд¡£°Ñ²éÕÒµ½µÄ×Ö·ûPµÄλÖø³¸ø±äÁ¿wz¡£
7¡¢wz = Instr(bssString, yczChar) £ºÉÏÒ»¾äÒ²¿Éд³ÉÕâÑùµÄ£¬ÒòΪȱʡµÄ±È¶Ô·½Ê½Îª¶þ½øÖƱȽϣ¨×îºóÒ»¸ö²ÎÊý¿ÉÊ¡ÂÔ£©¡£µÚÒ»¸ö²ÎÊýÊ¡ÂÔĬÈÏ´ÓµÚÒ»¸ö×Ö·û¿ªÊ¼²éÕÒ¡£·µ»ØֵΪ 9¡£
8¡¢wz = Instr(1,bssString, ¡±W¡±) £ºÔÚ±»ËÑË÷µÄ×Ö·û´®ÖвéÕÒ×Ö·ûW£¬ÓÉÓÚûÕÒµ½·µ»ØֵΪ0¡£
InStr º¯Êý
·µ»Ø Variant (Long)£¬Ö¸¶¨Ò»×Ö·û´®ÔÚÁíÒ»×Ö·û´®ÖÐ×îÏȳöÏÖµÄλÖá£
Óï·¨
InStr([start, ]string1, string2[, compare])
InStr º¯ÊýµÄÓï·¨¾ßÓÐÏÂÃæµÄ²ÎÊý£º
start ¿ÉÑ¡²ÎÊý¡£ÎªÊýÖµ±í´ïʽ£¬ÉèÖÃÿ´ÎËÑË÷µÄÆðµã¡£Èç¹ûÊ¡ÂÔ£¬½«´ÓµÚÒ»¸ö×Ö·ûµÄλÖÿªÊ¼¡£Èç¹ûÖ¸¶¨ÁË compare ²ÎÊý£¬ÔòÒ»¶¨ÒªÓÐ start ²ÎÊý¡£
string1 ±ØÒª²ÎÊý¡£½ÓÊÜËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
string2 ±ØÒª²ÎÊý¡£±»ËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
Compare¿ÉÑ¡²ÎÊý¡£Ö¸¶¨×Ö·û´®±È½Ï¡£Èç¹ûÊ¡ÂÔ compare£¬Option Compare µÄÉèÖý«¾ö¶¨±È½ÏµÄÀàÐÍ¡£
compare ²ÎÊýÉèÖÃΪ£º
³£Êý Öµ ÃèÊö
vbUseCompareOption -1 ʹÓÃOption Compare Óï¾äÉèÖÃÖ´ÐÐÒ»¸ö±È½Ï¡£
vbBinaryCompare 0 Ö´ÐÐÒ»¸ö¶þ½øÖƱȽϡ£
vbTextCompare 1 Ö´ÐÐÒ»¸ö°´ÕÕÔÎĵıȽϡ£
vbDatabaseCompare 2 ½öÊÊÓÃÓÚMicrosoft Access£¬Ö´ÐÐÒ»¸ö»ùÓÚÊý¾Ý¿âÖÐÐÅÏ¢µÄ±È½Ï¡£
µÚ1.19Àý InstrRevº¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃInstrRevº¯Êý£¬·µ»ØÒ»¸ö×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖгöÏÖµÄλÖ㬴Ó×Ö·û´®µÄĩβËãÆð¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_19()
Dim bssString, yczChar, wz
bssString ="ABpAApCDPBBP"
yczChar = "p"
ws = InstrRev(bssString, yczChar, 4,1)
MsgBox ws
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_19()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_19¡£
2¡¢Dim bssString, yczChar, wz £º±äÁ¿bssString¡¢yczCharºÍwsÉùÃ÷Ϊ¿É±äÐͱäÁ¿¡£
3¡¢bssString ="ABpAApCDXPBBP" £º °Ñ±»ËÑË÷µÄ×Ö·û´®¸³¸ø±äÁ¿bssString¡£
4¡¢yczChar = "p" £º °ÑÒª²éÕÒµÄ×Ö·ûP¸³¸ø±äÁ¿yczChar¡£
5¡¢wz = InstrRev( bssString, yczChar,4,1) £º´ÓµÚ4¸ö×Ö·û¿ªÊ¼£¬°´ÔÎıȽϵķ½Ê½´ÓĩβÍùÇ°²éÕÒ×Ö·ûp£¬·µ»ØֵΪ3¡£
InStrRevº¯Êý
·µ»ØÒ»¸ö×Ö·û´®ÔÚÁíÒ»¸ö×Ö·û´®ÖгöÏÖµÄλÖ㬴Ó×Ö·û´®µÄĩβËãÆð¡£
Óï·¨
InstrRev(stringcheck, stringmatch[, start[, compare]])
InstrRevº¯ÊýÓï·¨ÓÐÈçÏÂÃüÃû²ÎÊý£º
stringcheck ±ØÐèµÄ¡£ÒªÖ´ÐÐËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
stringmatch ±ØÐèµÄ¡£ÒªËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
start ¿ÉÑ¡µÄ¡£ÊýÖµ±í´ïʽ£¬ÉèÖÃÿ´ÎËÑË÷µÄ¿ªÊ¼Î»Öá£Èç¹ûºöÂÔ£¬Ôò±íʾ´Ó×Ö·û´®Ä©Î²Î»ÖÿªÊ¼ËÑË÷¡£
compare ¿ÉÑ¡µÄ¡£Êý×ÖÖµ£¬Ö¸³öÔÚÅжÏ×Ó×Ö·û´®Ê±ËùʹÓõıȽϷ½·¨¡£Èç¹ûºöÂÔ£¬ÔòÖ´Ðжþ½øÖƱȽϡ£
compare²ÎÊýÖµÈçÏ£º
³£Êý Öµ ÃèÊö
vbUseCompareOption ¨C1 ÓÃOption CompareÓï¾äµÄÉèÖÃÖµÀ´Ö´ÐбȽϡ£
vbBinaryCompare 0 Ö´Ðжþ½øÖƱȽϡ£Çø·Ö´óСд¡£
vbTextCompare 1 Ö´ÐÐÎÄ×ֱȽϡ£²»Çø·Ö´óСд¡£
vbDatabaseCompare 2 Ö»ÓÃÓÚMicrosoft Access¡£»ùÓÚÄúµÄÊý¾Ý¿âÐÅÏ¢Ö´ÐбȽϡ£
6¡¢MsgBox ws £º ÓÃÏûÏ¢¿òÏÔʾ²éÕÒ·µ»ØµÄÖµ 3¡£
µÚ1.20Àý IsArrayº¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃIsArrayº¯Êý£¬·µ»ØÒ»¸ö±äÁ¿ÊÇ·ñΪһ¸öÊý×é¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_20()
Dim Arr1(1 To 8,1 to 3) As Integer, Arr2
Arr2 = Array(1, 2, 3,4,5)
MsgBox ¡°Arr1 ÊÇ·ñΪÊý×飺 ¡± & IsArray(Arr1) ' ·µ»Ø True¡£
MsgBox ¡°Arr2 ÊÇ·ñΪÊý×飺 ¡± & IsArray(Arr2) ' ·µ»Ø True¡£
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_20()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_20¡£
2¡¢Dim Arr1(1 To 8,1 to 3) As Integer, Arr2 £ºÉùÃ÷±äÁ¿Arr1ΪÕûÐÍÊý×é¡¢Arr2Ϊ¿É±äÐͱäÁ¿¡£
3¡¢Arr2 = Array(1, 2, 3,4,5) £ºÓÃArrayº¯Êý¸³Öµ¸øArr2¡£
Array º¯Êý
·µ»ØÒ»¸ö°üº¬Êý×éµÄ Variant¡£
Óï·¨
Array(arglist)
ËùÐèµÄ arglist ²ÎÊýÊÇÒ»¸öÓöººÅ¸ô¿ªµÄÖµ±í£¬ÕâЩֵÓÃÓÚ¸ø Variant Ëù°üº¬µÄÊý×éµÄ¸÷ÔªËظ³Öµ¡£Èç¹û²»Ìṩ²ÎÊý£¬Ôò´´½¨Ò»¸ö³¤¶ÈΪ 0 µÄÊý×é¡£
ʹÓà Array º¯Êý´´½¨µÄÊý×éµÄϽçÊÜ Option Base Óï¾äÖ¸¶¨µÄϽçµÄ¾ö¶¨£¬Ä¬ÈÏΪ0¡£
IsArray º¯Êý
·µ»Ø Boolean Öµ£¬Ö¸³ö±äÁ¿ÊÇ·ñΪһ¸öÊý×é¡£
Óï·¨
IsArray(varname)
±ØÒªµÄ varname ²ÎÊýÊÇÒ»¸öÖ¸¶¨±äÁ¿µÄ±êʶ·û¡£
Èç¹û±äÁ¿ÊÇÊý×飬Ôò IsArray ·µ»Ø True£»·ñÔò·µ»Ø False¡£¶ÔÓÚ°üº¬Êý×éµÄ variant ±í´ïʽÀ´Ëµ£¬IsArray ÓÈΪÓÐÓá£
4¡¢MsgBox ¡°Arr1 ÊÇ·ñΪÊý×飺 ¡± & IsArray(Arr1) £ºÓÃÏûÏ¢¿òÏÔʾArr1ÊÇ·ñΪÊý×é¡£
µÚ1.21Àý IsNumericº¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃIsNumericº¯Êý£¬·µ»ØÒ»¸ö±äÁ¿ÊÇ·ñΪһ¸öÊýÖµ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_21()
Dim bl,bl1
bl = 530.25
MsgBox "±äÁ¿ bl ÊÇ·ñΪÊýÖµ£º " & IsNumeric(bl)
bl1 = "4500 Cm"
MsgBox "±äÁ¿bl1 ÊÇ·ñΪÊýÖµ£º " & IsNumeric(bl1)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_21()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_21¡£
2¡¢Dim bl , bl1 £ºÉùÃ÷±äÁ¿bl£¬bl1Ϊ¿É±äÐͱäÁ¿¡£
3¡¢bl = 530.25 £º°ÑÊýÖµ530.25¸³¸ø±äÁ¿bl¡£
4¡¢MsgBox "±äÁ¿ bl ÊÇ·ñΪÊýÖµ£º " & IsNumeric(bl) £ºÓÃÏûÏ¢¿òÏÔʾIsNumericº¯ÊýÅжϵıäÁ¿blÊÇ·ñΪÊýÖµ£¬·µ»ØTrue¡£
5¡¢bl1 = "4500 Cm" £º°Ñ×Ö·û´®¡°4500 Cm¡±¸³¸ø±äÁ¿bl1¡£
4¡¢MsgBox "±äÁ¿ bl1 ÊÇ·ñΪÊýÖµ£º " & IsNumeric(bl1) £ºÓÃÏûÏ¢¿òÏÔʾIsNumericº¯ÊýÅжϵıäÁ¿bl1ÊÇ·ñΪÊýÖµ£¬·µ»ØFalse¡£
IsNumeric º¯Êý
·µ»Ø Boolean Öµ£¬·µ»Ø±äÁ¿ÊÇ·ñΪһ¸öÊýÖµ¡£
IsNumeric(expression)
±ØÒªµÄ expression ²ÎÊýÊÇÒ»¸ö Variant£¬°üº¬ÊýÖµ±í´ïʽ»ò×Ö·û´®±í´ïʽ¡£
µÚ1.22Àý Joinº¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃJoinº¯Êý£¬Í¨¹ýÁ¬½Óij¸öÊý×éÖеĶà¸ö×Ó×Ö·û´®¶ø´´½¨µÄÒ»¸ö×Ö·û´®¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_022()
Dim ss
ss=Array("Ò»ÔÂ", "¶þÔÂ", "ÈýÔÂ")
[A1]=Join(ss,¡±,¡±)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_022()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_022¡£
2¡¢Dim ss £ºÉùÃ÷±äÁ¿ssΪ¿É±äÐͱäÁ¿¡£
3¡¢ss=Array("Ò»ÔÂ", "¶þÔÂ", "ÈýÔÂ") £º°ÑArrayº¯ÊýµÃµ½µÄһάÊý×鸳¸ø±äÁ¿ss¡£
4¡¢[A1]=Join(ss,¡±,¡±) £º°ÑÊý×éssµÄ¸÷¸öÔªËØÓöººÅÁ¬½ÓÆðÀ´¸³¸øA1µ¥Ôª¸ñ¡£·µ»Ø¡±Ò»ÔÂ,¶þÔÂ,ÈýÔ¡±£»
Èç¹ûÊ¡ÂÔ·Ö¸ô·û [A1]=Join(ss) ÔòÓÿոñÀ´·Ö¸ô£¬·µ»Ø¡±Ò»Ô ¶þÔ ÈýÔ¡±£»
Èç¹û·Ö¸ô·ûÊÇÁ㳤¶È×Ö·û´®("") [A1]=Join(ss,¡±¡±) ÔòûÓзָô·ûÁË£¬·µ»Ø¡±Ò»Ô¶þÔÂÈýÔ¡±¡£
Joinº¯Êý
·µ»ØÒ»¸ö×Ö·û´®£¬¸Ã×Ö·û´®ÊÇͨ¹ýÁ¬½Óij¸öÊý×éÖеĶà¸ö×Ó×Ö·û´®¶ø´´½¨µÄ¡£
Join(sourcearray[, delimiter])
Joinº¯ÊýÓï·¨ÓÐÈçÏÂÃüÃû²ÎÊý£º
sourcearray ±ØÐèµÄ¡£°üº¬±»Á¬½Ó×Ó×Ö·û´®µÄһάÊý×é¡£
delimiter ¿ÉÑ¡µÄ¡£ÔÚ·µ»Ø×Ö·û´®ÖÐÓÃÓÚ·Ö¸ô×Ó×Ö·û´®µÄ×Ö·û¡£Èç¹ûºöÂÔ¸ÃÏÔòʹÓÿոñ(" ")À´·Ö¸ô×Ó×Ö·û´®¡£Èç¹ûdelimiterÊÇÁ㳤¶È×Ö·û´®("")£¬ÔòÁбíÖеÄËùÓÐÏîÄ¿¶¼Á¬½ÓÔÚÒ»Æð£¬ÖмäûÓзָô·û¡£
µÚ1.23Àý LBoundºÍ UBoundº¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃLBoundº¯Êý£¬·µ»ØÊý×éµÄÖ¸¶¨Î¬ÊýµÄ×îС¿ÉÓÃϽ磻ÔËÓÃUBoundº¯Êý£¬·µ»ØÊý×éµÄÖ¸¶¨Î¬ÊýµÄ×î´ó¿ÉÓÃÉϽ硣
¶þ¡¢´úÂ룺
Sub ʾÀý_1_023()
Dim Arr(1 To 10, 5 To 15, 10 To 20)
Dim Arr1(10)
[a1] = "Êý×é±äÁ¿£ºArr(1 To 10, 5 To 15, 10 To 20) "
[a2] = "Êý×é±äÁ¿£ºArr1(10) "
[a3] = "LBound(Arr, 1) ·µ»Ø ": [b3] = LBound(Arr, 1)
[c3] = "UBound(Arr, 1) ·µ»Ø ": [d3] = UBound(Arr, 1)
[a4] = "LBound(Arr, 3) ·µ»Ø ": [b4] = LBound(Arr, 3)
[c4] = "UBound(Arr, 3) ·µ»Ø ": [d4] = UBound(Arr, 3)
[a5] = "LBound(Arr1) ·µ»Ø ": [b5] = LBound(Arr1)
[c5] = "UBound(Arr1) ·µ»Ø ": [d5] = UBound(Arr1)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_023()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_023¡£
2¡¢Dim Arr(1 To 10, 5 To 15, 10 To 20) £ºÉùÃ÷ArrΪ3άÊý×é±äÁ¿¡£
3¡¢Dim Arr1(10) £ºÉùÃ÷Arr1Ϊ1άÊý×é±äÁ¿¡£
4¡¢[a1] = "Êý×é±äÁ¿£ºArr(1 To 10, 5 To 15, 10 To 20) " £º°Ñ×Ö·û´®¸³¸øµ¥Ôª¸ñA1¡£
5¡¢[a2] = "Êý×é±äÁ¿£ºArr1(10) " £º°Ñ×Ö·û´®¸³¸øµ¥Ôª¸ñA2¡£
6¡¢[b3] = LBound(Arr,1) £ºÔËÓÃLBoundº¯Êý£¬·µ»ØÊý×éArrµÄµÚ1άµÄ×îС¿ÉÓÃÏÂ
½ç£¬·µ»Ø1£¬¸³¸øµ¥Ôª¸ñB3¡£
7¡¢[d3] = UBound(Arr,1) £ºÔËÓÃUBoundº¯Êý£¬·µ»ØÊý×éArrµÄµÚ1άµÄ×î´ó¿ÉÓÃÉÏ
½ç£¬·µ»Ø10£¬¸³¸øµ¥Ôª¸ñD3¡£
8¡¢[b4] = LBound(Arr,3) £ºÔËÓÃLBoundº¯Êý£¬·µ»ØÊý×éArrµÄµÚ3άµÄ×îС¿ÉÓÃÏÂ
½ç£¬·µ»Ø10£¬¸³¸øµ¥Ôª¸ñB4¡£
9¡¢[d4] = UBound(Arr,3) £ºÔËÓÃUBoundº¯Êý£¬·µ»ØÊý×éArrµÄµÚ3άµÄ×î´ó¿ÉÓÃÉÏ
½ç£¬·µ»Ø20£¬¸³¸øµ¥Ôª¸ñD4¡£
10¡¢[b5] = LBound(Arr1) £ºÔËÓÃLBoundº¯Êý£¬·µ»ØÊý×éArr1µÄ×îС¿ÉÓÃϽ磬·µ»Ø0»òÕß1£¬ÒªÈ¡¾öÓÚOption BaseµÄÉèÖã¬Ä¬ÈÏΪ0¡£
11¡¢[d5] = UBound(Arr1) £ºÔËÓÃUBoundº¯Êý£¬·µ»ØÊý×éAr1rµÄ×î´ó¿ÉÓÃÉϽ磬·µ»Ø10£¬¸³¸øµ¥Ôª¸ñD5¡£
LBound º¯Êý
·µ»ØÒ»¸ö Long ÐÍÊý¾Ý£¬ÆäֵΪÊý×éÖ¸¶¨Î¬¿ÉÓõÄ×îСϽ硣
LBound(arrayname[, dimension])
LBound º¯ÊýµÄ²ÎÊý£º
arrayname ±ØÐèµÄ¡£Êý×é±äÁ¿µÄÃû³Æ£¬×ñѱê×¼µÄ±äÁ¿ÃüÃûÔ¼¶¨¡£
dimension ¿ÉÑ¡µÄ£»Variant (Long)¡£Ö¸¶¨·µ»ØÄÄһάµÄϽ硣1 ±íʾµÚһά£¬2 ±íʾµÚ¶þά£¬Èç´ËÀàÍÆ¡£Èç¹ûÊ¡ÂÔ dimension£¬¾ÍÈÏΪÊÇ 1¡£
UBound º¯Êý
·µ»ØÒ»¸ö Long ÐÍÊý¾Ý£¬ÆäֵΪָ¶¨µÄÊý×éά¿ÉÓõÄ×î´óÉϽ硣
UBound(arrayname[, dimension])
UBound º¯ÊýµÄÓï·¨°üº¬ÏÂÃ沿·Ö£º
arrayname ±ØÐèµÄ¡£Êý×é±äÁ¿µÄÃû³Æ£¬×ñѱê×¼±äÁ¿ÃüÃûÔ¼¶¨¡£
dimension ¿ÉÑ¡µÄ£»Variant (Long)¡£Ö¸¶¨·µ»ØÄÄһάµÄÉϽ硣1 ±íʾµÚһά£¬2 ±íʾµÚ¶þά£¬Èç´ËµÈµÈ¡£Èç¹ûÊ¡ÂÔ dimension£¬¾ÍÈÏΪÊÇ 1¡£
˵Ã÷
UBound º¯ÊýÓë LBound º¯ÊýÒ»ÆðʹÓã¬ÓÃÀ´È·¶¨Ò»¸öÊý×éµÄ´óС¡£LBound ÓÃÀ´È·¶¨Êý×éijһάµÄÉϽ硣
µÚ1.24Àý LCaseºÍUCase º¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃLCase º¯ÊýÀ´½«Ä³×Ö·û´®×ª³ÉÈ«²¿Ð¡Ð´£¬²¢ÔËÓÃUCase º¯ÊýÔÙ½«Ëüת³ÉÈ«²¿´óд¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_024()
Dim Dxzfc$, XXzfc$
DXzfc = "HELLO SHANGHAI EXPO 2010" ' ´óдµÄ×Ö·û´®¡£
XXzfc = Lcase(DXzfc) ' ·µ»Ø "hello shanghai expo 2010"¡£
DXzfc = Ucase(XXzfc) ' ·µ»Ø "HELLO SHANGHAI EXPO 2010"¡£
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_024()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_024¡£
2¡¢Dim Dxzfc$, XXzfc$ £ºÉùÃ÷ Dxzfc, XXzfcΪ×Ö·û´®±äÁ¿¡£
$ÊÇString×Ö·û´®Êý¾ÝÀàÐ͵ÄÀàÐÍÉùÃ÷×Ö·û£¬ÆäËüÓÐÀàÐÍÉùÃ÷×Ö·ûµÄÊý¾ÝÀàÐÍ»¹ÓУº
ÕûÐÍ Integer %
³¤ÕûÐÍ Long &
µ¥¾«¶È¸¡µãÐÍ Single !
Ë«¾«¶È¸¡µãÐÍ Double #
±ä±ÈÕûÐÍ Currency @
3¡¢DXzfc = "HELLO SHANGHAI EXPO 2010" £º°Ñ´óдµÄ×Ö·û´®¸³¸ø×Ö·û´®±äÁ¿DXzfc¡£
4¡¢XXzfc = Lcase(DXzfc) £ºÔËÓÃLCase º¯Êý°Ñ´óд×Ö·û´®È«²¿×ª³ÉСд¸³¸ø×Ö·û´®±äÁ¿XXzfc¡£
5¡¢DXzfc = Ucase(XXzfc) £ºÔËÓÃUCase º¯Êý°ÑСд×Ö·û´®È«²¿×ª³É´óд¸³¸ø×Ö·û´®±äÁ¿DXzfc¡£
LCase º¯Êý
·µ»Øת³ÉСдµÄ String¡£
LCase(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string °üº¬ Null£¬½«·µ»Ø Null¡£
˵Ã÷
Ö»ÓдóдµÄ×Öĸ»áת³ÉСд£»ËùÓÐСд×ÖĸºÍ·Ç×Öĸ×Ö·û±£³Ö²»±ä¡£
UCase º¯Êý
·µ»Ø Variant (String)£¬ÆäÖаüº¬×ª³É´óдµÄ×Ö·û´®¡£
UCase(string)
±ØÒªµÄ string ²ÎÊýΪÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string °üº¬ Null£¬½«·µ»Ø Null¡£
˵Ã÷
Ö»ÓÐСдµÄ×Öĸ»áת³É´óд£»Ô±¾´óд»ò·Ç×Öĸ֮×Ö·û±£³Ö²»±ä¡£
µÚ1.25Àý Left ºÍ Right º¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃLeft º¯ÊýÀ´µÃµ½Ä³×Ö·û´®×î×ó±ßµÄ¼¸¸ö×Ö·û£¬ÔËÓÃRight º¯ÊýÀ´µÃµ½Ä³×Ö·û´®×îÓұߵļ¸¸ö×Ö·û¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_025()
Dim RYzfc$, Myzfc$
RYzfc = "HELLO SHANGHAI EXPO 2010"
Myzfc = Left(RYzfc, 5)
Myzfc = Left(RYzfc, 14)
Myzfc = Right(RYzfc, 4) '
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_025()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_025¡£
2¡¢Dim RYzfc$, Myzfc$ £ºÉùÃ÷ RYzfc, MyzfcΪ×Ö·û´®±äÁ¿¡£
3¡¢RYzfc = "HELLO SHANGHAI EXPO 2010" £º°Ñ×Ö·û´®¸³¸ø×Ö·û´®±äÁ¿RYzfc¡£
4¡¢Myzfc = Left(RYzfc, 5) £ºÔËÓÃLeft º¯Êý´ÓRYzfcÈ¡×î×ó±ßµÄ5¸ö×Ö·û²¢¸³¸øMyzfc±äÁ¿£¬·µ»Ø "HELLO"¡£
5¡¢Myzfc = Left(RYzfc, 14) £º´ÓRYzfcÈ¡×î×ó±ßµÄ14¸ö×Ö·û²¢¸³¸øMyzfc±äÁ¿£¬·µ»Ø "HELLO SHANGHAI"¡£
6¡¢Myzfc = Right(RYzfc, 4) £º´ÓRYzfcÈ¡×îÓұߵÄ4¸ö×Ö·û²¢¸³¸øMyzfc±äÁ¿£¬·µ»Ø "2010"¡£
Left º¯Êý
·µ»Ø Variant (String)£¬ÆäÖаüº¬´Ó×Ö·û´®×ó±ßËãÆðÖ¸¶¨ÊýÁ¿µÄ×Ö·û¡£
Left(string, length)
Left º¯ÊýµÄÓï·¨ÓÐÏÂÃæµÄÃüÃû²ÎÊý£º
string ±ØÒª²ÎÊý¡£×Ö·û´®±í´ïʽÆäÖÐ×î×ó±ßµÄÄÇЩ×Ö·û½«±»·µ»Ø¡£Èç¹û string °üº¬ Null£¬½«·µ»Ø Null¡£
length ±ØÒª²ÎÊý£»Îª Variant (Long)¡£ÊýÖµ±í´ïʽ£¬Ö¸³ö½«·µ»Ø¶àÉÙ¸ö×Ö·û¡£Èç¹ûΪ 0£¬·µ»ØÁ㳤¶È×Ö·û´® ("")¡£Èç¹û´óÓÚ»òµÈÓÚ string µÄ×Ö·ûÊý£¬Ôò·µ»ØÕû¸ö×Ö·û´®¡£
Right º¯Êý
·µ»Ø Variant (String)£¬ÆäÖаüº¬´Ó×Ö·û´®ÓÒ±ßÈ¡³öµÄÖ¸¶¨ÊýÁ¿µÄ×Ö·û¡£
Right(string, length)
Right º¯ÊýµÄÓï·¨¾ßÓÐÏÂÃæµÄÃüÃû²ÎÊý£º
string ±ØÒª²ÎÊý¡£×Ö·û´®±í´ïʽ£¬´ÓÖÐ×îÓұߵÄ×Ö·û½«±»·µ»Ø¡£Èç¹û string °üº¬ Null£¬½«·µ»Ø Null¡£
length ±ØÒª²ÎÊý£»Îª Variant (Long)¡£ÎªÊýÖµ±í´ïʽ£¬Ö¸³öÏë·µ»Ø¶àÉÙ×Ö·û¡£Èç¹ûΪ 0£¬·µ»ØÁ㳤¶È×Ö·û´® ("")¡£Èç¹û´óÓÚ»òµÈÓÚ string µÄ×Ö·ûÊý£¬Ôò·µ»ØÕû¸ö×Ö·û´®¡£
µÚ1.26Àý Len º¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÔËÓÃLen º¯ÊýÀ´µÃµ½Ö¸¶¨×Ö·û´®µÄ³¤¶È¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_026()
Dim Ryzfc$, Mycdu
RYzfc = "HELLO SHANGHAI EXPO 2010"
Mycdu = Len(RYzfc)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_026()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_026¡£
2¡¢Dim RYzfc$, Mycdu £ºÉùÃ÷ RYzfcΪ×Ö·û´®±äÁ¿£¬MycduΪ¿É±äÐͱäÁ¿¡£
3¡¢RYzfc = "HELLO SHANGHAI EXPO 2010" £º°Ñ×Ö·û´®¸³¸ø×Ö·û´®±äÁ¿RYzfc¡£
4¡¢Mycdu = Len(RYzfc) £ºÔËÓÃLen º¯ÊýÀ´µÃµ½×Ö·û´®RYzfcµÄ³¤¶È£¬·µ»Ø 24¡£
Len º¯Êý
·µ»Ø Long£¬ÆäÖаüº¬×Ö·û´®ÄÚ×Ö·ûµÄÊýÄ¿£¬»òÊÇ´æ´¢Ò»±äÁ¿ËùÐèµÄ×Ö½ÚÊý¡£
Len(string | varname)
Len º¯ÊýµÄÓï·¨ÓÐÏÂÃæÕâЩ²ÎÊý£º
string ÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string °üº¬ Null£¬»á·µ»Ø Null¡£
Varname ÈκÎÓÐЧµÄ±äÁ¿Ãû³Æ¡£Èç¹û varname °üº¬ Null£¬»á·µ»Ø Null¡£Èç¹û varname ÊÇ Variant£¬Len »áÊÓÆäΪ String ²¢ÇÒ×ÜÊÇ·µ»ØÆä°üº¬µÄ×Ö·ûÊý¡£
µÚ1.27Àý LTrim¡¢RTrimÓë Trim º¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬·Ö±ðÔËÓÃÕâÈý¸öº¯ÊýÀ´·µ»ØûÓÐÇ°µ¼¿Õ°× (LTrim)¡¢Î²Ëæ¿Õ°× (RTrim) »òÇ°µ¼ºÍβËæ¿Õ°× (Trim)µÄÖ¸¶¨×Ö·û´®¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_027()
Dim ZDzfc$, CJzfc$
ZDzfc = " <-²Ã¼ô×Ö·û´®-> " ' ÉèÖÃ×Ö·û´®³õÖµ¡£
CJzfc = LTrim(ZDzfc) '·µ»Ø "<-²Ã¼ô×Ö·û´®-> "¡£
CJzfc = RTrim(ZDzfc) '·µ»Ø " <-²Ã¼ô×Ö·û´®->"¡£
CJzfc = Trim(ZDzfc) '·µ»Ø "<-²Ã¼ô×Ö·û´®->"¡£
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_027()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_027¡£
2¡¢Dim ZDzfc$, CJzfc$ £ºÉùÃ÷ RYzfc¡¢CJzfcΪ×Ö·û´®±äÁ¿¡£
3¡¢ZDzfc = " <-²Ã¼ô×Ö·û´®-> " £º°ÑÖ¸¶¨µÄ×Ö·û´®¸³¸ø×Ö·û´®±äÁ¿ZDzfc¡£
4¡¢CJzfc = LTrim(ZDzfc) £º ÔËÓÃLTrim º¯Êý²ÃÈ¥×ó±ßµÄ¿Õ°×£¬°Ñ½á¹û¸³¸ø±äÁ¿CJzfc,·µ»Ø "<-²Ã¼ô×Ö·û´®-> "¡£
5¡¢CJzfc = RTrim(ZDzfc) £º ÔËÓÃRTrim º¯Êý²ÃÈ¥ÓұߵĿհף¬°Ñ½á¹û¸³¸ø±äÁ¿CJzfc,·µ»Ø " <-²Ã¼ô×Ö·û´®->"¡£
6¡¢CJzfc = Trim(ZDzfc) £º ÔËÓÃTrim º¯Êý²ÃÈ¥×óÓÒÁ½±ßµÄ¿Õ°×£¬°Ñ½á¹û¸³¸ø±äÁ¿CJzfc,·µ»Ø "<-²Ã¼ô×Ö·û´®->"¡£
LTrim¡¢RTrimÓë Trim º¯Êý
·µ»Ø Variant (String)£¬ÆäÖаüº¬Ö¸¶¨×Ö·û´®µÄ¿½±´£¬Ã»ÓÐÇ°µ¼¿Õ°× (LTrim)¡¢Î²Ëæ¿Õ°× (RTrim) »òÇ°µ¼ºÍβËæ¿Õ°× (Trim)¡£
LTrim(string)
RTrim(string)
Trim(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string °üº¬ Null£¬½«·µ»Ø Null¡£
µÚ1.28Àý Mid º¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÓÃMid º¯ÊýÀ´·µ»Øij¸ö×Ö·û´®Öеļ¸¸ö×Ö·û¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_028()
Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$
Myzfc = "HELLO SHANGHAI EXPO 2010"
qmzfc = Mid(Myzfc, 1, 5) ' ·µ»Ø "HELLO"¡£
mwzfc = Mid(Myzfc, 21, 4) ' ·µ»Ø "2010"¡£
zjzfc = Mid(Myzfc, 7) ' ·µ»Ø "SHANGHAI EXPO 2010"¡£
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_028()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_028¡£
2¡¢Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$ £ºÉùÃ÷±äÁ¿¾ùΪ×Ö·û´®±äÁ¿¡£
3¡¢Myzfc = "HELLO SHANGHAI EXPO 2010" £º°ÑÖ¸¶¨µÄ×Ö·û´®¸³¸ø×Ö·û´®±äÁ¿Myzfc¡£
4¡¢qmzfc = Mid(Myzfc, 1, 5) £º ÔËÓÃMid º¯Êý´Ó×ó±ßµÚÒ»¸ö×Ö·û¿ªÊ¼È¡5¸ö×Ö·û£¬°Ñ½á¹û¸³¸ø±äÁ¿qmzfc,·µ»Ø "HELLO"¡£Èç¹ûº¯ÊýµÚ2¸ö²ÎÊý³¬¹ýµÚÒ»¸ö²ÎÊýµÄ×Ö·ûÊý£¬Mid ½«·µ»ØÁ㳤¶È×Ö·û´® ("")¡£
5¡¢mwzfc = Mid(Myzfc, 21, 4) £º ÔËÓÃMid º¯Êý´Ó×ó±ßµÚ21¸ö×Ö·û¿ªÊ¼È¡4¸ö×Ö·û£¬°Ñ½á¹û¸³¸ø±äÁ¿mwzfc,·µ»Ø "2010"¡£
6¡¢zjzfc = Mid(Myzfc, 7) £º ÔËÓÃMid º¯Êý´Ó×ó±ßµÚ7¸ö×Ö·û¿ªÊ¼È¡Ö±µ½×îºóµÄËùÓеÄ×Ö·û£¬°Ñ½á¹û¸³¸ø±äÁ¿zjzfc,·µ»Ø "SHANGHAI EXPO 2010"¡£ÕâÀﺯÊýµÚ3¸ö²ÎÊýÊ¡ÂÔÁË£¬±íʾ´ÓµÚ2¸ö²ÎÊý¿ªÊ¼Ö±µ½×îºóËùÓеÄ×Ö·û¡£
Mid º¯Êý
·µ»Ø Variant (String)£¬ÆäÖаüº¬×Ö·û´®ÖÐÖ¸¶¨ÊýÁ¿µÄ×Ö·û¡£
Mid(string, start[, length])
Mid º¯ÊýµÄÓï·¨¾ßÓÐÏÂÃæµÄÃüÃû²ÎÊý£º
string ±ØÒª²ÎÊý¡£×Ö·û´®±í´ïʽ£¬´ÓÖзµ»Ø×Ö·û¡£Èç¹û string °üº¬ Null£¬½«·µ»Ø Null¡£
start ±ØÒª²ÎÊý¡£Îª Long¡£string Öб»È¡³ö²¿·ÖµÄ×Ö·ûλÖá£Èç¹û start ³¬¹ý string µÄ×Ö·ûÊý£¬Mid ·µ»ØÁ㳤¶È×Ö·û´® ("")¡£
length ¿ÉÑ¡²ÎÊý£»Îª Variant (Long)¡£Òª·µ»ØµÄ×Ö·ûÊý¡£Èç¹ûÊ¡ÂÔ»ò length ³¬¹ýÎı¾µÄ×Ö·ûÊý£¨°üÀ¨ start ´¦µÄ×Ö·û£©£¬½«·µ»Ø×Ö·û´®ÖÐ´Ó start µ½Î²¶ËµÄËùÓÐ×Ö·û¡£
µÚ1.29Àý Month ºÍ MonthNameº¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÓÃMonth º¯ÊýÀ´·µ»Øij¸öÈÕÆÚµÄÔ·ÝÊý£¬ÓÃMonthNameº¯Êý·µ»ØÕâ¸öÔ·ݵÄ×Ö·û´®¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_029()
Dim rq, Yuef
rq = #2008-8-12#
Yuef = Month(rq)
MsgBox MonthName(yuef)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_029()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_029¡£
2¡¢Dim rq, Yuef £ºÉùÃ÷±äÁ¿¾ùΪ¿É±äÐͱäÁ¿¡£
3¡¢rq = #2008-8-12# £º°ÑÖ¸¶¨µÄÈÕÆÚ¸³¸ø±äÁ¿rq¡£
4¡¢Yuef = Month(rq) £º ÔËÓÃMonth º¯ÊýµÃµ½Ö¸¶¨ÈÕÆÚµÄÔ·ݣ¬°Ñ½á¹û¸³¸ø±äÁ¿Yuef,·µ»ØÔ·ݵÄֵΪ 8¡£
5¡¢MsgBox MonthName(yuef) £ºÓÃÏûÏ¢¿ò·µ»ØMonthNameº¯ÊýµÃµ½µÄÕâ¸öÔ·ݵÄ×Ö·û´®¡°°ËÔ¡±¡£
Month º¯Êý
·µ»ØÒ»¸ö Variant (Integer)£¬ÆäֵΪ 1 µ½ 12 Ö®¼äµÄÕûÊý£¬±íʾһÄêÖеÄijÔ¡£
Month(date)
±ØÒªµÄ date ²ÎÊý£¬¿ÉÒÔÊÇÈκÎÄܹ»±íʾÈÕÆÚµÄ Variant¡¢ÊýÖµ±í´ïʽ¡¢×Ö·û´®±í´ïʽ»òËüÃǵÄ×éºÏ¡£Èç¹û date °üº¬ Null£¬Ôò·µ»Ø Null¡£
MonthNameº¯Êý
·µ»ØÒ»¸ö±íʾָ¶¨Ô·ݵÄ×Ö·û´®¡£
MonthName(month[, abbreviate])
MonthNameº¯ÊýÓï·¨ÓÐÈçϼ¸²¿·Ö£º
month ±ØÐèµÄ¡£Ô·ݵÄÊýÖµ±íʾ¡£ÀýÈçÒ»ÔÂÊÇ1£¬¶þÔÂÊÇ2£¬µÈµÈ¡£
abbreviate ¿ÉÑ¡µÄ¡£BooleanÖµ£¬±íʾÔ·ÝÃûÊÇ·ñËõд¡£Èç¹ûºöÂÔ£¬È±Ê¡ÖµÎªFalse£¬±íÃ÷Ô·ÝÃû²»Äܱ»Ëõд¡£
µÚ1.30Àý MsgBox º¯Êý
Ò»¡¢ÌâÄ¿£º
ÒªÇó±àдһ¶Î´úÂ룬ÓÃMsgBox º¯ÊýÀ´ÏÔʾһ¸ö¾ßÓС°ÊÇ¡±¼°¡°·ñ¡±°´Å¥µÄ¶Ô»°¿ò£¬²¢¸ù¾ÝÓû§¶ÔÓÚÏûÏ¢¿òµÄ²»Í¬Ñ¡Ôñ½øÐÐÏà¹ØµÄ²Ù×÷¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_030()
Dim Msg, An, Bt, Yhhy
Msg = "ÄãÒª¼ÌÐøÂð ?"
An = vbYesNo + vbCritical + vbDefaultButton1
Bt = "MsgBox ʾÀý" ' ¶¨Òå±êÌâ¡£
Yhhy = MsgBox(Msg, An, Bt)
If Yhhy = vbYes Then ' Óû§°´Ï¡°ÊÇ¡±¡£
MsgBox "Ä㰴ϵÄÊÇ¡°ÊÇ¡±°´Å¥¡£" ' Íê³Éij²Ù×÷¡£
Else ' Óû§°´Ï¡°·ñ¡±¡£
MsgBox "Ä㰴ϵÄÊÇ¡°·ñ¡±°´Å¥¡£" ' Íê³Éij²Ù×÷¡£
End If
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_030()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_030¡£
2¡¢Dim Msg, An, Bt, Yhhy £ºÉùÃ÷±äÁ¿¾ùΪ¿É±äÐͱäÁ¿¡£
3¡¢Msg = "ÄãÒª¼ÌÐøÂð ?" £º°ÑÖ¸¶¨µÄÐÅÏ¢¸³¸ø±äÁ¿Msg¡£
4¡¢An = vbYesNo + vbCritical + vbDefaultButton1 £º°ÑÖ¸¶¨µÄ°´Å¥¸³¸ø±äÁ¿An¡£Õâ¾äÒ²¿ÉдΪAn =4+16£¬µÚ3¸ö²ÎÊýÊÇĬÈϵģ¬Îª0£¬¿ÉÊ¡ÂÔ¡£
5¡¢Bt = "MsgBox ʾÀý" £º°ÑÏûÏ¢¿òµÄ±êÌ⸳¸ø±äÁ¿Bt¡£
6¡¢Yhhy = MsgBox(Msg, An, Bt) £º°ÑMsgBoxº¯ÊýµÄ·µ»ØÖµ£¨¼´Óû§°´ÁËÄĸö°´Å¥£©¸³¸ø±äÁ¿Yhhy¡£
7¡¢If Yhhy = vbYes Then £º Èç¹ûÓû§°´Ï¡°ÊÇ¡±£¬ÄÇôִÐÐÏÂÃæµÄÓï¾ä£»
8¡¢MsgBox "Ä㰴ϵÄÊÇ¡°ÊÇ¡±°´Å¥¡£" ÓÃMsgBoxº¯Êý·µ»ØÐÅÏ¢£¬ÒòΪ²»ÐèÒªº¯ÊýµÄ·µ»ØÖµ£¬ËùÒÔ¿ÉÒÔÈ¥µôº¯Êý²ÎÊýµÄÀ¨ºÅ¡£
MsgBox º¯Êý
ÔÚ¶Ô»°¿òÖÐÏÔʾÏûÏ¢£¬µÈ´ýÓû§µ¥»÷°´Å¥£¬²¢·µ»ØÒ»¸ö Integer £¬ËµÃ÷Óû§µ¥»÷ÁËÄÄÒ»¸ö°´Å¥¡£
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
MsgBox º¯ÊýµÄÓï·¨¾ßÓÐÒÔϼ¸¸öÃüÃû²ÎÊý£º
Prompt ±ØÐèµÄ¡£×Ö·û´®±í´ïʽ£¬×÷ΪÏÔʾÔÚ¶Ô»°¿òÖеÄÏûÏ¢¡£prompt µÄ×î´ó³¤¶È´óԼΪ 1024 ¸ö×Ö·û£¬ÓÉËùÓÃ×Ö·ûµÄ¿í¶È¾ö¶¨¡£Èç¹û prompt µÄÄÚÈݳ¬¹ýÒ»ÐУ¬Ôò¿ÉÒÔÔÚÿһÐÐÖ®¼äÓûسµ·û (Chr(13))¡¢»»Ðзû (Chr(10)) »òÊǻسµÓë»»ÐзûµÄ×éºÏ (Chr(13) & Chr(10)) ½«¸÷Ðзָô¿ªÀ´¡£
Buttons ¿ÉÑ¡µÄ¡£ÊýÖµ±í´ïʽÊÇÖµµÄ×ܺͣ¬Ö¸¶¨ÏÔʾ°´Å¥µÄÊýÄ¿¼°ÐÎʽ£¬Ê¹ÓõÄͼ±êÑùʽ£¬È±Ê¡°´Å¥ÊÇʲôÒÔ¼°ÏûÏ¢¿òµÄÇ¿ÖÆ»ØÓ¦µÈ¡£Èç¹ûÊ¡ÂÔ£¬Ôò buttons µÄȱʡֵΪ 0¡£
Title ¿ÉÑ¡µÄ¡£ÔÚ¶Ô»°¿ò±êÌâÀ¸ÖÐÏÔʾµÄ×Ö·û´®±í´ïʽ¡£Èç¹ûÊ¡ÂÔ title£¬Ôò½«Ó¦ÓóÌÐòÃû·ÅÔÚ±êÌâÀ¸ÖС£
Helpfile¿ÉÑ¡µÄ¡£×Ö·û´®±í´ïʽ£¬Ê¶±ðÓÃÀ´Ïò¶Ô»°¿òÌṩÉÏÏÂÎÄÏà¹Ø°ïÖúµÄ°ïÖúÎļþ¡£Èç¹ûÌṩÁË helpfile£¬ÔòÒ²±ØÐëÌṩ context¡£
Context ¿ÉÑ¡µÄ¡£ÊýÖµ±í´ïʽ£¬ÓÉ°ïÖúÎļþµÄ×÷ÕßÖ¸¶¨¸øÊʵ±µÄ°ïÖúÖ÷ÌâµÄ°ïÖúÉÏÏÂÎıàºÅ¡£Èç¹ûÌṩÁË context£¬ÔòÒ²±ØÐëÌṩ helpfile¡£
ÉèÖÃÖµ
buttons ²ÎÊýÓÐÏÂÁÐÉèÖÃÖµ£º
³£Êý Öµ ÃèÊö
vbOKOnly 0 Ö»ÏÔʾ OK °´Å¥¡£
VbOKCancel 1 ÏÔʾ OK ¼° Cancel °´Å¥¡£
VbAbortRetryIgnore 2 ÏÔʾ Abort¡¢Retry ¼° Ignore °´Å¥¡£
VbYesNoCancel 3 ÏÔʾ Yes¡¢No ¼° Cancel °´Å¥¡£
VbYesNo 4 ÏÔʾ Yes ¼° No °´Å¥¡£
VbRetryCancel 5 ÏÔʾ Retry ¼° Cancel °´Å¥¡£
VbCritical 16 ÏÔʾ Critical Message ͼ±ê¡£
VbQuestion 32 ÏÔʾ Warning Query ͼ±ê¡£
VbExclamation 48 ÏÔʾ Warning Message ͼ±ê¡£
VbInformation 64 ÏÔʾ Information Message ͼ±ê¡£
vbDefaultButton1 0 µÚÒ»¸ö°´Å¥ÊÇȱʡֵ¡£
vbDefaultButton2 256 µÚ¶þ¸ö°´Å¥ÊÇȱʡֵ¡£
vbDefaultButton3 512 µÚÈý¸ö°´Å¥ÊÇȱʡֵ¡£
vbDefaultButton4 768 µÚËĸö°´Å¥ÊÇȱʡֵ¡£
vbApplicationModal 0 Ó¦ÓóÌÐòÇ¿ÖÆ·µ»Ø£»Ó¦ÓóÌÐòÒ»Ö±±»¹ÒÆðÖ±µ½Óû§¶ÔÏûÏ¢¿ò×÷³öÏìÓ¦²Å¼ÌÐø¹¤×÷¡£
vbSystemModal 4096 ϵͳǿÖÆ·µ»Ø£»È«²¿Ó¦ÓóÌÐò¶¼±»¹ÒÆð£¬Ö±µ½Óû§¶ÔÏûÏ¢¿ò×÷³öÏìÓ¦²Å¼ÌÐø¹¤×÷¡£
vbMsgBoxHelpButton 16384 ½«Help°´Å¥Ìí¼Óµ½ÏûÏ¢¿ò
VbMsgBoxSetForeground 65536 Ö¸¶¨ÏûÏ¢¿ò´°¿Ú×÷Ϊǰ¾°´°¿Ú
vbMsgBoxRight 524288 Îı¾ÎªÓÒ¶ÔÆë
vbMsgBoxRtlReading 1048576 Ö¸¶¨Îı¾Ó¦ÎªÔÚÏ£²®À´ºÍ°¢À²®ÓïϵͳÖеĴÓÓÒµ½×óÏÔʾ
µÚÒ»×éÖµ (0¨C5) ÃèÊöÁ˶Ի°¿òÖÐÏÔʾµÄ°´Å¥µÄÀàÐÍÓëÊýÄ¿£»
µÚ¶þ×éÖµ (16, 32, 48, 64) ÃèÊöÁËͼ±êµÄÑùʽ£»
µÚÈý×éÖµ (0, 256, 512) ˵Ã÷ÄÄÒ»¸ö°´Å¥ÊÇȱʡֵ£»
µÚËÄ×éÖµ (0, 4096) Ôò¾ö¶¨ÏûÏ¢¿òµÄÇ¿ÖÆ·µ»ØÐÔ¡£½«ÕâЩÊý×ÖÏà¼ÓÒÔÉú³É buttons ²ÎÊýÖµµÄʱºò£¬Ö»ÄÜÓÉÿ×éֵȡÓÃÒ»¸öÊý×Ö¡£
µÚÎå×éÖµ (16384, 65536£¬524288£¬1048576)ÊǸ½¼ÓÑ¡Ïî¡£
×¢Òâ ÕâЩ³£Êý¶¼ÊÇ Visual Basic for Applications (VBA) Ö¸¶¨µÄ¡£½á¹û£¬¿ÉÒÔÔÚ³ÌÐò´úÂëÖе½´¦Ê¹ÓÃÕâЩ³£ÊýÃû³Æ£¬¶ø²»±ØʹÓÃʵ¼ÊÊýÖµ¡£
·µ»ØÖµ
³£Êý Öµ ÃèÊö
vbOK 1 È·¶¨
vbCancel 2 È¡Ïû
vbAbort 3 ·ÅÆú
vbRetry 4 ÖØÊÔ
vbIgnore 5 ºöÂÔ
vbYes 6 ÊÇ
vbNo 7 ·ñ
˵Ã÷
ÔÚÌṩÁË helpfile Óë context µÄʱºò£¬Óû§¿ÉÒÔ°´ F1(Windows) or HELP (Macintosh) À´²é¿´Óë context ÏàÓ¦µÄ°ïÖúÖ÷Ìâ¡£Ïñ Microsoft Excel ÕâÑùһЩÖ÷Ó¦ÓóÌÐòÒ²»áÔÚ¶Ô»°¿òÖÐ×Ô¶¯Ìí¼ÓÒ»¸ö °ïÖú °´Å¥¡£
Èç¹û¶Ô»°¿òÏÔʾ È¡Ïû °´Å¥£¬Ôò°´Ï ESC ¼üÓëµ¥»÷ È¡Ïû °´Å¥µÄЧ¹ûÏàͬ¡£Èç¹û¶Ô»°¿òÖÐÓÐ Help °´Å¥£¬Ôò¶Ô»°¿òÖÐÌṩÓÐÉÏÏÂÎÄÏà¹ØµÄ°ïÖú¡£µ«ÊÇ£¬Ö±µ½ÆäËü°´Å¥ÖÐÓÐÒ»¸ö±»µ¥»÷֮ǰ£¬¶¼²»»á·µ»ØÈκÎÖµ¡£
×¢Òâ Èç¹û»¹ÒªÖ¸¶¨µÚÒ»¸öÃüÃû²ÎÊýÒÔÍâµÄ²ÎÊý£¬Ôò±ØÐëÔÚ±í´ïʽÖÐʹÓà MsgBox¡£ÎªÁËÊ¡ÂÔijЩλÖòÎÊý£¬±ØÐë¼ÓÈëÏàÓ¦µÄ¶ººÅ·Ö½ç·û¡£
µÚ1.31Àý Nowº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ʹÓà Now º¯Êý·µ»Øϵͳµ±Ç°µÄÈÕÆÚÓëʱ¼ä¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_031()
Dim jt
jt = Now
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_031()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_031¡£
2¡¢Dim jt £ºÉùÃ÷±äÁ¿jtΪ¿É±äÐͱäÁ¿¡£
3¡¢jt = Now £º°Ñϵͳµ±Ç°µÄÈÕÆÚÓëʱ¼ä¸³¸ø±äÁ¿jt¡£
×¢Ò⣺Nowº¯ÊýÀï°üº¬Ê±¼ä£¬Èç¹ûÖ»ÐèÒªÈÕÆÚ£¬¿ÉÓÃDateº¯Êý¡£Dateº¯ÊýÇë¼ûµÚ1_05Àý¡£
Now º¯Êý
·µ»ØÒ»¸ö Variant (Date)£¬¸ù¾Ý¼ÆËã»úϵͳÉèÖõÄÈÕÆÚºÍʱ¼äÀ´Ö¸¶¨ÈÕÆÚºÍʱ¼ä¡£
µÚ1.32Àý RGBº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ʹÓà RGB º¯Êý·µ»ØA1µ¥Ôª¸ñµÄµ×É«ºÍ×ÖÌåµÄ RGB É«²ÊÖµ¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_032()
Dim hs, I, RGBValue
hs = RGB(255, 255, 0)
I = 35
RGBValue = RGB(I, 64 + I, 128 + I)
Cells(5, 1).Interior.Color = RGBValue
Cells(5, 1).Font.Color = hs
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_032()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_032¡£
2¡¢Dim hs, I, RGBValue £ºÉùÃ÷±äÁ¿¾ùΪ¿É±äÐͱäÁ¿¡£
3¡¢hs = RGB(255, 255, 0) £º°ÑºìÂÌÀ¶É«²Ê¿Õ¼äµÄÉ«²ÊÖµ¸³¸ø±äÁ¿hs£¨»ÆÉ«£©¡£
4¡¢I = 35 £º°Ñ35¸³¸ø±äÁ¿I¡£
5¡¢RGBValue = RGB(I, 64 + I, 128 + I) £º°Ñ²»±äÁ¿I×÷ΪƫÒÆÁ¿¼ÆËãµÃµ½µÄºìÂÌÀ¶É«²Ê¿Õ¼äÖеÄRGB(35, 99, 163)ÑÕÉ«¸³¸ø±äÁ¿RGBValue¡£
6¡¢Cells(5, 1).Interior.Color = RGBValue £º°ÑÑÕÉ«¸³¸øµ¥Ôª¸ñA5µÄµ×É«¡£
7¡¢Cells(5, 1).Font.Color = hs £º°Ñ»ÆÉ«¸³¸øµ¥Ôª¸ñA5µÄ×ÖÌå¡£
RGBº¯Êý
ÓÃÀ´±íʾһ¸öRGBÑÕÉ«Öµ¡£
RGB(red, green, blue)
RGBº¯ÊýµÄ²ÎÊý
red ±ØÒªµÄ²ÎÊý£¬Variant (Integer)£¬ÊýÖµ·¶Î§´Ó0¡«255£¬±íʾÑÕÉ«µÄºìÉ«³É·Ö
green ±ØÒªµÄ²ÎÊý£¬Variant (Integer)£¬ÊýÖµ·¶Î§´Ó0¡«255£¬±íʾÑÕÉ«µÄÂÌÉ«³É·Ö
Blue ±ØÒªµÄ²ÎÊý£¬Variant (Integer)£¬ÊýÖµ·¶Î§´Ó0¡«255£¬±íʾÑÕÉ«µÄÀ¶É«³É·Ö
×¢Ò⣺ʹÓÃRGBº¯ÊýÉèÖÃÑÕÉ«ÊÜϵͳÏÞÖÆ£¬Èç¹ûϵͳֻÄÜÏÔʾ16É«£¬ÄÇôRGBº¯Êý¾Í²»ÄÜÉèÖóö¸ü¶àµÄÑÕÉ«¡£
µÚ1.33Àý Rndº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ʹÓà Rnd º¯ÊýËæ»úÉú³ÉÒ»¸ö 1 µ½ 100 µÄËæ»úÕûÊý¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_033()
Dim x%
For x = 1 To 10
Cells(x, 2) = Int((100 * Rnd) + 1) ' Éú³É 1 µ½ 100 Ö®¼äµÄËæ»úÊýÖµ¡£
Next x
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_033()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_033¡£
2¡¢Dim x% £ºÉùÃ÷±äÁ¿xΪÕûÐͱäÁ¿¡£
3¡¢For x = 1 To 10 £ºx´Ó1 µ½10½øÐÐÑ»·¡£
4¡¢Cells(x, 2) = Int((100 * Rnd) + 1) £º°ÑʹÓÃRnd º¯Êý²úÉúµÄËæ»úÊý³Ë100¼Ó1ÒÔºóÔÙÈ¡ÕûµÃµ½µÄÊýÖµÒÀ´Î¸³¸øBÁе¥Ôª¸ñ¡£
Rnd º¯Êý
·µ»ØÒ»¸ö°üº¬Ëæ»úÊýÖµµÄ Single¡£
Rnd[(number)]
¿ÉÑ¡µÄ number ²ÎÊýÊÇ Single »òÈκÎÓÐЧµÄÊýÖµ±í´ïʽ¡£
·µ»ØÖµ
Èç¹û number µÄÖµÊÇ Rnd Éú³É
СÓÚ 0 ÿ´Î¶¼Ê¹Óà number ×÷ΪËæ»úÊýÖÖ×ӵõ½µÄÏàͬ½á¹û¡£
´óÓÚ 0 ÐòÁÐÖеÄÏÂÒ»¸öËæ»úÊý¡£
µÈÓÚ 0 ×î½üÉú³ÉµÄÊý¡£
Ê¡ÂÔ ÐòÁÐÖеÄÏÂÒ»¸öËæ»úÊý¡£
˵Ã÷
Rnd º¯Êý·µ»ØСÓÚ 1 µ«´óÓÚ»òµÈÓÚ 0 µÄÖµ¡£
number µÄÖµ¾ö¶¨ÁË Rnd Éú³ÉËæ»úÊýµÄ·½Ê½¡£
¶Ô×î³õ¸ø¶¨µÄÖÖ×Ó¶¼»áÉú³ÉÏàͬµÄÊýÁУ¬ÒòΪÿһ´Îµ÷Óà Rnd º¯Êý¶¼ÓÃÊýÁÐÖеÄÇ°Ò»¸öÊý×÷ΪÏÂÒ»¸öÊýµÄÖÖ×Ó¡£
ÔÚµ÷Óà Rnd ֮ǰ£¬ÏÈʹÓÃÎÞ²ÎÊýµÄ Randomize Óï¾ä³õʼ»¯Ëæ»úÊýÉú³ÉÆ÷£¬¸ÃÉú³ÉÆ÷¾ßÓиù¾Ýϵͳ¼ÆʱÆ÷µÃµ½µÄÖÖ×Ó¡£
ΪÁËÉú³Éij¸ö·¶Î§ÄÚµÄËæ»úÕûÊý£¬¿ÉʹÓÃÒÔϹ«Ê½£º
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
ÕâÀupperbound ÊÇËæ»úÊý·¶Î§µÄÉÏÏÞ£¬¶ø lowerbound ÔòÊÇËæ»úÊý·¶Î§µÄÏÂÏÞ¡£
×¢Òâ ÈôÏëµÃµ½Öظ´µÄËæ»úÊýÐòÁУ¬ÔÚʹÓþßÓÐÊýÖµ²ÎÊýµÄ Randomize ֮ǰֱ½Óµ÷ÓþßÓиº²ÎÊýÖµµÄ Rnd¡£Ê¹ÓþßÓÐͬÑù number ÖµµÄ Randomize ÊDz»»áµÃµ½Öظ´µÄËæ»úÊýÐòÁеġ£
µÚ1.34Àý Roundº¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ʹÓà Round º¯Êý·µ»ØÒ»¸öÊýÖµ£¬¸ÃÊýÖµÊÇ°´ÕÕÖ¸¶¨µÄСÊýλÊý½øÐÐËÄÉáÎåÈëÔËËãµÄ½á¹û¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_034()
Dim Zdz
Zdz = Round(5.235, 2) '·µ»Ø5.24
Zdz = Round(5.225, 2) '·µ»Ø5.22
Zdz = Round(2.5) '·µ»Ø2
Zdz = Round(2.6) '·µ»Ø3
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_034()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_034¡£
2¡¢Dim Zdz! £ºÉùÃ÷±äÁ¿ZdzΪµ¥¾«¶È¸¡µãÐͱäÁ¿¡£!Êǵ¥¾«¶È¸¡µãÐ͵ÄÀàÐÍÉùÃ÷×Ö·û£¬ÆäËüÀàÐÍÉùÃ÷×Ö·ûÇë¼ûµÚ1_024Àý¡£
3¡¢Zdz = Round(5.235, 2) £º°ÑÖ¸¶¨ÊýÖµ5.235ÔËÓÃRound º¯Êý°´ÕÕСÊýµãºóÃæ2λ½øÐÐËÄÉáÎåÈëÔËËãµÄ½á¹û¸³¸ø±äÁ¿Zdz£¬·µ»Ø5.24¡£
4¡¢Zdz = Round(5.225, 2) £º°ÑÖ¸¶¨ÊýÖµ5.225ÔËÓÃRound º¯Êý°´ÕÕСÊýµãºóÃæ2λ½øÐÐËÄÉáÎåÈëÔËËãµÄ½á¹û¸³¸ø±äÁ¿Zdz£¬·µ»Ø5.22¡£Çë´ó¼Ò×¢Ò⣺ÕâÀïµÄ´ð°¸²»×¼È·£¡ÓëÎÒÃÇÔËÓù¤×÷±íRoundº¯ÊýÔËËãµÄ½á¹û²»Ò»Ñù¡£ÆäÔÒòÊÇVBAµÄRound º¯Êý²ÉÓõÄÊÇBankerÉáÈë·¨£¬¶ø²»ÊÇËãÊõÉáÈë¡£°´ÕÕBankerÉáÈë¹æÔò£¬Èç¹û±£ÁôλÊýµÄÏÂһλÊý×ÖÕýºÃÊÇ5ÇÒÆäºóûÓÐÆäËüµÄÓÐЧÊý×Ö£¬ÔòÒÀ±£Áôλ×îºóһλ¡°Å¼ÉáÆæÈ롱µÄ·½·¨½øÐд¦Àí¡£
ËùÒÔÓ¦¸ÃÓù¤×÷±íº¯ÊýÀ´´úÌæÕâ¸öVBAº¯Êý£º¼´ÓÃApplication.Round(2.5)À´´úÌæRound(2.5)¡£
Roundº¯Êý
·µ»ØÒ»¸öÊýÖµ£¬¸ÃÊýÖµÊÇ°´ÕÕÖ¸¶¨µÄСÊýλÊý½øÐÐËÄÉáÎåÈëÔËËãµÄ½á¹û¡£
Round(expression [,numdecimalplaces])
Roundº¯ÊýÓÐÈçϵIJÎÊý£º
expression ±ØÐèµÄ¡£Òª½øÐÐËÄÉáÎåÈëÔËËãµÄÊýÖµ±í´ïʽ¡£
numdecimalplaces ¿ÉÑ¡µÄ¡£Êý×ÖÖµ£¬±íʾ½øÐÐËÄÉáÎåÈëÔËËãʱ£¬Ð¡ÊýµãÓÒ±ßÓ¦±£ÁôµÄλÊý¡£Èç¹ûºöÂÔ£¬ÔòRoundº¯Êý·µ»ØÕûÊý¡£
µÚ1.35Àý Split º¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓà Split º¯Êý·µ»ØÒ»¸öһάÊý×é¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_035()
Dim x%,aa,Arr
For x=1 to 5
aa=aa & x & ¡°,¡±
Next x
aa = Left(aa, Len(aa) - 1)
Arr=Split(aa,¡±,¡±)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_035()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_035¡£
2¡¢Dim x% ,aa,Arr £ºÉùÃ÷±äÁ¿xΪÕûÐͱäÁ¿£¬ÆäÓàÁ½¸öΪ¿É±äÐͱäÁ¿¡£
3¡¢For x = 1 To 5 £ºx´Ó1 µ½5½øÐÐÑ»·¡£
4¡¢aa=aa & x & ¡°,¡± £º¸ù¾ÝÑ»·ÒÀ´Î°Ñ±äÁ¿xµÄÖµºÍ¶ººÅ×é³ÉµÄ×Ö·û´®¸³¸ø±äÁ¿aa¡£·µ»Ø¡±1,2,3,4,5,¡±
5¡¢aa = Left(aa, Len(aa) - 1) £ºÒòΪ×Ö·û´®aa×îºó¶àÁËÒ»¸ö¶ººÅ£¬ËùÒÔÔËÓÃLeft ºÍLenº¯ÊýÈ¥³ýÕâ¸ö¶ººÅÒÔºóÔÙ¸³¸ø±äÁ¿aa¡£·µ»Ø¡±1,2,3,4,5¡±
6¡¢Arr=Split(aa,¡±,¡±) £ºÔËÓà Split º¯Êý·µ»ØÒ»¸öһάÊý×鸳¸ø±äÁ¿Arr(0 to 4)¡£×¢Ò⣺ÕâÀïÊÇÒÔ0ΪϱêµÄһάÊý×é¡£
Splitº¯Êý
·µ»ØÒ»¸öϱê´ÓÁ㿪ʼµÄһάÊý×飬Ëü°üº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Split(expression[, delimiter[, limit[, compare]]])
Splitº¯ÊýÓï·¨ÓÐÈçÏÂÃüÃû²ÎÊý£º
expression ±ØÐèµÄ¡£°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·ûµÄ×Ö·û´®±í´ïʽ ¡£Èç¹ûexpressionÊÇÒ»¸ö³¤¶ÈΪÁãµÄ×Ö·û´®("")£¬SplitÔò·µ»ØÒ»¸ö¿ÕÊý×飬¼´Ã»ÓÐÔªËغÍÊý¾ÝµÄÊý×é¡£
delimiter ¿ÉÑ¡µÄ¡£ÓÃÓÚ±êʶ×Ó×Ö·û´®±ß½çµÄ×Ö·û´®×Ö·û¡£Èç¹ûºöÂÔ£¬ÔòʹÓÿոñ×Ö·û(" ")×÷Ϊ·Ö¸ô·û¡£Èç¹ûdelimiterÊÇÒ»¸ö³¤¶ÈΪÁãµÄ×Ö·û´®£¬Ôò·µ»ØµÄÊý×é½ö°üº¬Ò»¸öÔªËØ£¬¼´ÍêÕûµÄ expression×Ö·û´®¡£
limit ¿ÉÑ¡µÄ¡£Òª·µ»ØµÄ×Ó×Ö·û´®Êý£¬¨C1±íʾ·µ»ØËùÓеÄ×Ó×Ö·û´®¡£
compare ¿ÉÑ¡µÄ¡£Êý×ÖÖµ£¬±íʾÅбð×Ó×Ö·û´®Ê±Ê¹ÓõıȽϷ½Ê½¡£¹ØÓÚÆäÖµ£¬Çë²ÎÔÄ¡°ÉèÖÃÖµ¡±²¿·Ö¡£
ÉèÖÃÖµ
compare²ÎÊýµÄÉèÖÃÖµÈçÏ£º
³£Êý Öµ ÃèÊö
vbUseCompareOption ¨C1 ÓÃOption CompareÓï¾äÖеÄÉèÖÃÖµÖ´ÐбȽϡ£
vbBinaryCompare 0 Ö´Ðжþ½øÖƱȽϡ£
vbTextCompare 1 Ö´ÐÐÎÄ×ֱȽϡ£
vbDatabaseCompare 2 ½öÓÃÓÚMicrosoft Access¡£»ùÓÚÄúµÄÊý¾Ý¿âµÄÐÅÏ¢Ö´ÐбȽϡ£
µÚ1.36Àý Sqr º¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓà Sqr º¯Êý·µ»ØÖ¸¶¨²ÎÊýµÄƽ·½¸ù¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_036()
Dim Gou&, Gu&, Xian&, Pfg
Gou = 3
Gu = 4
Xian = Sqr(Gou * Gou + Gu * Gu)
Pfg = Sqr(-4)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_036()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_036¡£
2¡¢Dim Gou&, Gu&, Xian&, Pfg £ºÉùÃ÷±äÁ¿Gou¡¢Gu¡¢XianΪ˫¾«¶È¸¡µãÐͱäÁ¿£¬& Ë«¾«¶È¸¡µãÐͱäÁ¿DoubleµÄÀàÐÍÉùÃ÷×Ö·û£¬ÆäËüÓÐÀàÐÍÉùÃ÷×Ö·ûµÄÊý¾ÝÀàÐÍÇë¼ûµÚ1.24Àý£ºPfgΪ¿É±äÐͱäÁ¿¡£
3¡¢Gou = 3 £º°Ñ3¸³¸ø±äÁ¿Gou¡£
4¡¢Gu = 4 £º°Ñ4¸³¸ø±äÁ¿Gu¡£
5¡¢Xian = Sqr(Gou * Gou + Gu * Gu) £ºÔËÓÃSqrº¯Êý¼ÆËã³ö25µÄƽ·½¸ù5£¬¸³¸ø±äÁ¿Xian£»
6¡¢Pfg = Sqr(-4) £ºÉú³ÉÒ»¸öÔËÐÐʱ´íÎ󣨸ºÊý²»ÄÜÓô˺¯Êý¿ªÆ½·½¸ù£©¡£
×¢Ò⹤×÷±íº¯ÊýÖÐÒ²ÓÐÏàͬµÄº¯Êý£¬µ«ÊÇÃû×ÖÊÇSQRT¡£
Sqr º¯Êý
·µ»ØÒ»¸ö Double£¬Ö¸¶¨²ÎÊýµÄƽ·½¸ù¡£
Sqr(number)
±ØÒªµÄ number ²ÎÊý number ÊÇ Double »òÈκÎÓÐЧµÄ´óÓÚ»òµÈÓÚ 0 µÄÊýÖµ±í´ïʽ¡£
µÚ1.37Àý Str ºÍCStr º¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓà Str º¯Êý»òÕßCStr º¯ÊýÀ´½«Ò»¸öÊý×Öת³É×Ö·û´®¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_037()
Dim Zfc$
Zfc = Str(459)
MsgBox Len(Zfc)
Zfc = Str(-459.65)
Zfc = CStr(459)
MsgBox Len(Zfc)
Zfc = CStr(-459.65)
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_037()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_037¡£
2¡¢Dim Zfc$ £ºÉùÃ÷±äÁ¿Zfc Ϊ×Ö·û´®±äÁ¿£¬$Ϊ×Ö·û´®±äÁ¿StringµÄÀàÐÍÉùÃ÷×Ö·û£¬ÆäËüÓÐÀàÐÍÉùÃ÷×Ö·ûµÄÊý¾ÝÀàÐÍÇë¼ûµÚ1.24Àý¡£
3¡¢Zfc = Str(459) £ºÓÃStr º¯Êý½«Êý×Öת»»³É×Ö·û´®£¬·µ»Ø¡± 459¡±£»×¢ÒâÊý×ÖÇ°Ãæ»á±£ÁôÒ»¸ö¿ÕλÀ´±íʾÕý¸º¡£
4¡¢MsgBox Len(Zfc) £ºÓÃÏûÏ¢¿òÏÔʾ±äÁ¿ZfcµÄ³¤¶È£¬·µ»Ø4£»ËµÃ÷Êý×ÖÇ°ÃæÓÐÒ»¸ö¿Õλ¡£
5¡¢Zfc = Str(-459.65) £ºÓÃStr º¯Êý½«Êý×Öת»»³É×Ö·û´®£¬·µ»Ø¡±- 459.65¡±£»ÒòΪÊǸºÊýÓÐÒ»¸ö¸ººÅ£¬ËùÒÔûÓÐÁíÍâµÄ¿ÕλÁË¡£Èç¹ûÓÃÏûÏ¢¿òÏÔʾ±äÁ¿ZfcµÄ³¤¶È£¬·µ»Ø7¡£
6¡¢Zfc = CStr(459) £ºÓÃCStr º¯Êý½«Êý×Öת»»³É×Ö·û´®£¬·µ»Ø¡±459¡±£»×¢ÒâÊý×ÖÇ°ÃæûÓÐÒ»¸ö¿Õλ¡£
7¡¢MsgBox Len(Zfc) £ºÓÃÏûÏ¢¿òÏÔʾ±äÁ¿ZfcµÄ³¤¶È£¬·µ»Ø3£»ËµÃ÷Êý×ÖÇ°ÃæûÓпÕλ¡£
Str º¯Êý
·µ»Ø´ú±íÒ»ÊýÖµµÄ×Ö·û´® Variant (String)¡£
Str(number)
±ØÒªµÄ number ²ÎÊýΪһ Long£¬ÆäÖпɰüº¬ÈκÎÓÐЧµÄÊýÖµ±í´ïʽ¡£
˵Ã÷
µ±Ò»Êý×Öת³É×Ö·û´®Ê±£¬×Ü»áÔÚÇ°Í·±£ÁôÒ»¿ÕλÀ´±íʾÕý¸º¡£Èç¹û number ΪÕý£¬·µ»ØµÄ×Ö·û´®°üº¬Ò»Ç°µ¼¿Õ¸ñ°µÊ¾ÓÐÒ»ÕýºÅ¡£
ʹÓà Format º¯Êý¿É½«Êýֵת³É±ØÒªµÄ¸ñʽ£¬ÈçÈÕÆÚ¡¢Ê±¼ä¡¢»õ±Ò»òÆäËûÓû§×Ô¶¨Òå¸ñʽ¡£Óë Str ²»Í¬µÄÊÇ£¬Format º¯Êý²»°üº¬Ç°µ¼¿Õ¸ñÀ´·ÅÖà number µÄÕý¸ººÅ¡£
×¢Òâ Str º¯ÊýÖ»ÊÓ¾äµã (.) ΪÓÐЧµÄСÊýµã¡£Èç¹ûʹÓò»Í¬µÄСÊýµã£¨ÀýÈ磬¹ú¼ÊÐÔµÄÓ¦ÓóÌÐò£©£¬¿ÉʹÓà CStr ½«Êý×Öת³É×Ö·û´®¡£
CBoolµÈÀàÐÍת»»º¯Êý
ÿ¸öº¯Êý¶¼¿ÉÒÔÇ¿Öƽ«Ò»¸ö±í´ïʽת»»³ÉijÖÖÌض¨Êý¾ÝÀàÐÍ¡£
Óï·¨
CBool(expression) CByte(expression) CCur(expression) CDate(expression)
CDbl(expression) CDec(expression) CInt(expression) CLng(expression)
CSng(expression) CStr(expression) CVar(expression)
±ØÒªµÄ expression ²ÎÊý¿ÉÒÔÊÇÈκÎ×Ö·û´®±í´ïʽ»òÊýÖµ±í´ïʽ¡£
CStr º¯Êý
¿ÉÇ¿Öƽ«Ò»¸ö±í´ïʽת»»³É×Ö·û´®£¬·µ»Ø´ú±íÒ»ÊýÖµµÄ×Ö·û´® Variant (String)¡£
CStr(expression)
CStr String ÒÀ¾Ý expression ²ÎÊý·µ»ØÒ»¸ö×Ö·û´®¡£
µÚ1.38Àý Time º¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓà Time º¯ÊýÀ´·µ»Øϵͳµ±Ç°µÄʱ¼ä¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_038()
Dim Xtdqsj,sj
Xtdqsj = Time '¡£
Sj=#12:10:00#
Time =sj
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_038()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_038¡£
2¡¢Dim Xtdqsj,sj £ºÉùÃ÷±äÁ¿Xtdqsj,sj ¾ùΪ¿É±äÐͱäÁ¿¡£
3¡¢Xtdqsj = Time £ºÓÃTime º¯Êý·µ»Øϵͳµ±Ç°µÄʱ¼ä¸³¸ø±äÁ¿Xtdqsj¡£
4¡¢sj=#12:10:00# £º°Ñʱ¼ä¸³¸ø±äÁ¿sj¡£
5¡¢Time =sj £º×¢ÒâÕâÀïµÄTime²»ÊÇTime º¯Êý£¬¶øÊÇTimeÓï¾ä£¬Èç¹ûÒª½«ÏµÍ³Ê±¼äÉèÖÃΪsj µÄÄÚÈݾÍÒªÓÃTimeÓï¾ä¡£
Time º¯Êý
·µ»Øµ±Ç°ÏµÍ³µÄʱ¼äVariant (Date)¡£
Time
ΪÁËÉèÖÃϵͳʱ¼ä£¬ÐèʹÓà Time Óï¾ä¡£
µÚ1.39Àý TimeSerial ºÍTimeValue º¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓà TimeSerial º¯ÊýÀ´·µ»ØÒÑ֪ʱ·ÖÃëµÄʱ¼ä£¬ÔËÓà TimeValue º¯ÊýÀ´½«×Ö·û´®×ª»»ÎªÊ±¼ä¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_039()
Dim sj,sj1
sj = TimeSerial(19, 25, 27)
sj1 = TimeValue("4:35:17 PM")
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_039()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_039¡£
2¡¢Dim sj,sjs £ºÉùÃ÷±äÁ¿sj,sj1 ¾ùΪ¿É±äÐͱäÁ¿¡£
3¡¢sj = TimeSerial(19, 25, 27) £ºÒÑÖª¾ßÌåµÄСʱ¡¢·Ö¡¢Ã룬ÔËÓà TimeSerial º¯ÊýÀ´µÃµ½Ê±¼äµÄÖµ£¬·µ»Ø#ÏÂÎç 07:25:27# µÄʱ¼ä±í´ïʽ¡£
4¡¢sj1 = TimeValue("4:35:17 PM")£ºÒÑÖª±íʾʱ¼äµÄ×Ö·û´®£¬ÔËÓà TimeValue º¯ÊýÀ´½«´Ë×Ö·û´®×ª»»ÎªÊ±¼ä£¬·µ»Ø#ÏÂÎç 04:35:17#¡£
TimeSerial º¯Êý
·µ»ØÒ»¸ö Variant (Date)£¬°üº¬¾ßÓоßÌåʱ¡¢·Ö¡¢ÃëµÄʱ¼ä¡£
TimeSerial(hour, minute, second)
TimeSerial º¯ÊýÓï·¨ÓÐÏÂÁеÄÃüÃû²ÎÊý£º
hour ±ØÒª£»Variant (Integer)¡£ÆäÖµ´Ó 0 (12:00 A.M.) µ½ 23 (11:00 P.M.)£¬»òÒ»ÊýÖµ±í´ïʽ¡£
minute ±ØÒª£»Variant (Integer)¡£ÈκÎÊýÖµ±í´ïʽ¡£
second ±ØÒª£»Variant (Integer)¡£ÈκÎÊýÖµ±í´ïʽ¡£
˵Ã÷
ΪÁËÖ¸¶¨Ò»¸öʱ¿Ì£¬Èç 11:59:59£¬TimeSerial µÄ²ÎÊýÈ¡ÖµÓ¦ÔÚÕý³£·¶Î§ÄÚ£»Ò²¾ÍÊÇ˵£¬ÖÓµãÓ¦½éÓÚ 0-23 Ö®¼ä£¬¶ø·ÖÖÓÓëÃëÓ¦½éÓÚ 0-59 Ö®¼ä¡£µ«ÊÇ£¬µ±Ò»¸öÊýÖµ±í´ïʽ±íʾijʱ¿Ì֮ǰ»òÆäºóµÄʱ¡¢·ÖÖÓ»òÃëÊýʱ£¬Ò²¿ÉÒÔΪÿ¸öʹÓÃÕâ¸öÊýÖµ±í´ïʽµÄ²ÎÊýÖ¸¶¨Ïà¶Ôʱ¼ä¡£ÒÔÏÂʾÀýÖÐʹÓÃÁ˱í´ïʽ´úÌæ¾ø¶Ôʱ¼äÊý¡£TimeSerial º¯Êý·µ»ØÖÐÎç֮ǰÁùСʱ (12 - 6) ÓÖÊ®Îå·ÖÖÓ (-15) µÄʱ¼ä£¬¼´ 5:45:00 A.M.
TimeSerial(12 - 6, -15, 0)
µ±ÈκÎÒ»¸ö²ÎÊýµÄÈ¡Öµ³¬³öÕý³£·¶Î§Ê±£¬Ëü»áÊÊʱ½øλµ½ÏÂÒ»¸ö½Ï´óµÄʱ¼äµ¥Î»¡£ÀýÈ磬Èç¹ûÖ¸¶¨ÁË 75£¨75 ·ÖÖÓ£©£¬ÔòÕâ¸öʱ¼ä±»½âÊͳÉһСʱÓÖÊ®Îå·Ö¡£Èç¹ûÒ»¸ö²ÎÊýÖµ³¬³ö -32£¬768 µ½ 32£¬767 µÄ·¶Î§£¬¾Í»áµ¼Ö´íÎó·¢Éú¡£Èç¹ûÈý¸ö²ÎÊýÖ¸¶¨µÄʱ¼ä»áʹÈÕÆÚ³¬³ö¿É½ÓÊܵÄÈÕÆÚ·¶Î§£¬ÔòÒà»áµ¼Ö´íÎó·¢Éú¡£
TimeValue º¯Êý
·µ»ØÒ»¸ö°üº¬Ê±¼äµÄ Variant (Date)¡£
TimeValue(time)
±ØÒªµÄ time ²ÎÊý£¬Í¨³£ÊÇÒ»¸ö×Ö·û´®±í´ïʽ£¬±íʾ 0:00:00 (12:00:00 A.M.) µ½ 23:59:59 (11:59:59 P.M.) Ö®¼äµÄʱ¿Ì¡£µ«ÊÇ£¬time Ò²¿ÉÒÔÊDZíʾÔÚͬһʱ¼ä·¶Î§È¡ÖµµÄÈκÎÆäËü±í´ïʽ¡£Èç¹û time °üº¬ Null£¬Ôò·µ»Ø Null¡£
˵Ã÷
¿ÉÒÔʹÓà 12 СʱÖÆ»ò 24 СʱÖƵÄʱ¼ä¸ñʽ¡£ÀýÈ磬¡±2:24PM¡± ºÍ "14:24" ¾ùÊÇÓÐЧµÄ time ±í´ïʽ¡£
Èç¹û time ²ÎÊý°üº¬ÈÕÆÚÐÅÏ¢£¬TimeValue ½«²»»á·µ»ØËü¡£µ«ÊÇ£¬Èô time °üº¬ÎÞЧµÄÈÕÆÚÐÅÏ¢£¬Ôò»áµ¼Ö´íÎó·¢Éú¡£
µÚ1.40Àý Timer º¯Êý
Ò»¡¢ÌâÄ¿£º
¡¡¡¡ÒªÇó±àдһ¶Î´úÂ룬ÔËÓà Timer º¯ÊýÀ´¼ÆËã±¾´úÂëÔËÐÐËù»¯µÄʱ¼ä¡£
¶þ¡¢´úÂ룺
Sub ʾÀý_1_040()
Dim t, i&, a
t = Timer
For i = 1 To 1000000
a = a + i
Next i
MsgBox Timer - t & "Ãë" ¡®·µ»Ø0.046875Ãë
End Sub
Èý¡¢´úÂëÏê½â
1¡¢Sub ʾÀý_1_040()£ººê³ÌÐòµÄ¿ªÊ¼Óï¾ä¡£ºêÃûΪʾÀý_1_040¡£
2¡¢Dim t, i&, a £ºÉùÃ÷±äÁ¿t,a ¾ùΪ¿É±äÐͱäÁ¿£¬iΪ³¤ÕûÐͱäÁ¿¡£
3¡¢t = Timer £º°ÑϵͳµÄʱ¼ä¸³¸ø±äÁ¿t¡£
4¡¢For i = 1 To 1000000 £º´Ó1 µ½ 1000000Ñ»·¡£
5¡¢a = a + i £º°Ña+iµÄÖµ¸³¸ø±äÁ¿a£¬Êµ¼ÊÉÏÊÇÒ»¸öÀۼӵĹý³Ì¡£
6¡¢MsgBox Timer - t & "Ãë" £ºÀûÓÃÏûÏ¢¿òÏÔʾÏÖÔÚµÄʱ¼ä¼õȥǰÃæÉèÖõÄʱ¼ä£¬µÃµ½ÔËÐÐÕû¸ö´úÂëËù»¯µÄʱ¼ä¡£
Timer º¯Êý
·µ»ØÒ»¸ö Single£¬´ú±í´ÓÎçÒ¹¿ªÊ¼µ½ÏÖÔÚ¾¹ýµÄÃëÊý¡£
Timer
˵Ã÷
Microsoft WindowsÖУ¬Timerº¯Êý·µ»ØÒ»ÃëµÄСÊý²¿·Ö¡£
¶þ©–©–°ËÄêÊ®¶þÔÂ
|