hhzjxss
发表于 2008-5-29 12:31
事业单位公务员晋级工资自定义函数（湖南）
<p>看到有人在网上发了个新级工资的自定义函数，感觉很有用，我这次做工资的时候，也做了一个事业单位公务员晋级工资自定义函数，是以湖南省的为模板的，不是湖南省的，请自行修改数据后再使用！</p><p>
**** Hidden Message *****</p><p> </p><br/>
[此贴子已经被作者于2008-5-29 12:32:57编辑过]
hhzjxss
发表于 2008-5-29 12:32
<p>测试代码：</p><p><br/>Sub test()<br/>Dim str, str1, str2 As String<br/>Dim j%<br/> str = InputBox("请输入级档", "查询", "27-1")<br/> j = InStr(1, str, "-", vbTextCompare)<br/> str1 = Left(str, j - 1)<br/> str2 = Right(str, Len(str) - j)<br/> If 级别工资(str1, str2) <> 0 Then<br/> MsgBox str1 & "级" & str2 & "档的级别工资是：" & 级别工资(str1, str2) & "元。", 0 + 64, "恭喜发财 ^_^"<br/> End If<br/>End Sub</p><p><br/></p>不足之处，请大家修改完善！
[此贴子已经被作者于2008-5-29 12:32:25编辑过]
过江龙
发表于 2008-5-29 12:34
可能有用
xxx936
发表于 2008-5-29 15:23
xuexi
天使兰优
发表于 2008-5-29 15:24
<p>看看</p>
tuyghun
发表于 2008-5-29 18:08
<div style="MARGIN-TOP: 10px; FONT-SIZE: 10pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; WORD-WRAP: break-word;"><p>看看</p><br/></div>
八月的梦游者
发表于 2008-5-29 19:13
<p>看看加多少钱。</p>
八月的梦游者
发表于 2008-5-29 19:18
<p>一个小小的提议，调用代码里使用了两次自定义函数的调用，建议先赋值。</p><p>If 级别工资(str1, str2) <> 0 Then<br/> MsgBox str1 & "级" & str2 & "档的级别工资是：" & 级别工资(str1, str2) & "元。", 0 + 64, "恭喜发财 ^_^"<br/> End If<br/></p><p>题外话，从这个级别的数目来看就可以知道官僚系统的复杂性了。</p>
老糊涂
发表于 2008-5-29 19:47
谢谢交流，先下载看看，学习了。
wgxfhi11
发表于 2008-5-29 19:53
<p>学习学习</p>
页:
[1]
2
3
4
5
6
7
8
9
10