请诸位师傅前辈帮我看一下我的自定义函的从代码到调用有没有问题？谢谢！
自定义函数的名称是"gapTuition"
以下是自定义函数代码：
Dim ds As Date = args(0)
Dim da As Date = args(1)
Dim pp As Decimal = args(2)
Dim pc As Decimal = args(3)
Dim gap As Decimal = args(4)
Dim i As Integer
i = ds.DayOfWeek
ds = ds.AddDays(1-i) '以周一为参照时间
da = da.AddDays(1-i) '以周一为参照时间
i = Int(((da-ds).TotalDays+1)/7)+1
If da.DayOfWeek = 1 Then
i = i+1
End If
gap = (pc-pp)*i
Return gap
以下是调用自定义函数的代码：
Functions.Execute("gapTuition",CurrentTable.Current("dateStart"),CurrentTable.Current("dateAlt"),CurrentTable.Current("priPrev"),CurrentTable.Current("priCurr"),CurrentTable.Current("gapTuition"))
[此贴子已经被作者于2013-6-2 19:06:15编辑过]
加好友 
发短信
Post By：2013/6/1 12:50:00 [显示全部帖子]
