15,882,956 members
See more:
I am working on an mysql project in vb.net . I want to generate the retirement date automatically at the age of 60 years while filling the date of Birth. i.e.
if the Date of birth is `15/1/1950` then the date of retirement will be `31/1/2010`
and
if the date of birth is `01/1/1950` then the date of retirement will be `31/12/2009`
Posted
Updated 7-Jan-14 20:47pm
v2

## Solution 1

You can use the DateTime.Addyears method to calculate the date 60 years ahead, then subtract 1 day.

## Solution 2

vba code

Function RetiringDate(DOB As Date) As Date
Dim dob_day, dob_mnth, dob_yr, ret_day, ret_mnth, ret_yr As Long

dob_day = Day(DOB)
dob_mnth = Month(DOB)
dob_yr = Year(DOB)

If dob_day = 1 And dob_mnth = 1 Then
ret_mnth = 12
ret_yr = (dob_yr + 60) - 1
ElseIf dob_day = 1 Then
ret_mnth = dob_mnth - 1
ret_yr = (dob_yr + 60)
Else
ret_mnth = dob_mnth
ret_yr = (dob_yr + 60)
End If

If ret_mnth = 1 Or ret_mnth = 3 Or ret_mnth = 5 Or ret_mnth = 7 Or _
ret_mnth = 8 Or ret_mnth = 10 Or ret_mnth = 12 Then
ret_day = 31
ElseIf ret_mnth <> 2 Then
ret_day = 30
Else
ret_day = 28
End If

RetiringDate = CDate(ret_yr & "/" & ret_mnth & "/" & ret_day)
End Function

CHill60 16-Mar-15 4:22am
Question is over a year old, answered and tagged VB.NET not VBA
Kissu Pandey 13-Sep-23 8:41am
Thanks sir,,🥰🥰🥰🥰😍😚😙😗😗😃😄😘😆🥰😂🤣😭😅😁😃😰😨😨😦😮😲😳🙁🙄😥😞🤗🤗😬😬😐😶🤐🤐🤫🤭🤭😠😠☹️😥😥😟😞😱🤨🤨🧐😒🙄🙄😤🤫😠😤😤😤🤐😒😐😑😱🤬😰😰😨😧😦😮😲😳🤯😕😡🥱🤭🙄🧐🤨🤓🤑😇🤥🤕🤒🤧😎😎🤡😈👿👻🎃💩👺🔥💯💫🌟💥💨😺🙉🙈🕳️💤💦💦💛💚💙💜🤎🖤🤍💘❣️♥️💌💓💗💖💔💔💋🫂👥👤👣🧠🫀👏👍👎🙌👐🤲🤝🤜🤛✊👊👋🤚🖐️✋🖖🤟🤘
Kissu Pandey 13-Sep-23 9:44am
How to make a software in vb.net
CHill60 13-Sep-23 9:52am