|
|
b12oGC7N.rar
(64.89 KB, 下载次数: 266)
详细说明：
本函数库现仅包含以下函数：
一、EHElapsed(StartDate As Date, EndDate As Date, ReturnType As Integer)
这个函数的功能在于精确计算两日期的差值，精确到天，特别适用于工龄等处的计算。具体使用（甚至于源代码）已在Excel Home上进行无保留公布，在此即不复述。
二、EHDXRMB(Arab_number,Type)
这个函数的功能在于将指定的阿拉伯数字转换成相应的中文大写金额。被转换数字的有效数字最高为12位。
参数Arab_number为要转换的阿拉伯数字，可以为数字，数学表达式及单元格引用。
参数Type可选，如果其值为1或省略，则函数直接截取掉Arab_number两位以后的小数部分；如果其值为2，则函数对Arab_number两位以后的小数进行四舍五入。依此类推。
例如：EHDXRMB(1348.1)="壹仟叁佰肆拾捌元壹角整"
EHDXRMB(20005.08)="贰万零伍元零捌分"
如果单元格A1=400，则EHDXRMB(A1)="肆佰元整"
三、EHPItax(Income, Option, Tax_deduction)
这个函数的功能在于根据工资、薪金值计算应纳个人所得税额及相应税率、速算扣除数。
参数Income必填，其为要计算的个人工资、薪金值。
参数Option可选，选择计算目标。如果不填，则默认值为1。当选择1时，函数将计算个人所得税额；当选择2时，函数将计算个人所得税率；当选择3时，函数将计算速处扣除数。
参数Tax_deduction可选，其为计算应纳税所得额的工资扣除数，如果不填，则默认值为800。
例如：EHPItax(1355)=30.5
EHPItax(1355,1,1000)=17.75
EHPItax(2533,2)=10%
EHPItax(2533,3)=25
如果单元格A1=3350，则EHPItax(A1)=257.5
四、EHPItaxC(Income, Option, Tax_deduction)
这个函数的功能与用法与EHPItax相同，只不过计算基础是不含税工资。也就是在单位或个人为纳税义务人负担税款时，计算应纳税额及相关数据。
五、EHDXE(Arab_number,Type)
这个函数的功能在于将指定的阿拉伯数字转换成相应的美元金额。被转换数字的有效数字最高为12位。
参数Arab_number为要转换的阿拉伯数字，可以为数字，数学表达式及单元格引用。
参数Type可选，如果其值为1或省略，则函数直接截取掉Arab_number两位以后的小数部分；如果其值为2，则函数对Arab_number两位以后的小数进行四舍五入。依此类推。
例如：ehdxe(1053.2)="one thousand fifty-three and cents twenty only"
ehdxe(10000)="ten thousand only"
ehdxe(10048303.09)="ten million forty-eight thousand three hundred three and cents nine only"
六、EHDXEC(Arab_number,Type)
这个函数的功能在于将指定的阿拉伯数字转换成相应的英文数字。被转换数字的有效数字最高为12位。本函数与EHDXE()的区别在于对于小数部分的转换方式不同，前者适用于金额结算时使用，而本函数则按标准读法进行转换。
参数Arab_number为要转换的阿拉伯数字，可以为数字，数学表达式及单元格引用。
参数Type可选，如果其值为1或省略，则函数直接截取掉Arab_number两位以后的小数部分；如果其值为2，则函数对Arab_number两位以后的小数进行四舍五入。依此类推。
例如：ehdxe(1053.2)="one thousand and fifty-three point twenty"
ehdxe(10000)="ten thousand"
ehdxec(10048303.09)="ten million forty-eight thousand three hundred and three point nine"
七、EHevo(number,power)
这个函数的功能在于对指定的数字进行开整数次方的计算。
参数number为要开方的数字，即底数，可以为数字，数学表达式及单元格引用。
参数power为开方的幂数，可选，缺省值为2。幂数必须为整数，非整数参数将被自动舍去小数部分。
例如：ehevo(8,3)=2
ehevo(4)=2
八、EHDcom(Source,Database)
此函数用于搜索目标字符串与数据列表中相匹配的值。
参数Source为目标字符串。
参数Database为数据列表区域。接受来自任意工作簿任意工作表的任意一列数据。
例如：A1、A2、A3值为“我爱北京天安门”“南京路上好八连”“桂林山水甲天下”；B1、B2、B3、B4值为“北京”“桂林”“南京”“杭州”，则
EHDcom(A1,B1:B4) = “北京”
EHDcom(A2,B1:B4) = “南京”
九、EHInStrCount(UserStr, StrStart, StrQuantity)
此函数用于统计出一个字符串内某字符或字符串出现的次数。
参数UserStr为目标字符串。
参数StrStart为用于比较的字符或字符串在UserStr中出现的起始位置。参数StrQuantity为用于比较的字符或字符串的长度，可选，默认值为1。如UserStr为“ABCD”，StrStart为1，StrQuantity为1的话，则用于比较的字符是“A”；如UserStr为“ABCD”，StrStart为2，StrQuantity为1的话，则用于比较的字符是“B”；如UserStr为“ABCD”，StrStart为2，StrQuantity为2的话，则用于比较的字符是“BC”。
例如：A1为“ABCDABC”，则EHInStrCount(A1，1)=2
EHInStrCount(A1,4)=1
EHInStrCount(A1,1,2)=2
EHInStrCount(A1,1,4)=1
十、EHInStrCountS(UserStr, ComPareStr)
此函数用于统计出一个字符串内某字符或字符串出现的次数。
参数UserStr为目标字符串。
参数ComPareStr为用于比较的字符或字符串。
例如：A1为“ABCDABC”，则
EHInStrCount(A1,"D")=1
EHInStrCount(A1,"AB")=2
EHInStrCount(A1,"ABCD")=1
十一、EHSuperSumR(FirstCell, LastCell, Odd_Even)
此函数用于计算某列数据中位于奇数或偶数行的数据。行号为奇数则视该行为奇数行，反之为偶数行。
参数FirstCell为计算列中的数据起始单元格。
参数LastCell为计算列中的数据结束单元格。
参数Odd_Even为定义计算的奇偶属性。1表示计算奇数行，2表示计算偶数行。可不填，默认是1，即计算奇数行的数据。
例如：A1:A10的值分别为1-10，则
EHSuperSumR(A1,A10,1)=25
EHSuperSumR(A1,A10,2)=30
EHSuperSumR(A1,A10)=25
十二、EHSuperSumC(FirstCell, LastCell, Odd_Even)
此函数用于计算某行数据中位于奇数或偶数列的数据。列标为奇数则视该列为奇数列，反之为偶数列。
参数FirstCell为计算行中的数据起始单元格。
参数LastCell为计算行中的数据结束单元格。
参数Odd_Even为定义计算的奇偶属性。1表示计算奇数列，2表示计算偶数列。可不填，默认是1，即计算奇数列的数据。
例如：A1:H1的值分别为1-8，则
EHSuperSumC(A1,H1,1)=16
EHSuperSumC(A1,H1,2)=20
EHSuperSumC(A1,H1)=16
[em08] 传上来与大家分享(虽是个免费版的, 但在计算结果处会多了一点......) |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2006-5-23 09:21
