Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Date Time Code Examples

Check if year is a leap-year



Check if year is a leap-year

'make a new project
'add a form
'add a texbox and a commandbutton
'insert the code
'press F5


Option Explicit

Private sub Command1_Click()

    dim strDatum as String

    If Text1.Text = "" Then exit Sub
    strDatum = ("29-2-" + Text1.Text)
    If IsDate(strDatum) Then MsgBox Text1.Text + " is a leap-year." _
        Else MsgBox Text1.Text + " isn't a leap-year."
    
End Sub

Private sub Form_Load()

    Text1.Text = Year(Now)
    
End Sub

Return

If you set goals and go after them with all the determination you can muster, your gifts will take you places that will amaze you.

Les Brown

Strength is not about how much you can handle before you break. It is about how much you can endure after you have been broken.

Anonymous

The capacity to learn is a gift; the ability to learn is a skill; the willingness to learn is a choice.

Brian Herbert

Your positivity can become a castle around you which will protect you from the arrow of negativity.

Gurudev Shree Chitrabhanu

Give me a stock clerk with a goal and I will give you a man who will make history. Give me a man with no goals and I will give you a stock clerk.

J. C. Penney

Whenever you see a successful business, someone once made a courageous decision.

Peter Drucker

Strength doesn't come from what you can do. It comes from overcoming the things you once thought you couldn't.

Rikki Rogers

The important thing is to not stop questioning. Curiosity has its own reason for existing.

Albert Einstein