事业单位工资晋级自定义函数，你需要不需要？

新的工资政策从2006年开始，事业单位每年都要进行一次工资晋级，所以搞人事的朋友就需要每年都为亮事查表，需要花费很多时间，现在网上找到，并补充了几下工资的自定义函数，只要输入相对参数，就能自动的查找相对应的工资，看看大家需要不需要，需要的话，我就传上来！

five123

2008年06月01日 13:44:52

2楼

需要啊，可以查查今年我应该涨多少了
期待ing

hhzjxss

2008年06月02日 08:42:52

3楼

以下函数是湖南省公务员的，其他省可根据情况调整工资金额：

Function 级别工资(a, b)
On Error GoTo abc
Dim 工资 As Variant
Dim 级别 As Variant
Dim str As String
Dim i%
工资 = Array(290, 316, 342, 320, 347, 374, 401, 380, 408, 436, 464, 386, 416, 446, 476, 506, 536, 455, 488, 521, 554, 587, 620, 461, 498, 535, 572, 609, 646, 683, 720, 545, 586, 627, 668, 709, 750, 791, 832, 551, 596, 641, 686, 731, 776, 821, 866, 911, 956, 651, 700, 749, 798, 847, 896, 945, 994, 1043, 658, 711, 764, 817, 870, 923, 976, 1029, 1082, 1135, 776, 833, 890, 947, 1004, 1061, 1118, 1175, 1232, 847, 908, 969, 1030, 1091, 1152, 1213, 1274, 1335, 859, 924, 989, 1054, 1119, 1184, 1249, 1314, 1379, 1444, 1007, 1076, 1145, 1214, 1283, 1352, 1421, 1490, 1559, 1628, 1024, 1098, 1172, 1246, 1320, 1394, 1468, 1542, 1616, 1690, 1196, 1275, 1354, 1433, 1512, 1591, 1670, 1749, 1828, 1907, 1302, 1387, 1472, 1557, 1642, 1727, 1812, 1897, 1982, 1324, 1416, 1508, 1600, 1692, 1784, 1876, 1968, 2060, 2152, 1538, 1638, 1738, 1838, 1938, 2038, 2138, 2238, 1560, 1669, 1778, 1887, 1996, 2105, 2214, 2323, 1818, 1936, 2054, 2172, 2290, 2408, 2526, 1996, 2122, 2248, 2374, 2500, 2626, 2334, 2466, 2598, 2730, 2862)
级别 = Array(271, 272, 273, 261, 262, 263, 264, 252, 253, 254, 255, 241, 242, 243, 244, 245, 246, 232, 233, 234, 235, 236, 237, 221, 222, 223, 224, 225, 226, 227, 228, 212, 213, 214, 215, 216, 217, 218, 219, 201, 202, 203, 204, 205, 206, 207, 208, 209, 2010, 192, 193, 194, 195, 196, 197, 198, 199, 1910, 181, 182, 183, 184, 185, 186, 187, 188, 189, 1810, 172, 173, 174, 175, 176, 177, 178, 179, 1710, 162, 163, 164, 165, 166, 167, 168, 169, 1610, 151, 152, 153, 154, 155, 156, 157, 158, 159, 1510, 142, 143, 144, 145, 146, 147, 148, 149, 1410, 1411, 131, 132, 133, 134, 135, 136, 137, 138, 139, 1310, 122, 123, 124, 125, 126, 127, 128, 129, 1210, 1211, 112, 113, 114, 115, 116, 117, 118, 119, 1110, 101, 102, 103, 104, 105, 106, 107, 108, 109, 1010, 92, 93, 94, 95, 96, 97, 98, 99, 81, 82, 83, 84, 85, 86, 87, 88, 72, 73, 74, 75, 76, 77, 78, 62, 63, 64, 65, 66, 67, 53, 54, 55, 56, 57)
str = a & b
For i = 0 To 179
If str = 级别(i) Then
Exit For
End If
Next i
级别工资 = 工资(i)
Exit Function
abc:
MsgBox "没有这个*级档*，请重新输入！", 0 + 16, "提个醒"
End Function

hhzjxss

2008年06月02日 08:44:14

4楼

测试代码：

Sub test()
Dim str, str1, str2 As String
Dim j%, k%
str = InputBox("请输入级档", "查询", "27-1")
j = InStr(1, str, "-", vbTextCompare)
str1 = Left(str, j - 1)
str2 = Right(str, Len(str) - j)
k = 级别工资(str1, str2)
If k <> 0 Then
MsgBox str1 & "级" & str2 & "档的级别工资是：" & k & "元。", 0 + 64, "恭喜发财 ^_^"
End If
End Sub