[RESOLVED] Comparison Problem

[Brian M.]

I am trying to make sure a string reads am or pm before I let the variable be passed to a check routine. I used this but its not working right.

        If alrmampm <> "AM" Or alrmampm <> "PM"  Then
            MsgBox("Enter a valid time.")
            ampmcb.SelectAll()
            Exit Sub
        End If

But I used the same comparison format here, and it works fine.

        If alrmhours = "" Or alrmhours < 0.ToString Or alrmhours > 12.ToString Then
            MsgBox("Enter a valid time.")
            hourscb.SelectAll()
            Exit Sub
        End If

        If alrmminutes = "" Or alrmminutes < 0.ToString Or alrmminutes > 59.ToString Then
            MsgBox("Enter a valid time.")
            minutescb.SelectAll()
            Exit Sub
        End If

I'm probably going about this the wrong way, but until I learn the vb syntax better I have to work with what I know. So could someone tell me why that expression isn't working?

[dbasnett]

as i mentioned in the other thread, if you use the correct tool i.e. datetimepicker, you will not have the issues you have discussed.

For time only in the dtp you will need:

        DateTimePicker1.Format = DateTimePickerFormat.Time
        DateTimePicker1.ShowUpDown = True

"I'm probably going about this the wrong way, but until I learn the vb syntax better I have to work with what I know." Or you could try something new and add it to your skill set.

[Brian M.]

Ah, ok. So what kind of variable will store the value from the d/t picker? Would it be a time or timespan variable? I'm going to be able to get rid of alot of code now. I didn't know how to format the date/time picker until now. Thanks alot.

[dbasnett]

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Dim aDT As DateTime = DateTimePicker1.Value
        'hint
        If aDT > DateTime.Now Then
            Stop
        Else
            Stop
        End If
    End Sub

[Brian M.]

Ok. Thanks for the help. I finally got it working right. Here is a link to the solution files.

Tech Alarm