By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
443,815 Members | 1,151 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 443,815 IT Pros & Developers. It's quick & easy.

Check for Duplicate Appointment Times

P: n/a
I have a simple application that takes user input by text and time
selected by date time picker. It displays the appt description in one
list box and the time in another list box. I need a simple function
that checks the times for duplicates. I want to check for a duplicate
before it writes to the
listbox by returning a boolean (true/false) value I'm new to this so
any help would
be appreciated.

Thanks

Nov 13 '06 #1
Share this Question
Share on Google+
7 Replies


P: n/a
Geo,

At least for me it is not clear what you want, be aware that you seldom will
find a real equality in time values give by the date time picker because it
is (not real) accurate in milliseconds, therefore you should have to take a
time or a date part.

Cor

"geo039" <ca************@hotmail.comschreef in bericht
news:11**********************@b28g2000cwb.googlegr oups.com...
>I have a simple application that takes user input by text and time
selected by date time picker. It displays the appt description in one
list box and the time in another list box. I need a simple function
that checks the times for duplicates. I want to check for a duplicate
before it writes to the
listbox by returning a boolean (true/false) value I'm new to this so
any help would
be appreciated.

Thanks

Nov 14 '06 #2

P: n/a
I'm only checking for hours and minutes not date or seconds. I'm
wondering if something like this would work but my only confusion lies
in the fact that we are dealing with date/time. It's not an integer or
a double?? Is it ByVal As Date, I don't know

Public Function DoesTimeExistInListBox(ByVal sometime As ???)
As Boolean
Dim bExistsInListbox As Boolean = False
For Each strItem As String In ListBox1.Items
If strItem = sometime Then
bExistsInListbox = True
Exit For
End If
Next

Return bExistsInListbox
End Function

Nov 14 '06 #3

P: n/a
DateTime

Cor

"geo039" <ca************@hotmail.comschreef in bericht
news:11*********************@k70g2000cwa.googlegro ups.com...
I'm only checking for hours and minutes not date or seconds. I'm
wondering if something like this would work but my only confusion lies
in the fact that we are dealing with date/time. It's not an integer or
a double?? Is it ByVal As Date, I don't know

Public Function DoesTimeExistInListBox(ByVal sometime As ???)
As Boolean
Dim bExistsInListbox As Boolean = False
For Each strItem As String In ListBox1.Items
If strItem = sometime Then
bExistsInListbox = True
Exit For
End If
Next

Return bExistsInListbox
End Function

Nov 14 '06 #4

P: n/a
Right now I have this but it's not finding duplicates, I think there's
a problem with the function? Any Suggestions?

Dim Time As Boolean
Time = TimeTaken(Me.dtmTime.Value.ToShortDateString)
If Time Then
MessageBox.Show("You already have an appointment at
this time")
Else
'display appointment in Listbox
lstApptResults.Items.Add(txtAppointment.Text)
txtAppointment.Clear() 'clear appointment from TextBox
txtAppointment.Focus() 'transfer focus to TextBox
'display appointment time in Listbox
lstTimeResults.Items.Add(Me.dtmTime.Value.ToShortT imeString)
End If
End If
End Sub 'btnAddAppt_Click
'function to check if an appointment time already exists in listbox

Public Function TimeTaken(ByVal ApptTime As DateTime) As Boolean
Dim DuplicateTime As Boolean = False
'loop that checks listed times for duplicates
For Each strItem As String In lstTimeResults.Items
If strItem = ApptTime Then
DuplicateTime = True
Exit For
End If
Next
Return DuplicateTime
End Function 'TimeTaken

Nov 15 '06 #5

P: n/a
For Each strItem As String In lstTimeResults.Items
If strItem = ApptTime Then
Could it be because you are comparing a string to a datetime? Perhaps
you should convert strItem to a datetime before running the comparison.
(or ApptTime to a string)

Thanks,

Seth Rowe
geo039 wrote:
Right now I have this but it's not finding duplicates, I think there's
a problem with the function? Any Suggestions?

Dim Time As Boolean
Time = TimeTaken(Me.dtmTime.Value.ToShortDateString)
If Time Then
MessageBox.Show("You already have an appointment at
this time")
Else
'display appointment in Listbox
lstApptResults.Items.Add(txtAppointment.Text)
txtAppointment.Clear() 'clear appointment from TextBox
txtAppointment.Focus() 'transfer focus to TextBox
'display appointment time in Listbox
lstTimeResults.Items.Add(Me.dtmTime.Value.ToShortT imeString)
End If
End If
End Sub 'btnAddAppt_Click
'function to check if an appointment time already exists in listbox

Public Function TimeTaken(ByVal ApptTime As DateTime) As Boolean
Dim DuplicateTime As Boolean = False
'loop that checks listed times for duplicates
For Each strItem As String In lstTimeResults.Items
If strItem = ApptTime Then
DuplicateTime = True
Exit For
End If
Next
Return DuplicateTime
End Function 'TimeTaken
Nov 15 '06 #6

P: n/a
Geo,

Have a look in the findstringexact for the listbox.

http://lab.msdn.microsoft.com/search...indstringexact

I hope this helps,

Cor

"geo039" <ca************@hotmail.comschreef in bericht
news:11*********************@e3g2000cwe.googlegrou ps.com...
Right now I have this but it's not finding duplicates, I think there's
a problem with the function? Any Suggestions?

Dim Time As Boolean
Time = TimeTaken(Me.dtmTime.Value.ToShortDateString)
If Time Then
MessageBox.Show("You already have an appointment at
this time")
Else
'display appointment in Listbox
lstApptResults.Items.Add(txtAppointment.Text)
txtAppointment.Clear() 'clear appointment from TextBox
txtAppointment.Focus() 'transfer focus to TextBox
'display appointment time in Listbox
lstTimeResults.Items.Add(Me.dtmTime.Value.ToShortT imeString)
End If
End If
End Sub 'btnAddAppt_Click
'function to check if an appointment time already exists in listbox

Public Function TimeTaken(ByVal ApptTime As DateTime) As Boolean
Dim DuplicateTime As Boolean = False
'loop that checks listed times for duplicates
For Each strItem As String In lstTimeResults.Items
If strItem = ApptTime Then
DuplicateTime = True
Exit For
End If
Next
Return DuplicateTime
End Function 'TimeTaken

Nov 15 '06 #7

P: n/a
I tried this

For Each strItem As DateTime In lstTimeResults.Items
If strItem = ApptTime Then

doesn't work either, i'm off to make sense of this exactstringmatch
business

Nov 15 '06 #8

This discussion thread is closed

Replies have been disabled for this discussion.