I'm trying to capture a start time and end time entered into a userform
and my program refuses to exclude the seconds!!! here's my code:

Dim chkStartTime As String
Dim chkEndTime As String
Dim StartTime As Date
Dim EndTime As Date

chkStartTime = FrmDataInput.txtStartTime.Value
chkEndTime = FrmDataInput.txtEndTime.Value

If IsDate(chkStartTime) = False Then
MsgBox "Please enter a valid start time in HH:MM AM/PM format.",
vbOKOnly
FrmDataInput.txtStartTime.SetFocus
Exit Sub
Else
StartTime = Format(chkStartTime, "hh:mm AM/PM")
End If

If IsDate(chkEndTime) = False Then
MsgBox "Please enter a valid end time in HH:MM AM/PM format.",
vbOKOnly
FrmDataInput.txtEndTime.SetFocus
Exit Sub
Else
EndTime = Format(chkEndTime, "HH:MM AM/PM")
End If


When I step through the code and add a watch to the StartTime and End
time I get hh:mm:ss AM/PM!!!

Shelley,

Either format StartTime and EndTime as Strings, or whenever you use them as date/times, use
Format(StartTime, "HH:MM AM/PM")

HTH,
Bernie
MS Excel MVP


"sbowman" wrote in message
ups.com...
I'm trying to capture a start time and end time entered into a userform
and my program refuses to exclude the seconds!!! here's my code:

Dim chkStartTime As String
Dim chkEndTime As String
Dim StartTime As Date
Dim EndTime As Date

chkStartTime = FrmDataInput.txtStartTime.Value
chkEndTime = FrmDataInput.txtEndTime.Value

If IsDate(chkStartTime) = False Then
MsgBox "Please enter a valid start time in HH:MM AM/PM format.",
vbOKOnly
FrmDataInput.txtStartTime.SetFocus
Exit Sub
Else
StartTime = Format(chkStartTime, "hh:mm AM/PM")
End If

If IsDate(chkEndTime) = False Then
MsgBox "Please enter a valid end time in HH:MM AM/PM format.",
vbOKOnly
FrmDataInput.txtEndTime.SetFocus
Exit Sub
Else
EndTime = Format(chkEndTime, "HH:MM AM/PM")
End If


When I step through the code and add a watch to the StartTime and End
time I get hh:mm:ss AM/PM!!!

Thank You!! It works if I use Format(StartTime, "HH:MM AM/PM") whenever
I use the variable. It sucks to have to do that, but it works and
that's what matters.

Shelley

StartTime=round(StartTime*1440)/1440

This will round StartTime to the nearest minute

HTH
--
AP

"sbowman" a écrit dans le message de news:
...
I'm trying to capture a start time and end time entered into a userform
and my program refuses to exclude the seconds!!! here's my code:

Dim chkStartTime As String
Dim chkEndTime As String
Dim StartTime As Date
Dim EndTime As Date

chkStartTime = FrmDataInput.txtStartTime.Value
chkEndTime = FrmDataInput.txtEndTime.Value

If IsDate(chkStartTime) = False Then
MsgBox "Please enter a valid start time in HH:MM AM/PM format.",
vbOKOnly
FrmDataInput.txtStartTime.SetFocus
Exit Sub
Else
StartTime = Format(chkStartTime, "hh:mm AM/PM")
End If

If IsDate(chkEndTime) = False Then
MsgBox "Please enter a valid end time in HH:MM AM/PM format.",
vbOKOnly
FrmDataInput.txtEndTime.SetFocus
Exit Sub
Else
EndTime = Format(chkEndTime, "HH:MM AM/PM")
End If


When I step through the code and add a watch to the StartTime and End
time I get hh:mm:ss AM/PM!!!