Scribd
Upload
7 views

Date Time Picker Control

Uploaded by

naazarhama11
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
7 views

Date Time Picker Control

Uploaded by

naazarhama11
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

Date Time Picker Control

Date Time Picker Control allows user to select a date and a time. It
is also used to display selected date and time in specific format.

By default it displays current date in


Long Date format. When user clicks on arrow button it displays full
calendar for the current month as shown below:

Example 1: Design an application that ask user to enter birth


date and display user’s age (in days) using DateTimePicker
Control.
Step 1: Design a form as shown above:
Step 2: Now set properties of various controls as given below:
Control Name Property Name Value
Form1 Text DateTimePicker Demo
Label1 Text Enter Your Birthdate:
DateTimePicker1 Name dtDate
Format Short
Button1 Name cmdCalculate
Text Calculate Age
Label2 Name lblDay
Text You are ____ Days Old
Step 3: Now Double click on Calculate Age Button and write
following code to calculate age.
Dim bdate As DateTime
Dim curdate As DateTime
Dim day As TimeSpan
bdate = dtDate.Value
curdate = Now.Date
day = curdate.Subtract (bdate)
lblDay.Text = "You are " & CInt (day.TotalDays) & " Days Old"
Example 2: Design an
application that ask user to
select event start date and
event end date and display total
number of days the event will
continue using DateTimePicker
Control.
Step 1: Design a form as shown
below:
Step 2: Now set properties of various controls as given below:
Control Name Property Name Value
Form1 Text DateTimePicker Demo
Label1 Text Select Start Date:
DateTimePicker1 Name dtStart
Format Short
Label2 Text Select End Date:
DateTimePicker2 Name dtEnd
Format Short
Button1 Name cmdCalculate
Text Calculate Days
Label3 Name lblTotal
Text Total Days
Step 3: Now Double click on Calculate Days Button and write following
code to calculate age.
Dim startdate As DateTime
Dim enddate As DateTime
Dim total As TimeSpan
startdate = dtStart.Value
enddate = dtEnd.Value
total = enddate.Subtract(startdate)
lblTotal.Text = CInt(total.TotalDays)

You might also like