- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 老师 求帮助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71030)
-- 发布时间：2015/7/3 14:42:00
-- 老师 求帮助
我想比较两个数的大小 后 取 小的数进行计算后填入 怎么做？
-- 发布时间：2015/7/3 14:48:00
--
Dim n1 As Double = 123
Dim n2 As Double = 456
Dim n As Double = Math.Max(n1, n2)
msgbox(n)
-- 发布时间：2015/7/3 15:02:00
--
我想做这样一个表 公式在表里面 老师 用什么 方法做呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资.xls |
-- 发布时间：2015/7/3 15:04:00
--
加班工资的 有点麻烦 最后是比较两天的数值的
要比较那个数值小 取值后乘以一个系数
-- 发布时间：2015/7/3 15:05:00
--
你excel文件想表达什么？
做foxtable的例子上来
-- 发布时间：2015/7/3 15:07:00
--
做具体的foxtable例子上，说明运算规则。
-- 发布时间：2015/7/3 15:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资管理.table |
课时明细表中的加班工资栏
取数是比较星期六和星期天哪天的合计工资小（6日（星期六）和7日（星期天））比较那天的工资金额小 （取小的） 则乘以0.8 的数计入加班工资
比如6日是75+50=125 7日是50+50=100 这样就取100元乘以0.8 = 80元填入加班工资
谢谢
-- 发布时间：2015/7/3 15:55:00
--
Select Case e.DataCol.Name
Case "单价", "人数"
Dim wd As Integer = Cdate(e.DataRow("日期")).DayOfWeek
Dim d1,d2 As Date
If wd = 6 Then
d1 = e.DataRow("日期")
d2 = d1.addDays(1)
Else
d1 = e.DataRow("日期").AddDays(-1)
d2 = e.DataRow("日期")
End If
Dim f1 As String = "老师姓名=\'" & e.DataRow("老师姓名") & "\' and 日期 = \'" & d1 & "\'"
Dim f2 As String = "老师姓名=\'" & e.DataRow("老师姓名") & "\' and 日期 = \'" & d2 & "\'"
Dim sum1 As Double = e.DataTable.Compute("sum(课时费)",f1)
Dim sum2 As Double = e.DataTable.Compute("sum(课时费)",f2)
Dim sum As Double
If sum1 > sum2 Then
sum = sum2 * 0.8
Else
sum = sum1 * 0.8
End If
e.DataTable.ReplaceFor("加班工资", sum, f1)
e.DataTable.ReplaceFor("加班工资", sum, f2)
End Select
-- 发布时间：2015/7/3 17:59:00
--
错误的
-- 发布时间：2015/7/3 17:59:00
--
此主题相关图片如下：qq图片20150703175741.png