Question

tick bitwise Or operation Work with dates and times Exercise 9-1 In this exercise, you'll use the Date Time and TimeSpan st I. Open the application th ructures. n that's in the CIVB 2015iChapter 09DateHandlin a form that accepts a future date a directory. Within this project, you'll find a birth date and provides buttons for calculating day clicks the Calculate Due Days button. Use the IsDate function to mak and the date entry is valid, and display the results in a message box likehu 2. Ad code to calculate the due days when the user enters a future date an Due Days Calculation Current date: 8/25/2016 Future date: 9/23/2016 Days until due: 29 ok 3. Test your code with a variety of date formats to see what formats can be successfully parsed. When you're done, close the form. Add code to calculate the age when the user enters a birth date and clicks the Calculate Age button. Use the IsDate function to make sure the date ent 4. valid, and display the results in a message box like this: ry is Age Calculation Current date: 8/25/2016 Birth date: 10/5/1947 Age 68 OK 5. Test your code to make sure it works for all dates. Then, close the solution.

UI:

Provided Code:

Public Class Form1

Private Sub btnExit_Click(sender As Object,
e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub

Private Sub btnCalculateDueDays_Click(sender As Object, e As EventArgs) Handles btnCalculateDueDays.Click

End Sub
End Class

Answer 1

VB Code:

File: Form1.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.txtFutureDate = New System.Windows.Forms.TextBox()
        Me.txtBirthDate = New System.Windows.Forms.TextBox()
        Me.btnCalculateDueDays = New System.Windows.Forms.Button()
        Me.btnCalculateAge = New System.Windows.Forms.Button()
        Me.btnExit = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(27, 31)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(98, 13)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Enter a future date:"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(27, 61)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(88, 13)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "Enter a birthdate:"
        '
        'txtFutureDate
        '
        Me.txtFutureDate.Location = New System.Drawing.Point(131, 28)
        Me.txtFutureDate.Name = "txtFutureDate"
        Me.txtFutureDate.Size = New System.Drawing.Size(100, 20)
        Me.txtFutureDate.TabIndex = 2
        '
        'txtBirthDate
        '
        Me.txtBirthDate.Location = New System.Drawing.Point(131, 58)
        Me.txtBirthDate.Name = "txtBirthDate"
        Me.txtBirthDate.Size = New System.Drawing.Size(100, 20)
        Me.txtBirthDate.TabIndex = 3
        '
        'btnCalculateDueDays
        '
        Me.btnCalculateDueDays.Location = New System.Drawing.Point(258, 28)
        Me.btnCalculateDueDays.Name = "btnCalculateDueDays"
        Me.btnCalculateDueDays.Size = New System.Drawing.Size(173, 23)
        Me.btnCalculateDueDays.TabIndex = 4
        Me.btnCalculateDueDays.Text = "Calculate Due Days"
        Me.btnCalculateDueDays.UseVisualStyleBackColor = True
        '
        'btnCalculateAge
        '
        Me.btnCalculateAge.Location = New System.Drawing.Point(258, 58)
        Me.btnCalculateAge.Name = "btnCalculateAge"
        Me.btnCalculateAge.Size = New System.Drawing.Size(173, 23)
        Me.btnCalculateAge.TabIndex = 5
        Me.btnCalculateAge.Text = "Calculate Age"
        Me.btnCalculateAge.UseVisualStyleBackColor = True
        '
        'btnExit
        '
        Me.btnExit.Location = New System.Drawing.Point(258, 120)
        Me.btnExit.Name = "btnExit"
        Me.btnExit.Size = New System.Drawing.Size(173, 23)
        Me.btnExit.TabIndex = 6
        Me.btnExit.Text = "Exit"
        Me.btnExit.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(538, 171)
        Me.Controls.Add(Me.btnExit)
        Me.Controls.Add(Me.btnCalculateAge)
        Me.Controls.Add(Me.btnCalculateDueDays)
        Me.Controls.Add(Me.txtBirthDate)
        Me.Controls.Add(Me.txtFutureDate)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "Date Handling"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents txtFutureDate As System.Windows.Forms.TextBox
    Friend WithEvents txtBirthDate As System.Windows.Forms.TextBox
    Friend WithEvents btnCalculateDueDays As System.Windows.Forms.Button
    Friend WithEvents btnCalculateAge As System.Windows.Forms.Button
    Friend WithEvents btnExit As System.Windows.Forms.Button

End Class

File: Form1.vb

Public Class Form1

    ' Calculate due days button click event handler
    Private Sub btnCalculateDueDays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculateDueDays.Click

        ' Checking dates
        If IsDate(txtFutureDate.Text) Then

            ' Calculating due days
            Dim curDate, futDate As Date

            ' Holding current date
            curDate = Date.Now

            ' Holding future date
            futDate = Convert.ToDateTime(txtFutureDate.Text)

            ' Calculating due days
            Dim dueDays As Integer
            dueDays = (futDate - curDate).Days

            ' Displaying in message box
            MessageBox.Show("Current date: " & curDate.ToString("d") & vbNewLine & "Future date: " & futDate.ToString("d") & vbNewLine & vbNewLine & "Days until due: " & dueDays.ToString())

        Else
            MessageBox.Show("Invalid Future Date")
        End If

    End Sub

    ' Calculate Age button click event handler
    Private Sub btnCalculateAge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculateAge.Click

        ' Checking dates
        If IsDate(txtBirthDate.Text) Then

            ' Calculating due days
            Dim curDate, birDate As Date

            ' Holding current date
            curDate = Date.Now

            ' Holding future date
            birDate = Convert.ToDateTime(txtBirthDate.Text)

            ' Calculating age in years
            Dim age As Integer
            age = DateDiff(DateInterval.Year, birDate, curDate)

            ' Displaying in message box
            MessageBox.Show("Current date: " & curDate.ToString("d") & vbNewLine & "Birth date: " & birDate.ToString("d") & vbNewLine & vbNewLine & "Age: " & age.ToString())

        Else
            MessageBox.Show("Invalid Future Date")
        End If

    End Sub

    ' Exit button click event
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Application.Exit()
    End Sub

End Class

______________________________________________________________________________

Sample Run: