Ensure Foolproof Data Entry Times

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 iEnd SubPrivate Sub Command1_Click()	Dim sTime	'Format the time VB style	sTime = "#" & Combo1(0) & Combo1(1) & ":00 " _		& Combo1(2) & "#"	MsgBox sTimeEnd Sub
See also  5 Ways to Improve Customer Experience

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist