vbs函数大全（精选5篇）

vbs函数大全 第1篇

Excel常用函数大全

我们在使用Excel制作表格整理数据的时候，常常要用到它的函数功能来自动统计处理表格中的数据。整理了Excel中使用频率最高的函数的功能、使用方法及在实际应用中的实例剖析。

1、ABS函数

函数名称：ABS

主要功能：求出相应数字的绝对值。

使用格式：ABS(number)

参数说明：number代表需要求绝对值的数值或引用的单元格。

应用举例：如果在B2单元格中输入公式：=ABS(A2)，则在A2单元格中无论输入正数（如100）还是负数（如-100），B2中均显示出正数（如100）。

特别提醒：如果number参数不是数值，而是一些字符（如A等），则B2中返回错误值“#VALUE！”。

2、AND函数

函数名称：AND

主要功能：返回逻辑值：如果所有参数值均为逻辑“真（TRUE）”，则返回逻辑“真（TRUE）”，反之返回逻辑“假（FALSE）”。

使用格式：AND(logical1,logical2,...)

参数说明：Logical1,Logical2,Logical3……：表示待测试的条件值或表达式，最多这30个。

应用举例：在C5单元格输入公式：=AND(A5>=60,B5>=60)，确认。如果C5中返回TRUE，说明A5和B5中的数值均大于等于60，如果返回FALSE，说明A5和B5中的数值至少有一个小于60。

特别提醒：如果指定的逻辑条件参数中包含非逻辑值时，则函数返回错误值“#VALUE!”或“#NAME”。

3、AVERAGE函数

函数名称：AVERAGE

主要功能：求出所有参数的算术平均值。

使用格式：AVERAGE(number1,number2,……)

参数说明：number1,number2,……：需要求平均值的数值或引用单元格（区域），参数不超过30个。

应用举例：在B8单元格中输入公式：=AVERAGE(B7:D7,F7:H7,7,8)，确认后，即可求出B7至D7区域、F7至H7区域中的数值和7、8的平均值。

特别提醒：如果引用区域中包含“0”值单元格，则计算在内；如果引用区域中包含空白或字符单元格，则不计算在内。

4、COLUMN 函数

函数名称：COLUMN

主要功能：显示所引用单元格的列标号值。

使用格式：COLUMN(reference)

参数说明：reference为引用的单元格。

应用举例：在C11单元格中输入公式：=COLUMN(B11)，确认后显示为2（即B列）。

特别提醒：如果在B11单元格中输入公式：=COLUMN()，也显示出2；与之相对应的还有一个返回行标号值的函数——ROW(reference)。

5、CONCATENATE函数

函数名称：CONCATENATE

主要功能：将多个字符文本或单元格中的数据连接在一起，显示在一个单元格中。

使用格式：CONCATENATE(Text1，Text……)

参数说明：Text1、Text2……为需要连接的字符文本或引用的单元格。

应用举例：在C14单元格中输入公式：=CONCATENATE(A14,“@”,B14,“.com”)，确认后，即可将A14单元格中字符、@、B14单元格中的字符和.com连接成一个整体，显示在C14单元格中。

特别提醒：如果参数不是引用的单元格，且为文本格式的，请给参数加上英文状态下的双引号，如果将上述公式改为：=A14&“@”&B14&“.com”，也能达到相同的目的。

6、COUNTIF函数

函数名称：COUNTIF 主要功能：统计某个单元格区域中符合指定条件的单元格数目。

使用格式：COUNTIF(Range,Criteria)

参数说明：Range代表要统计的单元格区域；Criteria表示指定的条件表达式。

应用举例：在C17单元格中输入公式：=COUNTIF(B1:B13,“>=80”)，确认后，即可统计出B1至B13单元格区域中，数值大于等于80的单元格数目。

特别提醒：允许引用的单元格区域中有空白单元格出现。

7、DATE函数

函数名称：DATE

主要功能：给出指定数值的日期。

使用格式：DATE(year,month,day)

参数说明：year为指定的年份数值（小于9999）；month为指定的月份数值（可以大于12）；day为指定的天数。

应用举例：在C20单元格中输入公式：=DATE(2003,13,35)，确认后，显示出2004-2-4。

特别提醒：由于上述公式中，月份为13，多了一个月，顺延至2004年1月；天数为35，比2004年1月的实际天数又多了4天，故又顺延至2004年2月4日。

8、函数名称：DATEDIF

主要功能：计算返回两个日期参数的差值。

使用格式：=DATEDIF(date1,date2,“y”)、=DATEDIF(date1,date2,“m”)、=DATEDIF(date1,date2,“d”)参数说明：date1代表前面一个日期，date2代表后面一个日期；y（m、d）要求返回两个日期相差的年（月、天）数。

应用举例：在C23单元格中输入公式：=DATEDIF(A23,TODAY(),“y”)，确认后返回系统当前日期[用TODAY()表示）与A23单元格中日期的差值，并返回相差的年数。

特别提醒：这是Excel中的一个隐藏函数，在函数向导中是找不到的，可以直接输入使用，对于计算年龄、工龄等非常有效。

9、DCOUNT函数

函数名称：DCOUNT

主要功能：返回数据库或列表的列中满足指定条件并且包含数字的单元格数目。

使用格式：DCOUNT(database,field,criteria)

参数说明：Database表示需要统计的单元格区域；Field表示函数所使用的数据列（在第一行必须要有标志项）；Criteria包含条件的单元格区域。

应用举例：如图1所示，在F4单元格中输入公式：=DCOUNT(A1:D11,“语文”,F1:G2)，确认后即可求出“语文”列中，成绩大于等于70，而小于80的数值单元格数目（相当于分数段人数）。

特别提醒：如果将上述公式修改为：=DCOUNT(A1:D11，F1:G2)，也可以达到相同目的。

10、DAY函数

函数名称：DAY

主要功能：求出指定日期或引用单元格中的日期的天数。

使用格式：DAY(serial_number)参数说明：serial_number代表指定的日期或引用的单元格。

应用举例：输入公式：=DAY(“2003-12-18”)，确认后，显示出18。

特别提醒：如果是给定的日期，请包含在英文双引号中。

11、FREQUENCY函数

函数名称：FREQUENCY

主要功能：以一列垂直数组返回某个区域中数据的频率分布。

使用格式：FREQUENCY(data_array,bins_array)

参数说明：Data_array表示用来计算频率的一组数据或单元格区域；Bins_array表示为前面数组进行分隔一列数值。

应用举例：如图2所示，同时选中B32至B36单元格区域，输入公式：=FREQUENCY(B2:B31,D2:D36)，输入完成后按下“Ctrl+Shift+Enter”组合键进行确认，即可求出B2至B31区域中，按D2至D36区域进行分隔的各段数值的出现频率数目（相当于统计各分数段人数）。

特别提醒：上述输入的是一个数组公式，输入完成后，需要通过按“Ctrl+Shift+Enter”组合键进行确认，确认后公式两端出现一对大括号（{}），此大括号不能直接输入。

12、IF函数

函数名称：IF 主要功能：根据对指定条件的逻辑判断的真假结果，返回相对应的内容。

使用格式：=IF(Logical,Value_if_true,Value_if_false)

参数说明：Logical代表逻辑判断表达式；Value_if_true表示当判断条件为逻辑“真（TRUE）”时的显示内容，如果忽略返回“TRUE”；Value_if_false表示当判断条件为逻辑“假（FALSE）”时的显示内容，如果忽略返回“FALSE”。

应用举例：在C29单元格中输入公式：=IF(C26>=18,“符合要求”,“不符合要求”)，确信以后，如果C26单元格中的数值大于或等于18，则C29单元格显示“符合要求”字样，反之显示“不符合要求”字样。

特别提醒：本文中类似“在C29单元格中输入公式”中指定的单元格，读者在使用时，并不需要受其约束，此处只是配合本文所附的实例需要而给出的相应单元格，具体请大家参考所附的实例文件。

13、INT函数

函数名称：INT

主要功能：将数值向下取整为最接近的整数。

使用格式：INT(number)

参数说明：number表示需要取整的数值或包含数值的引用单元格。

应用举例：输入公式：=INT(18.89)，确认后显示出18。

特别提醒：在取整时，不进行四舍五入；如果输入的公式为=INT(-18.89)，则返回结果为-19。

14、INDEX函数

函数名称：INDEX

主要功能：返回列表或数组中的元素值，此元素由行序号和列序号的索引值进行确定。

使用格式：INDEX(array,row_num,column_num)

参数说明：Array代表单元格区域或数组常量；Row_num表示指定的行序号（如果省略row_num，则必须有 column_num）；Column_num表示指定的列序号（如果省略column_num，则必须有 row_num）。

应用举例：如图3所示，在F8单元格中输入公式：=INDEX(A1:D11,4,3)，确认后则显示出A1至D11单元格区域中，第4行和第3列交叉处的单元格（即C4）中的内容。

特别提醒：此处的行序号参数（row_num）和列序号参数（column_num）是相对于所引用的单元格区域而言的，不是Excel工作表中的行或列序号。

15、ISERROR函数

函数名称：ISERROR

主要功能：用于测试函数式返回的数值是否有错。如果有错，该函数返回TRUE，反之返回FALSE。

使用格式：ISERROR(value)

参数说明：Value表示需要测试的值或表达式。

应用举例：输入公式：=ISERROR(A35/B35)，确认以后，如果B35单元格为空或“0”，则A35/B35出现错误，此时前述函数返回TRUE结果，反之返回FALSE。

特别提醒：此函数通常与IF函数配套使用，如果将上述公式修改为：=IF(ISERROR(A35/B35),“",A35/B35)，如果B35为空或“0”，则相应的单元格显示为空，反之显示A35/B35的结果。

16、LEFT函数

函数名称：LEFT

主要功能：从一个文本字符串的第一个字符开始，截取指定数目的字符。

使用格式：LEFT(text,num_chars)

参数说明：text代表要截字符的字符串；num_chars代表给定的截取数目。

应用举例：假定A38单元格中保存了“我喜欢天极网”的字符串，我们在C38单元格中输入公式：=LEFT(A38,3)，确认后即显示出“我喜欢”的字符。

特别提醒：此函数名的英文意思为“左”，即从左边截取，Excel很多函数都取其英文的意思。

17、LEN函数

函数名称：LEN

主要功能：统计文本字符串中字符数目。

使用格式：LEN(text)

参数说明：text表示要统计的文本字符串。

应用举例：假定A41单元格中保存了“我今年28岁”的字符串，我们在C40单元格中输入公式：=LEN(A40)，确认后即显示出统计结果“6”。

特别提醒：LEN要统计时，无论中全角字符，还是半角字符，每个字符均计为“1”；与之相对应的一个函数——LENB，在统计时半角字符计为“1”，全角字符计为“2”。

18、MATCH函数

函数名称：MATCH

主要功能：返回在指定方式下与指定数值匹配的数组中元素的相应位置。

使用格式：MATCH(lookup_value,lookup_array,match_type)

参数说明：Lookup_value代表需要在数据表中查找的数值；Lookup_array表示可能包含所要查找的数值的连续单元格区域； Match_type表示查找方式的值（-

1、0或1）。如果match_type为-1，查找大于或等于 lookup_value的最小数值，Lookup_array 必须按降序排列；如果match_type为1，查找小于或等于 lookup_value 的最大数值，Lookup_array 必须按升序排列；如果match_type为0，查找等于lookup_value 的第一个数值，Lookup_array 可以按任何顺序排列；如果省略match_type，则默认为1。应用举例：如图4所示，在F2单元格中输入公式：=MATCH(E2,B1:B11,0)，确认后则返回查找的结果“9”。

特别提醒：Lookup_array只能为一列或一行。

19、MAX函数

函数名称：MAX

主要功能：求出一组数中的最大值。

使用格式：MAX(number1,number2……)

参数说明：number1,number2……代表需要求最大值的数值或引用单元格（区域），参数不超过30个。应用举例：输入公式：=MAX(E44:J44,7,8,9,10)，确认后即可显示出E44至J44单元和区域和数值7，8，9，10中的最大值。

特别提醒：如果参数中有文本或逻辑值，则忽略。

20、MID函数

函数名称：MID

主要功能：从一个文本字符串的指定位置开始，截取指定数目的字符。

使用格式：MID(text,start_num,num_chars)

参数说明：text代表一个文本字符串；start_num表示指定的起始位置；num_chars表示要截取的数目。应用举例：假定A47单元格中保存了“我喜欢天极网”的字符串，我们在C47单元格中输入公式：=MID(A47,4,3)，确认后即显示出“天极网”的字符。

特别提醒：公式中各参数间，要用英文状态下的逗号“,”隔开。

21、MIN函数

函数名称：MIN

主要功能：求出一组数中的最小值。

使用格式：MIN(number1,number2……)

参数说明：number1,number2……代表需要求最小值的数值或引用单元格（区域），参数不超过30个。应用举例：输入公式：=MIN(E44:J44,7,8,9,10)，确认后即可显示出E44至J44单元和区域和数值7，8，9，10中的最小值。

特别提醒：如果参数中有文本或逻辑值，则忽略。

22、MOD函数

函数名称：MOD

主要功能：求出两数相除的余数。

使用格式：MOD(number,divisor)

参数说明：number代表被除数；divisor代表除数。

应用举例：输入公式：=MOD(13,4)，确认后显示出结果“1”。

特别提醒：如果divisor参数为零，则显示错误值“#DIV/0!”；MOD函数可以借用函数INT来表示：上述公式可以修改为：=13-4*INT(13/4)。

23、MONTH函数

函数名称：MONTH

主要功能：求出指定日期或引用单元格中的日期的月份。

使用格式：MONTH(serial_number)

参数说明：serial_number代表指定的日期或引用的单元格。

应用举例：输入公式：=MONTH(”2003-12-18“)，确认后，显示出11。

特别提醒：如果是给定的日期，请包含在英文双引号中；如果将上述公式修改为：=YEAR(”2003-12-18“)，则返回年份对应的值“2003”。

24、NOW函数

函数名称：NOW

主要功能：给出当前系统日期和时间。

使用格式：NOW()

参数说明：该函数不需要参数。

应用举例：输入公式：=NOW()，确认后即刻显示出当前系统日期和时间。如果系统日期和时间发生了改变，只要按一下F9功能键，即可让其随之改变。

特别提醒：显示出来的日期和时间格式，可以通过单元格格式进行重新设置。

25、OR函数

函数名称：OR

主要功能：返回逻辑值，仅当所有参数值均为逻辑“假（FALSE）”时返回函数结果逻辑“假（FALSE）”，否则都返回逻辑“真（TRUE）”。

使用格式：OR(logical1,logical2,...)

参数说明：Logical1,Logical2,Logical3……：表示待测试的条件值或表达式，最多这30个。

应用举例：在C62单元格输入公式：=OR(A62>=60,B62>=60)，确认。如果C62中返回TRUE，说明A62和B62中的数值至少有一个大于或等于60，如果返回FALSE，说明A62和B62中的数值都小于60。

特别提醒：如果指定的逻辑条件参数中包含非逻辑值时，则函数返回错误值“#VALUE!”或“#NAME”。

26、RANK函数

函数名称：RANK

主要功能：返回某一数值在一列数值中的相对于其他数值的排位。

使用格式：RANK（Number,ref,order）

参数说明：Number代表需要排序的数值；ref代表排序数值所处的单元格区域；order代表排序方式参数（如果为“0”或者忽略，则按降序排名，即数值越大，排名结果数值越小；如果为非“0”值，则按升序排名，即数值越大，排名结果数值越大；）。

应用举例：如在C2单元格中输入公式：=RANK(B2,$B$2:$B$31,0)，确认后即可得出丁1同学的语文成绩在全班成绩中的排名结果。

特别提醒：在上述公式中，我们让Number参数采取了相对引用形式，而让ref参数采取了绝对引用形式（增加了一个“$”符号），这样设置后，选中C2单元格，将鼠标移至该单元格右下角，成细十字线状时（通常称之为“填充柄”），按住左键向下拖拉，即可将上述公式快速复制到C列下面的单元格中，完成其他同学语文成绩的排名统计。

27、RIGHT函数

函数名称：RIGHT

主要功能：从一个文本字符串的最后一个字符开始，截取指定数目的字符。

使用格式：RIGHT(text,num_chars)

参数说明：text代表要截字符的字符串；num_chars代表给定的截取数目。

应用举例：假定A65单元格中保存了“我喜欢天极网”的字符串，我们在C65单元格中输入公式：=RIGHT(A65,3)，确认后即显示出“天极网”的字符。

特别提醒：Num_chars参数必须大于或等于0，如果忽略，则默认其为1；如果num_chars参数大于文本长度，则函数返回整个文本。

28、SUBTOTAL函数

函数名称：SUBTOTAL

主要功能：返回列表或数据库中的分类汇总。

使用格式：SUBTOTAL(function_num, ref1, ref2,...)

参数说明：Function_num为1到11（包含隐藏值）或101到111（忽略隐藏值）之间的数字，用来指定使用什么函数在列表中进行分类汇总计算（如图6）；ref1, ref2,……代表要进行分类汇总区域或引用，不超过29个。

应用举例：如图7所示，在B64和C64单元格中分别输入公式：=SUBTOTAL(3,C2:C63)和=SUBTOTAL103,C2:C63)，并且将61行隐藏起来，确认后，前者显示为62（包括隐藏的行），后者显示为61，不包括隐藏的行。

特别提醒：如果采取自动筛选，无论function_num参数选用什么类型，SUBTOTAL函数忽略任何不包括在筛选结果中的行；SUBTOTAL函数适用于数据列或垂直区域，不适用于数据行或水平区域。

29、SUM函数

函数名称：SUM

主要功能：计算所有参数数值的和。

使用格式：SUM（Number1,Number2……）

参数说明：Number1、Number2……代表需要计算的值，可以是具体的数值、引用的单元格（区域）、逻辑值等。

应用举例：如图7所示，在D64单元格中输入公式：=SUM(D2:D63)，确认后即可求出语文的总分。

特别提醒：如果参数为数组或引用，只有其中的数字将被计算。数组或引用中的空白单元格、逻辑值、文本或错误值将被忽略；如果将上述公式修改为：=SUM(LARGE(D2:D63,{1,2,3,4,5}))，则可以求出前5名成绩的和。

30、SUMIF函数

函数名称：SUMIF

主要功能：计算符合指定条件的单元格区域内的数值和。

使用格式：SUMIF（Range,Criteria,Sum_Range）

参数说明：Range代表条件判断的单元格区域；Criteria为指定条件表达式；Sum_Range代表需要计算的数值所在的单元格区域。

应用举例：如图7所示，在D64单元格中输入公式：=SUMIF(C2:C63,”男“,D2:D63)，确认后即可求出“男”生的语文成绩和。

特别提醒：如果把上述公式修改为：=SUMIF(C2:C63,”女“,D2:D63)，即可求出“女”生的语文成绩和；其中“男”和“女”由于是文本型的，需要放在英文状态下的双引号（”男“、”女“）中。

31、TEXT函数

函数名称：TEXT

主要功能：根据指定的数值格式将相应的数字转换为文本形式。

使用格式：TEXT(value,format_text)

参数说明：value代表需要转换的数值或引用的单元格；format_text为指定文字形式的数字格式。

应用举例：如果B68单元格中保存有数值1280.45，我们在C68单元格中输入公式：=TEXT(B68, ”$0.00“)，确认后显示为“$1280.45”。

特别提醒：format_text参数可以根据“单元格格式”对话框“数字”标签中的类型进行确定。

32、TODAY函数

函数名称：TODAY

主要功能：给出系统日期。

使用格式：TODAY()

参数说明：该函数不需要参数。

应用举例：输入公式：=TODAY()，确认后即刻显示出系统日期和时间。如果系统日期和时间发生了改变，只要按一下F9功能键，即可让其随之改变。

特别提醒：显示出来的日期格式，可以通过单元格格式进行重新设置（参见附件）。

33、VALUE函数

函数名称：VALUE

主要功能：将一个代表数值的文本型字符串转换为数值型。

使用格式：VALUE(text)

参数说明：text代表需要转换文本型字符串数值。

应用举例：如果B74单元格中是通过LEFT等函数截取的文本型字符串，我们在C74单元格中输入公式：=VALUE(B74)，确认后，即可将其转换为数值型。

特别提醒：如果文本型数值不经过上述转换，在用函数处理这些数值时，常常返回错误。

34、VLOOKUP函数

函数名称：VLOOKUP

主要功能：在数据表的首列查找指定的数值，并由此返回数据表当前行中指定列处的数值。

使用格式：VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)

参数说明：Lookup_value代表需要查找的数值；Table_array代表需要在其中查找数据的单元格区域；Col_index_num为在table_array区域中待返回的匹配值的列序号（当Col_index_num为2时,返回table_array第2列中的数值，为3时，返回第3列的值……）；Range_lookup为一逻辑值，如果为TRUE或省略，则返回近似匹配值，也就是说，如果找不到精确匹配值，则返回小于lookup_value的最大数值；如果为FALSE，则返回精确匹配值，如果找不到，则返回错误值#N/A。

应用举例：参见图7，我们在D65单元格中输入公式：=VLOOKUP(B65,B2:D63,3,FALSE)，确认后，只要在B65单元格中输入一个学生的姓名（如丁48），D65单元格中即刻显示出该学生的语言成绩。

特别提醒：Lookup_value参见必须在Table_array区域的首列中；如果忽略Range_lookup参数，则Table_array的首列必须进行排序；在此函数的向导中，有关Range_lookup参数的用法是错误的。

35、WEEKDAY函数

函数名称：WEEKDAY

主要功能：给出指定日期的对应的星期数。

使用格式：WEEKDAY(serial_number,return_type)

参数说明：serial_number代表指定的日期或引用含有日期的单元格；return_type代表星期的表示方式[当Sunday（星期日）为

1、Saturday（星期六）为7时，该参数为1；当Monday（星期一）为

1、Sunday（星期日）为7时，该参数为2（这种情况符合中国人的习惯）；当Monday（星期一）为0、Sunday（星期日）为6时，该参数为3]。

应用举例：输入公式：=WEEKDAY(TODAY(),2)，确认后即给出系统日期的星期数。

特别提醒：如果是指定的日期，请放在英文状态下的双引号中，如=WEEKDAY(”2003-12-18“,2)。AND “与”运算，返回逻辑值，仅当有参数的结果均为逻辑“真（TRUE）”时返回逻辑“真（TRUE）”，反之返回逻辑“假（FALSE）”。条件判断

AVERAGE 求出所有参数的算术平均值。数据计算

COLUMN 显示所引用单元格的列标号值。显示位置

CONCATENATE 将多个字符文本或单元格中的数据连接在一起，显示在一个单元格中。字符合并

COUNTIF 统计某个单元格区域中符合指定条件的单元格数目。条件统计

DATE 给出指定数值的日期。显示日期

DATEDIF 计算返回两个日期参数的差值。计算天数

DAY 计算参数中指定日期或引用单元格中的日期天数。计算天数

DCOUNT 返回数据库或列表的列中满足指定条件并且包含数字的单元格数目。条件统计

FREQUENCY 以一列垂直数组返回某个区域中数据的频率分布。概率计算

IF 根据对指定条件的逻辑判断的真假结果，返回相对应条件触发的计算结果。条件计算

INDEX 返回列表或数组中的元素值，此元素由行序号和列序号的索引值进行确定。数据定位

ISERROR 用于测试函数式返回的数值是否有错。如果有错，该函数返回TRUE，反之返回FALSE。逻辑判断

LEFT 从一个文本字符串的第一个字符开始，截取指定数目的字符。截取数据

LEN 统计文本字符串中字符数目。字符统计

MATCH 返回在指定方式下与指定数值匹配的数组中元素的相应位置。匹配位置

MAX 求出一组数中的最大值。数据计算

MID 从一个文本字符串的指定位置开始，截取指定数目的字符。字符截取

MIN 求出一组数中的最小值。数据计算

MOD 求出两数相除的余数。数据计算

MONTH 求出指定日期或引用单元格中的日期的月份。日期计算

NOW 给出当前系统日期和时间。显示日期时间

OR 仅当所有参数值均为逻辑“假（FALSE）”时返回结果逻辑“假（FALSE）”，否则都返回逻辑“真（TRUE）”。逻辑判断

RANK 返回某一数值在一列数值中的相对于其他数值的排位。数据排序

RIGHT 从一个文本字符串的最后一个字符开始，截取指定数目的字符。字符截取

SUBTOTAL 返回列表或数据库中的分类汇总。分类汇总

SUM 求出一组数值的和。数据计算

SUMIF 计算符合指定条件的单元格区域内的数值和。条件数据计算

TEXT 根据指定的数值格式将相应的数字转换为文本形式 数值文本转换

TODAY 给出系统日期 显示日期

VALUE 将一个代表数值的文本型字符串转换为数值型。文本数值转换

VLOOKUP 在数据表的首列查找指定的数值，并由此返回数据表当前行中指定列处的数值 条件定位

WEEKDAY 给出指定日期的对应的星期数。星期计算

Excel 部分函数列表.函数的步骤：①选中存放结果的单元格 ②单击“=”（编辑公式）③找函数（单击“三角形”形状按钮。或者直接输入函数名 ④选范围 ⑤CTRL+回车键

例：排位函数RANK（）

Rank(A1：$A$1：$A$15)

行号和列号前面加上“$“符号 A叫行号。1或者15叫列号，表示单元格所在的位置 数据单元格在A列1号或者是A列15号

一、术语说明

什么是参数？参数可以是数字、文本、形如 TRUE 或 FALSE 的逻辑值、数组、形如 #N/A 的错误值或单元格引用。给定的参数必须能产生有效的值。参数也可以是常量、公式或其它函数。

参数不仅仅是常量、公式或函数，还可以是数组、单元格引用等： 1.数组--用于建立可产生多个结果或可对存放在行和列中的一组参数进行运算的单个公式。在 Microsoft Excel有两类数组：区域数组和常量数组。区域数组是一个矩形的单元格区域，该区域中的单元格共用一个公式；常量数组将一组给定的常量用作某个公式中的参数。

2.单元格引用--用于表示单元格在工作表所处位置的坐标值。例如，显示在第 B 列和第 3 行交叉处的单元格，其引用形式为”B3“。

3.常量--常量是直接键入到单元格或公式中的数字或文本值，或由名称所代表的数字或文本值。例如，日期 10/9/96、数字 210 和文本”Quarterly Earnings“都是常量。公式或由公式得出的数值都不是常量。

三、函数的种类

Excel函数一共有11类，分别是数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函数、文本函数以及用户自定义函数。

1.数据库函数--当需要分析数据清单中的数值是否符合特定条件时，可以使用数据库工作表函数。例如，在一个包含销售信息的数据清单中，可以计算出所有销售数值大于 1,000 且小于 2,500 的行或记录的总数。Microsoft Excel 共有 12 个工作表函数用于对存储在数据清单或数据库中的数据进行分析，这些函数的统一名称为 Dfunctions，也称为 D 函数，每个函数均有三个相同的参数：database、field 和 criteria。这些参数指向数据库函数所使用的工作表区域。其中参数 database 为工作表上包含数据清单的区域。参数 field 为需要汇总的列的标志。参数 criteria 为工作表上包含指定条件的区域。

2.日期与时间函数--通过日期与时间函数，可以在公式中分析和处理日期值和时间值。

3.工程函数--工程工作表函数用于工程分析。这类函数中的大多数可分为三种类型：对复数进行处理的函数、在不同的数字系统（如十进制系统、十六进制系统、八进制系统和二进制系统）间进行数值转换的函数、在不同的度量系统中进行数值转换的函数。

4.财务函数--财务函数可以进行一般的财务计算，如确定贷款的支付额、投资的未来值或净现值，以及债券或息票的价值。财务函数中常见的参数：

未来值(fv)--在所有付款发生后的投资或贷款的价值。

期间数(nper)--投资的总支付期间数。

付款(pmt)--对于一项投资或贷款的定期支付数额。

现值(pv)--在投资期初的投资或贷款的价值。例如，贷款的现值为所借入的本金数额。

利率(rate)--投资或贷款的利率或贴现率。

类型(type)--付款期间内进行支付的间隔，如在月初或月末。

5.信息函数--可以使用信息工作表函数确定存储在单元格中的数据的类型。信息函数包含一组称为 IS 的工作表函数，在单元格满足条件时返回 TRUE。例如，如果单元格包含一个偶数值，ISEVEN 工作表函数返回 TRUE。如果需要确定某个单元格区域中是否存在空白单元格，可以使用 COUNTBLANK 工作表函数对单元格区域中的空白单元格进行计数，或者使用 ISBLANK 工作表函数确定区域中的某个单元格是否为空。

6.逻辑函数--使用逻辑函数可以进行真假值判断，或者进行复合检验。例如，可以使用 IF 函数确定条件为真还是假，并由此返回不同的数值。

7.查询和引用函数--当需要在数据清单或表格中查找特定数值，或者需要查找某一单元格的引用时，可以使用查询和引用工作表函数。例如，如果需要在表格中查找与第一列中的值相匹配的数值，可以使用 VLOOKUP 工作表函数。如果需要确定数据清单中数值的位置，可以使用 MATCH 工作表函数。

8.数学和三角函数--通过数学和三角函数，可以处理简单的计算，例如对数字取整、计算单元格区域中的数值总和或复杂计算。

9.统计函数--统计工作表函数用于对数据区域进行统计分析。例如，统计工作表函数可以提供由一组给定值绘制出的直线的相关信息，如直线的斜率和 y 轴截距，或构成直线的实际点数值。

10.文本函数--通过文本函数，可以在公式中处理文字串。例如，可以改变大小写或确定文字串的长度。可以将日期插入文字串或连接在文字串上。下面的公式为一个示例，借以说明如何使用函数 TODAY 和函数 TEXT 来创建一条信息，该信息包含着当前日期并将日期以”dd-mm-yy“的格式表示。

11.用户自定义函数--如果要在公式或计算中使用特别复杂的计算，而工作表函数又无法满足需要，则需要创建用户自定义函数。这些函数，称为用户自定义函数，可以通过使用 Visual Basic for Applications 来创建。以上对Excel函数及有关知识做了简要的介绍，在以后的文章中笔者将逐一介绍每一类函数的使用方法及应用技巧。但是由于Excel的函数相当多，因此也可能仅介绍几种比较常用的函数使用方法，其他更多的函数您可以从Excel的在线帮助功能中了解更详细的资讯。

Excel是办公应用中的常用软件，它不光有统计功能，在进行查找、计算时，Excel也有诸多的函数可以简化我们的操作。需要注意的是对中英文的处理是不大相同的，中文的一个字是按两个字节计算的，稍不注意就可能忽略这一点，造成错误。其实Excel函数中有专门针对双字节字符的函数。

让我们先来看看函数FIND与函数FINDB的区别。

语法：

FIND(find_text,within_text,start_num)FINDB(find_text,within_text,start_num)两个函数的参数相同。

作用：FIND函数用于查找文本（within_text）中的字符串（find_text），并从within_text的首字符开始返回find_text的起始位置编号。也可使用SEARCH查找字符串，但是，FIND和SEARCH不同，FIND区分大小写并且不允许使用通配符。

FINDB函数用于查找文本（within_text）中的字符串（find_text），并基于字节数从within_text的首字符开始返回find_text的起始位置编号。此函数用于双字节字符。

示例：在图1中，单元B2中的公式为“=FIND(”雨“,A2)” 单元格B3中的公式为“=FINDB(”雨“,A2)”

两个函数公式得出的结果不一样，这是因为在FIND函数中，“雨”位于“吴雨峰”串中的第二个位置，故返回“2”；而在FINDB函数中，每个汉字按2个字节算，所以“雨”是从第三个字节开始的，返回“3”。

同理：LEFT与LEFTB、RIGHT与RIGHTB、LEN与LENB、MID与MIDB、REPLACE与REPLACEB、SEARCH与SEARCHB的关系也如是。即不带字母B的函数是按字符操作的，而带字母B的函数是按字节进行操作的。

一、与求和有关的函数的应用

SUM函数是Excel中使用最多的函数，利用它进行求和运算可以忽略存有文本、空格等数据的单元格，语法简单、使用方便。相信这也是大家最先学会使用的Excel函数之一。但是实际上，Excel所提供的求和函数不仅仅只有SUM一种，还包括SUBTOTAL、SUM、SUMIF、SUMPRODUCT、SUMSQ、SUMX2MY2、SUMX2PY2、SUMXMY2几种函数。

这里笔者将以某单位工资表为例重点介绍SUM（计算一组参数之和）、SUMIF（对满足某一条件的单元格区域求和）的使用。(说明：为力求简单，示例中忽略税金的计算。)SUM

1、行或列求和

以最常见的工资表（如上图）为例，它的特点是需要对行或列内的若干单元格求和。

比如，求该单位2001年5月的实际发放工资总额，就可以在H13中输入公式： =SUM(H3:H12)

2、区域求和

区域求和常用于对一张工作表中的所有数据求总计。此时你可以让单元格指针停留在存放结果的单元格，然后在Excel编辑栏输入公式”=SUM（）“，用鼠标在括号中间单击，最后拖过需要求和的所有单元格。若这些单元格是不连续的，可以按住Ctrl键分别拖过它们。对于需要减去的单元格，则可以按住Ctrl键逐个选中它们，然后用手工在公式引用的单元格前加上负号。当然你也可以用公式选项板完成上述工作，不过对于SUM函数来说手工还是来的快一些。比如，H13的公式还可以写成：

=SUM(D3:D12,F3:F12)-SUM(G3:G12)

3、注意

SUM函数中的参数，即被求和的单元格或单元格区域不能超过30个。换句话说，SUM函数括号中出现的分隔符（逗号）不能多于29个，否则Excel就会提示参数太多。对需要参与求和的某个常数，可用”=SUM（单元格区域，常数）“的形式直接引用，一般不必绝对引用存放该常数的单元格。

SUMIF函数可对满足某一条件的单元格区域求和，该条件可以是数值、文本或表达式，可以应用在人事、工资和成绩统计中。

仍以上图为例，在工资表中需要分别计算各个科室的工资发放情况。

要计算销售部2001年5月加班费情况。则在F15种输入公式为

=SUMIF($C$3:$C$12,”销售部“,$F$3:$F$12)其中”$C$3:$C$12“为提供逻辑判断依据的单元格区域，”销售部“为判断条件即只统计$C$3:$C$12区域中部门为”销售部"的单元格，$F$3:$F$12为实际求和的单元格区域。

附注：Excel的数学和三角函数一览表

ABS 工作表函数 返回参数的绝对值

ACOS 工作表函数 返回数字的反余弦值

ACOSH 工作表函数 返回参数的反双曲余弦值

ASIN 工作表函数 返回参数的反正弦值

ASINH 工作表函数 返回参数的反双曲正弦值

ATAN 工作表函数 返回参数的反正切值

ATAN2 工作表函数 返回给定的 X 及 Y 坐标值的反正切值

ATANH 工作表函数 返回参数的反双曲正切值

CEILING 工作表函数 将参数 Number 沿绝对值增大的方向，舍入为最接近的整数或基数

COMBIN 工作表函数 计算从给定数目的对象集合中提取若干对象的组合数

COS 工作表函数 返回给定角度的余弦值

COSH 工作表函数 返回参数的双曲余弦值

COUNTIF 工作表函数 计算给定区域内满足特定条件的单元格的数目

DEGREES 工作表函数 将弧度转换为度

EVEN 工作表函数 返回沿绝对值增大方向取整后最接近的偶数

EXP 工作表函数 返回 e 的 n 次幂常数 e 等于 2.7***04，是自然对数的底数

FACT 工作表函数 返回数的阶乘，一个数的阶乘等于 1*2*3*...*该数

FACTDOUBLE 工作表函数 返回参数 Number 的半阶乘

FLOOR 工作表函数 将参数 Number 沿绝对值减小的方向去尾舍入，使其等于最接近的 significance 的倍数

GCD 工作表函数 返回两个或多个整数的最大公约数

INT 工作表函数 返回实数舍入后的整数值

LCM 工作表函数 返回整数的最小公倍数

LN 工作表函数 返回一个数的自然对数自然对数以常数项 e（2.7***04）为底

LOG 工作表函数 按所指定的底数，返回一个数的对数

LOG10 工作表函数 返回以 10 为底的对数

MDETERM 工作表函数 返回一个数组的矩阵行列式的值

MINVERSE 工作表函数 返回数组矩阵的逆距阵

MMULT 工作表函数 返回两数组的矩阵乘积结果

MOD 工作表函数 返回两数相除的余数结果的正负号与除数相同

MROUND 工作表函数 返回参数按指定基数舍入后的数值

MULTINOMIAL 工作表函数 返回参数和的阶乘与各参数阶乘乘积的比值

ODD 工作表函数 返回对指定数值进行舍入后的奇数

PI 工作表函数 返回数字 3.14***9，即数学常数 pi，精确到小数点后 15 位

POWER 工作表函数 返回给定数字的乘幂

PRODUCT 工作表函数 将所有以参数形式给出的数字相乘，并返回乘积值

QUOTIENT 工作表函数 回商的整数部分，该函数可用于舍掉商的小数部分

RADIANS 工作表函数 将角度转换为弧度

RAND 工作表函数 返回大于等于 0 小于 1 的均匀分布随机数

RANDBETWEEN 工作表函数 返回位于两个指定数之间的一个随机数

ROMAN 工作表函数 将阿拉伯数字转换为文本形式的罗马数字

ROUND 工作表函数 返回某个数字按指定位数舍入后的数字

ROUNDDOWN 工作表函数 靠近零值，向下（绝对值减小的方向）舍入数字

ROUNDUP 工作表函数 远离零值，向上（绝对值增大的方向）舍入数字

SERIESSUM 工作表函数 返回基于以下公式的幂级数之和：

SIGN 工作表函数 返回数字的符号当数字为正数时返回 1，为零时返回 0，为负数时返回-1

vbs函数大全 第2篇

用途：返回某一引用区域的左上角单元格的格式、位置或内容等信息，该函数主要用于保持与其它电子表格程序的兼容性。

语法：CELL(info_type，reference)

参数：Info_type为一个文本值，指明所需要的单元格信息的类型。Reference表示要获取其有关信息的单元格。如果忽略，则在info_type中所指定的信息将返回给最后更改的单元格。

实例：公式“=CELL(“row”，A20)”返回20，如果A3单元格包含TOTAL，则CELL(“contents”，A3)返回“TOTAL”。

2.ERROR.TYPE

用途：返回对应于某一错误类型的数字，如果没有错误则返回#N/A。在IF函数中可以使用ERROR.TYPE检测错误值，并返回文字串(如“发生错误”)来取代错误值。

语法：ERROR.TYPE(error_val)

参数：Error_val为需要得到其数字代码的一个错误类型。尽管error_val可以是实际的错误值，但它通常为一个单元格引用，而此单元格中包含需要检测的公式。

注意:ERROR.TYPE函数返回的错误代码是:#NULL!返回1，#DIV/0!返回2，#value!返回3，#REF!返回4，#NAME?返回5，#NUM!返回6，#N/A返回7，其他错误则返回#N/A。

实例：如果A5=36/0，则公式“=ERROR.TYPE(A5)”返回2。

3.INFO

用途：返回有关当前操作环境的的信息。

语法：INFO(type_text)

参数：Type_text是一文本，指明所要返回的信息类型。其中“directory”返回当前目录或文件夹的路径，“memavail”返回可用的内存空间(以字节为单位)，“memused”返回数据占用的内存空间，“numfile”返回当前所有打开的工作表的数目，“osversion”返回当前操作系统的版本号(文本)，“recalc”返回当前的重计算方式(“自动”或“人工”)，“release”返回Excel的版本号(文本)，“system”返回操作系统名称(Macintosh=“mac”，Windows=“pcdos”)，“totmem”返回全部内存空间，包括已经占用的内存空间(以字节为单位)。

注意:INFO函数中的文本参数必须用西文引号引起来。

实例：公式“=INFO(“osversion”)”返回“Windows(32-bit)4.90”，=INFO(“memavail”)返回1048576。

4.IS类函数

用途：其中包括用来检验数值或引用类型的九个工作表函数。它们可以检验数值的类型并根据参数的值返回TRUE或FALSE。例如，数值为空白单元格引用时，ISBLANK函数返回逻辑值TRUE，否则返回FALSE。

语法：ISBLANK(value)、ISERR(value)、ISERROR(value)、ISLOGICAL(value)、ISNA(value)、ISNONTEXT(value)、ISNUMBER(value)、ISREF(value)、ISTEXT(value)。

参数：value是需要进行检验的参数。分别为空白(空白单元格)、错误值、逻辑值、文本、数字、引用值或对于以上任意参数的名称引用。

如果函数中的参数为下面的内容，则返回TRUE:ISBLANK的参数是空白单元格，ISERR的参数是任意错误值(除去#N/A)，ISERROR的参数是任意错误值(#N/A、#value!、#REF!、#DIV/0!、#NUM!、#NAME?或#NULL!)，ISLOGICAL的参数是逻辑值，ISNA的参数是错误值#N/A，ISNONTEXT的参数是任意不是文本的内容(此函数在值为空白单元格时返回TRUE)，ISNUMBER的参数是数字，ISREF的参数是引用，ISTEXT的参数是文本。

注意:IS类函数的参数value是不可转换的。在其他大多数需要数字的函数中，文本“19”会被转换成数字19。然而在公式ISNUMBER(“19”)中，“19”并由文本值转换成其他类型的值，而是返回FALSE。

IS类函数用于检验公式计算结果十分有用，它与函数IF结合在一起可以提供一种在公式中查出错误值的方法。

实例：公式“=ISBLANK(“")”返回FALSE，=ISREF(A5)返回TRUE(其中a5为空白单元格)。如果需要计算A1:A4区域的平均值，但不能确定单元格内是否包含数字，则公式AVERAGE(A1:A4)返回错误值#DIV/0!。为了应付这种情况，可以使用公式“=IF(ISERROR(AVERAGE(A1:A4))，”引用包含空白单元格“，AVERAGE(A1:A4))”查出可能存在的错误。

5.ISEVEN

用途：测试参数的奇偶性，如果参数为偶数返回TRUE，否则返回FALSE。

语法：ISEVEN(number)

Number待测试的数值。如果参数值不是整数，则自动截去小数部分取整。

注意:该函数必须加载“分析工具库”方能使用。如果参数number不是数值，ISEVEN函数返回错误值#value!。

实例：公式“=ISEVEN(11)返回FALSE”，=ISEVEN(6)返回TRUE。

6.ISODD

用途：测试参数的奇偶性，如果参数为奇数返回TRUE，否则返回FALSE。

语法：ISODD(number)

参数：Number待测试的数值。如果参数不是整数，则自动截去小数部分取整。

注意:该函数必须加载“分析工具库”方能使用。

实例：公式“=ISODD(19)”返回TRUE，=ISODD(14.5)返回FALSE。7.N

用途：返回转化为数值后的值。

语法：N(value)

参数：value为要转化的值。函数N可以转化下表列出的值:数字返回该数字，日期返回该日期的序列号，TRUE返回1，FALSE返回0，错误值(如#DIV/0!)返回该错误值，其他值返回0。

实例：如果A1包含”7“，A2包含”文件“，A3包含”TRUE“，则公式“=N(A1)”返回7，=N(A2)返回0(因为A2含有文字)，=N(A3)返回1(因为A3含有TRUE)。

8.NA

用途：返回错误值#N/A。#N/A表示“无法得到有效值”。如果使用#N/A标志空白单元格，可以避免不小心将空白单元格计算在内而产生的问题，因为公式引用含有#N/A的单元格时返回错误值#N/A。

语法：NA()

参数：空白单元格

实例：公式“=NA(”“)”返回#N/A。

9.TYPE

用途：返回数值的类型。当某一个函数的计算结果取决于特定单元格中数值的类型时，可使用函数TYPE。

语法：TYPE(value)

参数：value可以是Excel中的数据，如数字、文本、逻辑值等等。

如果value为数字返回1，是文本返回2，逻辑值返回4，错误值返回16，数组返回64。

函数基本性质的突破大全 第3篇

1． 函数的单调性

2． 单调区间的求法及表示

单调区间的求法：定义法、导数法、图象法、复合函数法．

函数的单调区间是函数定义域的子区间，所以在求解函数的单调区间时，必须先求出函数的定义域． 单调区间只能用区间表示，不能用集合或不等式表示；如有多个单调区间应分别写，不能用并集符号“∪”联结，也不能用“或”联结．

3． 函数奇偶性的判断

1． 函数性质是一个系统，在复习中应注意梳理、归纳，但不必一步到位，在后续章节如数列、导数、三角函数等复习中可作进一步渗透．

2． 在解决函数单调性问题时，注意对定义的正用、逆用，可结合图象对不连续函数进行适当研究．

3． 在解决函数奇偶性问题时，注意要先判断定义域，了解奇函数与f（0）=0的关系．

4． 函数周期性主要是在三角函数中作研究，但本部分注意对周期性定义的理解，以及在抽象函数中的简单应用．

5． 函数性质与函数图象密切相关，由性质可以作图，同时由图可观察性质，复习时需加强对数形结合思想的渗透，提高分析问题的能力．

Echo 写入VBS提权 第4篇

Echo 写入VBS提权

，

VBS显示当前标准时间 第5篇

VBS显示当前标准时间，例如：执行下面的代码则显示：-05-11 19:10:11

Option Explicit Dim blnDate, blnTimeDim dtmDateDim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYearDim strISO With WScript.Arguments Check command line arguments If .Unnamed.Count = 0 Then dtmDate = Now If .Unnamed.Count > 0 Then dtmDate = .Unnamed(0) If .Unnamed.Count > 1 Then dtmDate = dtmDate & “ ” & .Unnamed(1) If .Unnamed.Count > 2 Then dtmDate = dtmDate & “ ” & .Unnamed(2) If .Unnamed.Count > 3 Then Syntax On Error Resume Next dtmDate = CDate( dtmDate ) If Err Then On Error Goto 0 Syntax End If On Error Goto 0 If Not IsDate( dtmDate ) Then Syntax intValid = 0 blnDate = True blnTime = True If .Named.Exists( “D” ) Then blnDate = True blnTime = False intValid = intValid + 1 End If If .Named.Exists( “T” ) Then blnDate = False blnTime = True intValid = intValid + 1 End If If intValid .Named.Count Then Syntax If intValid > 1 Then SyntaxEnd With Format the output stringintYear = DatePartLZ( “yyyy”, dtmDate )intMonth = DatePartLZ( “m”, dtmDate )intDay = DatePartLZ( “d”, dtmDate )intHour = DatePartLZ( “h”, dtmDate )intMin = DatePartLZ( “n”, dtmDate )intSec = DatePartLZ( “s”, dtmDate )If blnDate Then strISO = intYear & “-” & intMonth & “-” & intDayIf blnTime Then strISO = strISO & “ ” & intHour & “:” & intMin & “:” & intSec Display the resultWScript.Echo Trim( strISO ) Function DatePartLZ( myInterval, myDate ) Add a leading zero to the DatePart if necessary Dim strDatePart strDatePart = DatePart( myInterval, myDate ) If Len( strDatePart ) < 2 Then strDatePart = “0” & strDatePart DatePartLZ = strDatePartEnd Function Sub Syntax WScript.Echo vbcrlf _ & “Date2ISO.vbs, Version 1.02” _ & vbCrLf _ & “Convert any date/time to ISO date/time” _ & vbCrLf & vbCrLf _ & “Usage: CSCRIPT.EXE //NoLogo Date2ISO.vbs date [ time ] [ /D | /T ]” _ & vbCrLf & vbCrLf _ & “Where: ”“date”“ is the date to convert (default: current date/time)” _ & vbCrLf _ & “ ”“time”“ is the optional time to convert” _ & vbCrLf _ & “ /D return date only (default: both date and time)” _ & vbCrLf _ & “ /T return time only (/D and /T are mutually exclusive)” _ & vbCrLf & vbCrLf _ & “Note: If the specified date is ambiguous, the current users date” _ & vbCrLf _ & “ and time format is assumed.” _ & vbCrLf & vbCrLf _ & “Written by Rob van der Woude” _ & vbCrLf _ & “www.robvanderwoude.com” WScript.Quit 1End Sub

附上一段VBS校对系统时间的代码给大家参考下

VBS校准系统时间 BY BatMan Dim objXML, Url, Message Message = “恭喜你，本机时间非常准确无需校对！” Set bjXML = CreateObject(“MSXML2.XmlHttp”) Url = “open.baidu.com/special/time/” objXML.open “GET”, Url, False objXML.send() Do Until objXML.readyState = 4 : WScript.Sleep 200 : Loop Dim objStr, LocalDate bjStr = objXML.responseText LocalDate = Now() Set bjXML = Nothing Dim objREG, regNum Set bjREG = New RegExp objREG.Global = True objREG.IgnoreCase = True objREG.Pattern = “window.baidu_time((d{13,}))” regNum = Int(objREG.Execute(objStr)(0).Submatches(0)) /1000 Dim OldDate, BJDate, Num, Num1 ldDate = “1970-01-01 08:00:00” BJDate = DateAdd(“s”, regNum, OldDate) Num = DateDiff(“s”, LocalDate, BJDate) If Abs(Num) >=1 Then Dim DM, DT, TM, objSHELL DM = DateAdd(“S”, Num, Now()) DT = DateValue(DM) TM = TimeValue(DM) If InStr(Now, “午”) Then Dim Arr, Arr1, h24 Arr = Split(TM, “ ”) Arr1 = Split(Arr(1), “:”) h24 = Arr1(0) If Arr(0) = “下午” Then h24 = h24 + 12 Else If h24 = 12 Then h24 = 0 End If TM = h24 & “:” & Arr1(1) & “:” & Arr1(2) End If Set bjSHELL = CreateObject(“Wscript.Shell”) objSHELL.Run “cmd /cdate ” & DT, False, True objSHELL.Run “cmd /ctime ” & TM, False, True Num1 = Abs(DateDiff(“s”, Now(), BJDate)) Message = “【校准前】” & vbCrLf _ & “标准北京时间为：” & vbTab & BJDate & vbCrLf _ & “本机系统时间为：” & vbTab & LocalDate & vbCrLf _ & “与标准时间相差：” & vbTab & Abs(Num) & “秒” & vbCrLf & vbCrLf _ & “【校准后】” & vbCrLf _ & “本机系统时间为：” & vbTab & Now() & vbCrLf _ & “与标准时间相差：” & vbTab & Num1 & “秒” Set bjSHELL = Nothing End If WScript.Echo Message