Converting a time() value to a string 1

[Jackie]

How do you convert a time() value to a string and not include the colon.

For example, if time() = 13:05:22. I would like to capture it as 1305.

I tried the str(time()), but got an error. I also tried using str(time() format"HHMM&quot but got an error too.

I am collecting the current time on a form using =time().
I would like to convert a time field to hhmm format using 24 hour GMT (without the colon).

Thank you for your help.

 

[scriverb]

Here is a Function that you can COPY and Paste into a database module:
Public Function ReplaceEmbedded(CharToReplace As String, SearchString As String, ReplacementChar As String)
Dim I As Integer, s As String, ss As Integer
ss = Len(SearchString)
s = ""
For I = 1 To ss
If InStr(CharToReplace, Mid$(SearchString, I, 1)) = 0 Then
s = s & Mid$(SearchString, I, 1)
Else
s = s & ReplacementChar
I = I + (Len(CharToReplace) - 1)
End If
Next I
ReplaceEmbedded = s
End Function
Use the following expression to capture the string value you indicated you needed in your post:
Mid$(ReplaceEmbedded(":", CStr(Time()), "&quot, 1, Len(CStr(Time())) - 7)

Bob Scriver

 

[shannonp]

You nearly had the answer yourself, but try this:
=Str(Format(Time(),"hhnn&quot)

Not sure why you'd want this field to be a string value so note that the leading zero will be ommitted as I presume it looks at Time() as and integer before it converts to string, which would of course take for example 0700 as 700.

However, a simple 'IIf' test could easily add the leading zero back on. (unless someone knows of a way to keep it on):
=IIf(Len(Trim(Str(Format(Time(),"hhnn&quot)))=3,"0" & Trim(Str(Format(Time(),"hhnn&quot)),Trim(Str(Format(Time(),"hhnn&quot)))

Good Luck

 

[WildHare]

Actually, leading zeros will be preserved:

X = "07:30AM"

? format(x, "hhnn&quot

0730

The Format guy automatically makes a string, so you don't need the STR function.

? format(x, "hhnn&quot & " is in the morning"

0730 is in the morning




Me? Ambivalent? Well, yes and no....
Another free Access forum:

http://www.forumco.com/jmhare

More Access stuff at

http://www.jmhare.com/wildhare2.htm

 

[shannonp]

Thanks Wildhare

Yeah - umm I wasn't exactly sure if the str() function was entirely necessary...but could you explain something for me, why does it cut the leading zero off when the str() function IS added?

Example:
[ul][li]format(x, "hhnn&quot = 0730[/li][li]Str(format(x, "hhnn&quot) = 730[/li][/ul]
...why is this? Does function str() do something more than convert a value to string because I would have presumed it would have preserved "0730" when doing a str() conversion. Or does format() and/or str() automatically make the 'best' decision as to what value type it should be?

 

[WildHare]

I've found that very few Access functions make the best decisions...

I really don't know why STR performs this digital briss to the forefront of a numeric guy, but FORMAT does it too:

? format("08976&quot returns "8976"

It seems that unless you provide a SPECIFIC, leading-zero preserving format like

? Format("008976", "000000&quot

it just drops the leading naughts, just like STR() does.

Note that, given a TIME of 07:30AM,

Format(x, "hn&quot returns 730
but
Format(x, "hhnn&quot returns 0730
as does
format(x, "hhn&quot

Just gotta get used to it, I suppose.

format(chr(74) & chr(77) & chr(72))





Me? Ambivalent? Well, yes and no....
Another free Access forum:

http://www.forumco.com/jmhare

More Access stuff at

http://www.jmhare.com/wildhare2.htm

 

[shannonp]

hehe P-)...format(chr(74) & chr(77) & chr(72))

 

[scriverb]

More effecient and very helpful. Good explainations, too. Have a star from me.!!!


Bob Scriver