- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于日期计算和自动判断取值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30967)
-- 发布时间：2013/4/8 7:01:00
-- [求助]关于日期计算和自动判断取值
小弟新手 有两个问题求助大神帮忙 感激不尽 具体描述如下
疑难问题：
1： 日期计算
2： 工资标准调用 （判断）
此主题相关图片如下：疑难.png
问题1 具体描述：
如上图所示，请大神帮助解决怎样自动计算工龄 （ 工龄 = 电脑当前时间 – 工作开始日期 ） 注：工龄按月结算，每月从15号起计入一月。 比如员工2013年4月1日入职，今天是4月7日，工龄就为0，到了4月16日其工龄为1.
问题2具体描述：
表A中的 [工资标准] 怎样才能根据 [工资级别] 在 表B工资标准表中找到其相应值并取值回到表A中呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资管理.table |
-- 发布时间：2013/4/8 9:28:00
--
Dim lmt As String = "工作开始日期"
Select Case e.DataCol.name
Case lmt
If e.DataRow.IsNull(lmt) Then
e.DataRow("工龄") = Nothing
Else
Dim y,m,d As Integer
DateYMD(e.DataRow(lmt),Date.Today,y,m,d)
e.DataRow("工龄") = 12*y+m +iif(Date.Today.Day >14,0,-1)
End If
End Select
[此贴子已经被作者于2013-4-8 12:10:15编辑过]
-- 发布时间：2013/4/8 10:26:00
--
超级感谢大神 muhua 和 FoxMan 的帮助， 非常有用，第一个问题已经解决。 只是第二个问题还在郁闷中， 怎样用 find 使用 表A的"工资等级" 来在 表B中找到对应的值呢？
-- 发布时间：2013/4/8 10:31:00
--
http://www.foxtable.com/help/topics/1451.htm
[此贴子已经被作者于2013-4-8 10:31:15编辑过]
-- 发布时间：2013/4/8 11:05:00
--
问题已解决！ 超级感谢大家的帮助！ 
再次感谢 FoxMan, XYT, 和 muhua 的解惑。