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

zsd5237 · 发表于 2008-5-30 05:09

学习

hhzjxss · 发表于 2008-5-30 10:47

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用八月的梦游者在2008-5-29 19:18:00的发言： 一个小小的提议，调用代码里使用了两次自定义函数的调用，建议先赋值。If 级别工资(str1, str2) <> 0 Then         MsgBox str1 & "级" & str2 & "档的级别工资是：" & 级别工资(str1, str2) & "元。", 0 + 64, "恭喜发财   ^_^"     End If 题外话，从这个级别的数目来看就可以知道官僚系统的复杂性了。</div>谢谢八月版主，这样改对不对？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  八月版主说得对，这个公务员的工资我是简单了表格才做到现在这个函数的，开始只能查表，而且还是许多许多过程不方便弄，所以，目前只有手动确实“级”“档”后，才用这个函数计算，自动计算往往会“没有这个级档”！[em06]

[此贴子已经被作者于2008-5-30 10:49:31编辑过]

644923541 · 发表于 2008-5-30 10:55

看看

ljx63426 · 发表于 2008-5-30 11:54

看看

匆伙丸丑 · 发表于 2008-5-30 12:10

[em02][em02]

dljcj · 发表于 2008-5-30 21:34

看看怎样

一剑惊心 · 发表于 2008-5-30 21:36

学习

yfxpzq · 发表于 2008-5-31 15:15

我们还没加呢

hhzjxss · 发表于 2008-5-31 16:02

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用yfxpzq在2008-5-31 15:15:00的发言： 我们还没加呢</div>全国不是在2006年开始套改了吗，兄弟哪个省，还没加呀？

wugangtxrsj · 发表于 2008-6-2 15:06

好东西

		自动登录	找回密码
密码			注册

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