Date Calculations - Vb.net

i Have a program in which VB.NET frontEnd and SQL Server2000 at the backend ,that should calculate dates as follows:
RETIREDATE = BIRTHDATE + 60YEARS. BirthDate should be input manually while RETIREDATE should be automatically displayed as a result of adding 60years to BIRTHDATE.The code doesnt work at all as it just keep display a strange RETIREDATE ie 01/01/0001,below is my code ;

VB Code:

Public Overloads Function DateAdd( _
           ByVal Interval As DateInterval, _
           ByVal Number As Integer, _
           ByVal DateValue As DateTime _
        ) As DateTime
        
    End Function

VB Code:

Private Sub txtDOB_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDOB.Leave
        Dim rdate As DateTime
        Dim dob As DateTime
 
        rdate = DateAdd(DateInterval.Year, 60, txtDOB.Text)
        txtRetireDate.Text = rdate.ToShortDateString
    End Sub

note: DOB stands for DATEOFBIRTH
txtRetireDate should be automatically displayed after txtDOB.text being lost focus (on leave event).
Is there any thing wrong with my code bove??please help

How bout using: txtRetireDate.Text = CType(txtDOB.Text, Date).AddYears(60)

Here you convert the text in the textbox to a date before adding to it, using the inherent date manipulation functions. Also, it's a one liner.

I would lean toward a date control as opposed to a textbox as it only allows correct dates. If you leave it up to a textbox, you are going to need to validate the date or else it will throw an exception and crash.

nJoy :D

The code looks good. Is there any reason your overloading the DatAdd though? When you overload something like that, you're saying "do this instead of what you would normally do." Since you don't have any code in there (whether you left it out intentionally or not); it's not performing the same way as it used to.

If you need to overload it for whatever reason, but still want the same functionality, you can add:

VB Code:

Return Microsoft.VisualBasic.DateAdd(Interval, Number, DateValue)

To your overloaded function. Otherwise, if you're not using it for anything; you can just remove it and let the Fx do what it intended to.

Just use the .AddYears method of the Date Class...

Code:

---

        Dim MyBirthDay As Date = Date.Parse("01/07/1980")
        Dim MyRetireDay As Date = MyBirthDay.AddYears(60)
        MessageBox.Show(MyRetireDay.ToString)

---

Use a DateTimePicker for the date of birth and a ReadOnly TextBox for the retirement date. You would then just use this code in the DTP's Leave event handler:

Code:

---

myTextBox.Text = myDateTimePicker.Value.AddYears(60).ToShortDateString()

---

You would probably be better using the ValueChanged event of the DTP though, as unlike a TextBox it will always have a valid date in it.

thanks very much guys...your suggestions worked fine ie make use of DTP and Ctype in my code.
But still I have one more problem with a DateDiff function as follows;I just want to display number of months elapsed between two years ie HIREDATE and RETIREDATE..I have been struggling hard to use DateDIFF function but upto now am getting a zero(0 )as number of months elapsed.Below is my code;

VB Code:

Public Function DateDiff( _
        ByVal Interval As DateInterval, _
        ByVal Date1 As Date, _
        ByVal Date2 As Date) As Double
    End Function

VB Code:

Private Sub DateTimePicker3_Leave(ByVal sender As Object, ByVal e As    System.EventArgs) Handles DateTimePicker3.Leave
 
txtElapsed.Text = DateDiff(DateInterval.Month, DateTimePicker3.Value, txtRetireDate.Text)
 
End SUb

note: txtElapsed is an integer value in the SQL Server database.
DateTimePicker3.Value handles HIREDATE.
Any suggestion will be highly appreciated!!!
tHANKS

Again, your datatype conversions (or lack of them) are breaking your code...

try txtElapsed.Text = DateDiff(DateInterval.Month, DateTimePicker3.Value, CType(txtRetireDate.Text, Date))

Remember... you always want to convert the values inside a textbox that are not supposed to be strings to the correct datatype :D

Don't use DateDiff... there are methods of the date and datetime class that can do this.. like the .Subtract method of the date class... look at your other thread for my example :)

Quote:

---

Originally Posted by Rockhopper

Again, your datatype conversions (or lack of them) are breaking your code...

try txtElapsed.Text = DateDiff(DateInterval.Month, DateTimePicker3.Value, CType(txtRetireDate.Text, Date))

Remember... you always want to convert the values inside a textbox that are not supposed to be strings to the correct datatype :D

---

thanks for the tip BUT your suggestion didnt worked out...it still give out a zero value as the difference...belo is the code;
txtElapsed.text = DateDiff(DateInterval.Month, DateTimePicker3.Value, CType(txtRetireDate.Text, Date))

I don't know how many times I can say this.. but the Date class has ALL of these methods you are wanting to find. You can display total days, total months, total years, etc of the difference, and its VERY easy, if you use the Date Class... There is NO need for DateDiff, but if you wish to still use it, it is up to you...

I must apologize Kenone :) I did in your other thread. DateDiff IS what you need, and an example is in your other thread here :

http://www.vbforums.com/showthread.php?p=2342389

It is in the Microsoft.VisualBasic namespace, and not the compatibility namespace, so it is ok to use!! without people saying it is "old vb6 ways" hehe...

Anyway.. smack me around a few times for steering you in the wrong direction, and look at the other thread for a very simple example of getting total months...