Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Apr 16, 1999

Ensure Foolproof Data Entry Times

Asking users to enter time values can often lead to problems formatting what the user enters. I use this piece of code to create a drop-down list of hours, minutes, and AM/PM, which ensures the user specifies the proper time and eliminates problems manipulating the time later in the program.

To use this example, create a combo-box array with three combo boxes: lower bound = 0; upper bound = 2; and a command button. Use this code:

 
Private Sub Form_Load()
	Dim i As Integer, strTemp As String

	'Fill hour combo box
	For i = 12 To 1 Step -1
		Combo1(0).AddItem i
	Next i

	'Fill minutes combo box
	For i = 0 To 59
		strTemp = i
		If Len(strTemp) = 1 Then strTemp = "0" & i
		Combo1(1).AddItem ":" & strTemp
	Next i

	'Fill AM/PM combo box
	Combo1(2).AddItem "AM"
	Combo1(2).AddItem "PM"

	'First item in each combo box is displayed
	For i = Combo1.LBound To Combo1.UBound
		Combo1(i).ListIndex = 0
	Next i
End Sub

Private Sub Command1_Click()
	Dim sTime

	'Format the time VB style
	sTime = "#" & Combo1(0) & Combo1(1) & ":00 " _
		& Combo1(2) & "#"
	MsgBox sTime
End Sub
Jason Natale
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date