24 hour clock

[dendic]

I'm using this code trying to achieve a 24 hour clock variable.
Dim varStartTime As Date, varEndTime As Date
varStartTime = "10:00"
varEndTime = "14:00"
varStartTime = Format(varStartTime, "short time")
varEndTime = Format(varEndTime, "short time")
But I keep getting AM/PM values.

 

[Remou]

Have you looked at the formats you have set up under Regional Settings in the Control Panel? These settings control the way a number formats are shown.

 

[Zion7]

As Remou said, otherwise, convert the "short time" variable,
to a string...


Dim varStartTime As Date, varEndTime As Date
Dim strStartTime as string, strEndTime as string

varStartTime = "10:00"
varEndTime = "14:00"

strStartTime = Format(varStartTime, "short time")
strEndTime = Format(varEndTime, "short time")

 

[SkipVought]

Hi,

You are mixing metaphores, so to speak.

Date/Time is not STRING!!!

Dim varStartTime As [b]Date[/b], varEndTime As [b]Date[/b]
[b]dim sStartTime as string, sEndTime as string[/b]
varStartTime = #10:00#
varEndTime = #14:00#
[b]sStartTime[/b] = Format(varStartTime, "short time")
[b]sEndTime[/b] = Format(varEndTime, "short time")

Skip,
[sub]
[glasses] [b][red][/red][/b]
[b][/b] [tongue][/sub]

 

[PHV]

furthermore, if you don't want to depend on regional settings:
sStartTime = Format(varStartTime, "[!]HH:NN[/!]")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886