以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  日期怎么相减呢？？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57225)
--  作者：sanshaoye7717
--  发布时间：2014/9/21 14:02:00
--  日期怎么相减呢？？
在窗口中有2个DateTimePicker控件 ，，分别是开始日期和结束日期  

怎么写代码使得  结束日期-开始日期 =  总天数  

忘记怎么写了   总是string到xxx的转换无效
--  作者：有点甜
--  发布时间：2014/9/21 14:04:00
--  

  参考

 

http://www.foxtable.com/help/topics/0287.htm

 
--  作者：sanshaoye7717
--  发布时间：2014/9/21 14:11:00
--  
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


像这样的话，我就会用了   

Dim js As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")    \'\'结束日期
Dim ks As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")    \'\'开始日期
  
参考中是有具体的日期，如果我把JS定义成DATE
Dim js As date = e.Form.Controls("DateTimePicker1").text    \'\'结束日期
这样肯定是行不通的   那应该怎么定义呢   能让  js - ks
--  作者：有点甜
--  发布时间：2014/9/21 14:13:00
--  
Dim js As Date = e.Form.Controls("DateTimePicker1").Value    \'\'结束日期
Dim ks As Date = e.Form.Controls("DateTimePicker2").Value    \'\'开始日期
--  作者：sanshaoye7717
--  发布时间：2014/9/21 14:20:00
--  
Dim js As Date = e.Form.Controls("DateTimePicker4").value    \'\'结束日期
MessageBox.show(js)
Dim ks As Date = e.Form.Controls("DateTimePicker1").value    \'\'开始日期
Dim t As TimeSpan = js - ks
MessageBox.show(t.Days)

已经这样试过了
用messagebox 可以看到   js显示的是0：00：00
                                     
                                    t.days显示的是 -735464
--  作者：有点甜
--  发布时间：2014/9/21 14:22:00
--  

那是因为你的结束日期没有填入值。
--  作者：sanshaoye7717
--  发布时间：2014/9/21 14:22:00
--  
谢谢甜总

呵呵   知道问题在哪了    太粗心了。