日期:2014-05-18  浏览次数:20455 次

欢迎进来帮下忙!谢谢
一个日历控件文本框     一个文本框       输入生日后,就要直接出年龄   怎么做啊,哪位提供下代码   谢谢

------解决方案--------------------
好像没有现成的 需要对控件进行修改
------解决方案--------------------
很简单的,就是把自己的生日日期与当前的日期做一个差就行了啊!
------解决方案--------------------
同意楼上。当前日期减去输入的生日年份就行了
------解决方案--------------------
Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim DatTim1 As Date = Calendar1.SelectedDate ' This is a birthday
Dim DatTim2 As Date = Date.Now ' This is the now time

Dim WD As Long = DateDiff(DateInterval.Year, DatTim1, DatTim2)
Label1.Text = WD
End Sub
试试吧!我运行时没有问题的
------解决方案--------------------
js写最好