主题：[求助]时间计算

此主题相关图片如下：未命名.jpg

1、手术间隔等于  避孕情况开始日期  减  最小子女出生日期     想得的结果是多少天，表达式怎么写？

2、男扎停药时间，指男扎后要用半个月（6个月）的药后停药，以就是避孕开始日期加6个月后的时间，想得的结果为时间，表达式怎么写？

 

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)

参考：时段概述章节：

 

 

Dim t0 As New TimeSpan(10,0,5)
Dim t1 As New TimeSpan(40,6,30,15)
Dim t2 As New TimeSpan(40,20,45)
Dim t3 As TimeSpan
t3 = t1.Subtract(t2) 't3等于t1减去t2
t3 = t3.Add(t0) 't3加上t0
Output.Show(t3.Days & "天" & t3.Hours & "小时" & t3.Minutes & "分" & t3.Seconds & "秒")

在命令窗口执行上述代码，得到的输出结果是：39天0小时9分35秒

我怎么搞不定，在手术间隔里，，，，男扎停药时间里，具体怎么写，请高手给我写出来，谢谢！！

我怎么搞不定，在手术间隔里，，，，男扎停药时间里，具体怎么写，请高手给我写出来，谢谢！！

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