Age and Percentage Converter and Calculation in Vb.Net

Theme > Edit HTML mein jao, aur purana mobile CSS code delete kar do. Us ke baad ]]></b:skin> se pehle yeh code paste karo.

Source Code

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try
            ' Input format: DD-MM-YY
            Dim parts() As String = TextBox1.Text.Split("-"c)

            If parts.Length <> 3 Then
                MessageBox.Show("Format sahi likho: DD-MM-YY")
                Exit Sub
            End If

            Dim days As Integer = Integer.Parse(parts(0))
            Dim months As Integer = Integer.Parse(parts(1))
            Dim years As Integer = Integer.Parse(parts(2))

            ' Current date
            Dim today As Date = Date.Now

            ' Subtract years, months, days
            Dim dob As Date = today.AddYears(-years).AddMonths(-months).AddDays(-days)

            ' Output format (Example: 27 July 2008)
            TextBox2.Text = dob.ToString("dd MMMM yyyy")

        Catch ex As Exception
            MessageBox.Show("Invalid input!")
        End Try
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            Dim total As Double = Double.Parse(TextBox3.Text)
            Dim obtained As Double = Double.Parse(TextBox4.Text)

            If total = 0 Then
                MessageBox.Show("Total marks 0 nahi ho sakte")
                Exit Sub
            End If

            Dim percentage As Double = (obtained / total) * 100

            ' Percentage
            Label2.Text = "Percentage: " & percentage.ToString("0.00") & " %"

            ' Division
            Dim division As String
            If percentage >= 60 Then
                division = "1st Division"
            ElseIf percentage >= 50 Then
                division = "2nd Division"
            ElseIf percentage >= 40 Then
                division = "3rd Division"
            Else
                division = "Fail"
            End If
            Label5.Text = "Division: " & division

            ' Grade
            Dim grade As String
            If percentage >= 80 Then
                grade = "A+"
            ElseIf percentage >= 70 Then
                grade = "A"
            ElseIf percentage >= 60 Then
                grade = "B"
            ElseIf percentage >= 50 Then
                grade = "C"
            ElseIf percentage >= 40 Then
                grade = "D"
            Else
                grade = "F"
            End If
            Label6.Text = "Grade: " & grade

            ' Remarks
            Dim remarks As String
            If percentage >= 80 Then
                remarks = "Excellent"
            ElseIf percentage >= 60 Then
                remarks = "Very Good"
            ElseIf percentage >= 50 Then
                remarks = "Good"
            ElseIf percentage >= 40 Then
                remarks = "Pass"
            Else
                remarks = "Fail"
            End If
            Label7.Text = "Remarks: " & remarks

        Catch ex As Exception
            MessageBox.Show("Please valid numbers enter karo")
        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class