[求助]时间计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]时间计算

共有14305人关注过本帖树形打印复制链接主题：[求助]时间计算

hhbb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/5/14 13:06:00 [显示全部帖子]

Dim d1 as Date = #3/17/2002 12:30#
Dim d2 as Date = #1/1/2008 18:30#
Dim t As TimeSpan = d2 - d1
Output.Show(t.TotalDays & "天")

AddMonths

给日期值加上指定的月数。

语法：

AddMonths(Value)

Value: 要加上的月数，可以是负数也可以是正数。

例如：

Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddMonths(10) '加上10个月
Dim d2 As Date = d.AddMonths(-10) '减去10个月
Output.Show("10个月后的日期：" & d1)
Output.Show("10个月前的日期：" & d2)

hhbb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/5/14 15:09:00 [显示全部帖子]

DataColChanged事件:

If e.DataRow.IsNull("避孕情况开始日期") = False AndAlso e.DataRow.IsNull("避孕情况开始日期") = False Then
    e.DataRow("手术间隔") = ( e.DataRow("避孕情况开始日期")- e.DataRow("最小子女出生日期")).TotalDays
    If e.DataRow("避孕情况") = "男扎" Then
        e.DataRow("男扎停药时间") = e.DataRow("避孕情况开始日期").AddMonths(6)
    End If
End If

下一主题 >> << 上一主题

主题：[求助]时间计算