今天,我要表明如何执行Visual Basic中的舒适之间的日期计算。NET中使用DateDiff函数。
在下面的图片所示,需要一个窗体,按钮,一些标签的DateTimePicker控件:

并会在按钮的Click事件下面的代码:
txtAños.Text= DATEDIFF(DateInterval.Year,DateTimePicker1.Value,Now.Date)&“年” txtMeses.Text = DATEDIFF(DateInterval.Month,DateTimePicker1.Value,Now.Date)&“月” txtSemanas.Text = DATEDIFF(DateInterval.Day,DateTimePicker1.Value,Now.Date)/ 7和“周” txtDias.Text = DATEDIFF(DateInterval.Day,DateTimePicker1.Value,Now.Date)及“天”
运行应用程序,我们选择了一个过去的日期,按计算按钮。 其结果将是类似这个图片:

这是一个非常简单的例子,只要看看一些代码和截图,我敢肯定,你不会有疑虑,但如果你有任何问题,只需留下您的评论。
希望这有助于。
信息Bitacoras.com ...
在Bitacoras.com率:今天,我要说明如何在Visual Basic中的日期之间执行计算的净使用DateDiff函数。 需要一个窗体,按钮,一些标签的DateTimePicker控制,如在FOL所示...
首先感谢你。
我有一个问题。
今天是2009年4月29日,
我出生于1980年9月
根据
txtAños.Text= DATEDIFF(DateInterval.Year,DateTimePicker1.Value,Now.Date)&“年”
现在我已经29岁
但事实并非如此,我有我的生日在九月28日前
并修改代码
再次感谢
彼得,我谨向你一点点的信息:
如果时间间隔设置为DateInterval.Year,返回值是简单地计算从两个给定日期的一年。 同样,为DateInterval.Month返回值是简单地从各方论点一年一个月计算。
例如,比较时年12月31日至明年1月1日起,DateDiff返回1为DateInterval.Year或DateInterval.Month,但只是作为已通过一个单一的一天。
我建议者,例如,经常使用的365 DateInterval.Day范围和鸿沟,并因此将有1更准确的数字:28.65多年(例如)和如果你只是想今年你可以使用的诠释()函数将返回只有部分的数量。
一个很好的例子! 感谢楼上的信息
嘿好后男人谁担任我说实话,到目前为止,帮助作为我grax的相机。
您的文章非常要好的朋友,像你这样的设置在DateTimePicker格式DD / MM / YYYY的我得到由:QA米,1999年5月12日(星期四),真不知道如何
您好约瑟夫:
你只要有改变所有权Formatdel的控制,以及:
DateTimePicker1.Format = DateTimePickerFormat.Short
运气
咨询也许是太容易了,但我可以改变的日期,在datetiempicker显示我看起来像的方式:2009年11月27日(星期五),我只需:27/11/2009。
那会,感谢。
抱歉,评论没有见过的,回答我的问题,感谢。
下午好...我有一个问题...我用两个DateTimePicker控件和2005年在vb.net中,当我选择第二的DateTimePicker的日期,我应该采取区别两个日期之间...函数开始“的valueChanged”第二...如果你运行它,但我总是减有一天,我应该给...例如...如果我离开第一的DateTimePicker(21/12/2009)今天的日期,并在第二个选择的第二天(22/12 / 2009)返回一个0值,如果你选择他23的回报,我值1。 使用的功能如下:
TextBox1.Text = CSTR(DATEDIFF的(DateInterval.Day,DTP_ShipDate.Value,DTP_ETA.Value))
任何人都知道可能是什么情况,请吗?
你好,你怎么样?
我有一个查询,我可以得到公正的FEHA的日子,看我告诉FEHA“01/01/2009”,我需要有一天,我有一个文本框。
我有这个
昏暗的一天作为整数
一天一天(tfecha.text)
我不带任何东西,但放
暗淡的一年将作为整数
一年=年(tfecha.text)
我显示,今年在这里,但我需要的一天
原谅我,因为我使我dataTimerPicker debuelva年 - 月 - 日骨“YYYY / MM / DD”选择一个日期,我需要查询MySQL和保持这种格式的日期(“YYYY / MM / DD” )......
如果我可以做的agradesco指南...在此先感谢。
VB PS如果有功能和使用自定义格式,CustomFormat YYY / MM / DD
非常感谢你的信息。 这是一个很大的帮助。
良好的管理是不是很好的VB和我的工作这一事件,但我得到错误424打小我已经做了,我希望你的帮助
范围(“I-10”)= DATEDIFF(DateInterval.Month,TextBox18.Value,Now.Date)
谢谢。
感谢您的功能很好的朋友以利沙,担任我,但我一个细节,结果给我的DATEDIFF负,遵循,例如你是给予,但平等,试图通过为字符串,整数,CINT,CSTR,并没有一些帮助。
以利沙原谅的麻烦,但良好的解决我的问题,但我觉得你放在参数的顺序反过来,我的意思是1日和2日,然后应该是Date1的Date2的。
以及纠正,现在这样的结果比较挣扎。
嘿朋友谢谢你非常有用
这是很容易的LOL
残余时间后试图找到
我投一个大忙!