The length of a Mercurian year is 88 Earth days. Write a program that requests your date of birth and computes your Mercurian age. See the figure below.
Suggested Control Names and Attributes:
|Name Property||Text Property||Control Type||Notes|
|frmMercuryAge||Mercury Age||Form||Holds Controls|
|mtbDateOfBirth||MaskedTextBox||Captures date of birth|
|btnCompute||Compute Age on Mercury||Button||Triggers event to display Mercurian age|
|txtToday||TextBox||Displays current date|
|txtMercuryAge||TextBox||Displays age on Mercury|
- For mtbDateOfBirth, set the Masked property to Date.
- For txtToday and txtMercuryAge, set the Read Only property to True.
- To calculate the years on Mercury, first calculate the total number of days that have elapsed since the date of birth by using the DateInterval function. Divide the total number of days by 88 to get the age on Mercury.
Write the Code:
' Project: Age on Mercury ' Programmer: Your Name Here ' Date: July 17, 2014 ' Description: Receives the user's name as input. ' Displays the user's age if he was on the planet mercury. Public Class frmMercuryAge Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim todaysDate As Date = Today Dim dateOfBirth As Date = CDate(mtbDateOfBirth.Text) Dim ageInDays As Double = DateDiff(DateInterval.Day, dateOfBirth, todaysDate) Dim mercuryAge As Double = ageInDays / 88 txtToday.Text = Today.ToString("d") txtMercuryAge.Text = mercuryAge.ToString("N") & " Mercurian years." End Sub End Class