事业单位公务员晋级工资自定义函数（湖南）

hhzjxss

<p>看到有人在网上发了个新级工资的自定义函数，感觉很有用，我这次做工资的时候，也做了一个事业单位公务员晋级工资自定义函数，是以湖南省的为模板的，不是湖南省的，请自行修改数据后再使用！</p><p>&nbsp;

游客，如果您要查看本帖隐藏内容请回复

</p><p>&nbsp;</p><br/>

[此贴子已经被作者于2008-5-29 12:32:57编辑过]

hhzjxss

<p>测试代码：</p><p><br/>Sub test()<br/>Dim str, str1, str2 As String<br/>Dim j%<br/>&nbsp;&nbsp;&nbsp; str = InputBox("请输入级档", "查询", "27-1")<br/>&nbsp;&nbsp;&nbsp; j = InStr(1, str, "-", vbTextCompare)<br/>&nbsp;&nbsp;&nbsp; str1 = Left(str, j - 1)<br/>&nbsp;&nbsp;&nbsp; str2 = Right(str, Len(str) - j)<br/>&nbsp;&nbsp;&nbsp; If 级别工资(str1, str2) &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox str1 &amp; "级" &amp; str2 &amp; "档的级别工资是：" &amp; 级别工资(str1, str2) &amp; "元。", 0 + 64, "恭喜发财&nbsp;&nbsp; ^_^"<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</p><p><br/></p>不足之处，请大家修改完善！

[此贴子已经被作者于2008-5-29 12:32:25编辑过]

过江龙

可能有用

xxx936

xuexi

天使兰优

<p>看看</p>

tuyghun

<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>

八月的梦游者

<p>看看加多少钱。</p>

八月的梦游者

<p>一个小小的提议，调用代码里使用了两次自定义函数的调用，建议先赋值。</p><p>If 级别工资(str1, str2) &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox str1 &amp; "级" &amp; str2 &amp; "档的级别工资是：" &amp; 级别工资(str1, str2) &amp; "元。", 0 + 64, "恭喜发财&nbsp;&nbsp; ^_^"<br/>&nbsp;&nbsp;&nbsp; End If<br/></p><p>题外话，从这个级别的数目来看就可以知道官僚系统的复杂性了。</p>

老糊涂

谢谢交流，先下载看看，学习了。

wgxfhi11

<p>学习学习</p>