Check for Duplicate Appointment Times

  • Thread starter Thread starter geo039
  • Start date Start date
G

geo039

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
 
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
 
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
 
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.ToShortTimeString)


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
 
For Each strItem As String In lstTimeResults.Items
If strItem = ApptTime Then
Click to expand...

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
 
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
 
Back
Top