主题：狐表年龄计算

1,修改前的代碼:
If e.DataCol.Name = "出生日期" Then
   
   If e.dataRow.ISNull("出生日期") Then

       e.Datarow("年?") = nothing
 
    Else

        e.dataRow("年?") = Date.Today.Year  - e.dataRow("出生日期").Year

    End If

End If


2,修改後代碼:

If e.DataCol.Name = "出生日期" Then
   
   If e.dataRow.ISNull("出生日期") Then

       e.Datarow("年齡") = nothing
 
    Else

        e.dataRow("年齡") = Date.Today.Year  - e.dataRow("出生日期").Year

    End If

End If

3,輸入一行"出生日期"

4,如下圖所示:

此主题相关图片如下：110.jpg

请参考帮助文件中关于时段数据的部分，正确的代码：

If e.DataCol.Name = "入院日期" OrElse e.DataCol.Name = "出院日期" Then
    If e.dataRow.ISNull("入院日期") Orelse e.dataRow.ISNull("出院日期") Then
       e.Datarow("住院天数") = nothing
    Else
        Dim t As TimeSpan = e.dataRow("出院日期") - e.dataRow("入院日期")
        e.dataRow("住院天数") =  t.Days
    End If
End If

MS OFFICE中有dateif函数（帮助中无此函数说明），很好用。狐表能否移植过来？

foxtable也有：

If e.DataCol.Name = "入院日期" OrElse e.DataCol.Name = "出院日期" Then
    If e.dataRow.ISNull("入院日期") Orelse e.dataRow.ISNull("出院日期") Then
       e.Datarow("住院天数") = nothing
    Else
        e.dataRow("住院天数") = DateDiff("d", e.dataRow("入院日期"), e.dataRow("出院日期"))
    End If
End If

可以看到并没有简单多少，我觉得还是用TimeSpan好点

搭个便车:

在表达式中,如何计算两个日期之间的间隔天数?today函数怎么用?谢谢

Days

返回时段数据的天数。

例如：

Dim d1 as Date = #3/17/2002 12:30:29#
Dim d2 as Date = #1/1/2008 10:11:49#
Dim t As TimeSpan = d2 - d1
Output.Show(t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒")

上述代码的输出结果是：2115天21小时41分20秒

这个不能用在表达式中吧,我是说表达式,而不是计算代码中

NO，只能用于计算代码。
表达式能用的函数，帮助已经说明了。

这个比较遗憾,我想用一个表达式列来计算距离指定日期的倒计时天数,此数据每日一变动态(就像金额列一样),无需保存,看来只能用计算代码了,这样复杂了不少啊,(表达式列函数为什么不能做的强大,丰富一些呢?)

仔细想想,这个也只能用表达式列来做最理想啊

自己参考帮助文件中计算代码这一节，一样可以做到动态更新：

此主题相关图片如下：0898.gif