Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


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