Greetings,

I have a TextBox which is loaded with a date when a UserForm is
opened. I can't get the TextBox to display the entry in a TIME format
(hh:mm AM/PM).

Any help would be appreciated.

TIA

-Minitman

TextBox1.Text = Format$(Now, "hh:mm AM/PM")

HTH. Best wishes Harald

"Minitman" skrev i melding
...
Greetings,

I have a TextBox which is loaded with a date when a UserForm is
opened. I can't get the TextBox to display the entry in a TIME format
(hh:mm AM/PM).

Any help would be appreciated.

TIA

-Minitman

Hey Harold,

Thanks for the reply. This works for current time entries. However,
I am entering times figures other then current time.

Is there a variant that will allow any time to be entered?

-Minitman



On Tue, 8 Feb 2005 22:52:13 +0100, "Harald Staff"
wrote:

TextBox1.Text = Format$(Now, "hh:mm AM/PM")

HTH. Best wishes Harald

"Minitman" skrev i melding
.. .
Greetings,

I have a TextBox which is loaded with a date when a UserForm is
opened. I can't get the TextBox to display the entry in a TIME format
(hh:mm AM/PM).

Any help would be appreciated.

TIA

-Minitman

I thought you had a display problem, sorry. To turn text into a time
variable, use Timevalue:

Dim T As Date
On Error Resume Next
T = TimeValue(TextBox1.Text)
If Err.Number = 0 Then
MsgBox Format$(T, "hh:mm:ss")
Else
MsgBox "No time for losers"
End If

HTH. Best wishes Harald


"Minitman" skrev i melding
...
Hey Harold,

Thanks for the reply. This works for current time entries. However,
I am entering times figures other then current time.

Is there a variant that will allow any time to be entered?

-Minitman



On Tue, 8 Feb 2005 22:52:13 +0100, "Harald Staff"
wrote:

TextBox1.Text = Format$(Now, "hh:mm AM/PM")

HTH. Best wishes Harald

"Minitman" skrev i melding
.. .
Greetings,

I have a TextBox which is loaded with a date when a UserForm is
opened. I can't get the TextBox to display the entry in a TIME format
(hh:mm AM/PM).

Any help would be appreciated.

TIA

-Minitman

Hey Harald,

It is a display problem. The first example:

TextBox1.Text = Format$(Now, "hh:mm AM/PM")

Modified like this (The named range on the worksheet is "CallTime"):

TextBox1.Text = Format$(Range("CallTime").Text, "hh:mm AM/PM")

That is what I was trying to remember.

Thanks.

-Minitman

On Tue, 8 Feb 2005 23:26:31 +0100, "Harald Staff"
wrote:

I thought you had a display problem, sorry. To turn text into a time
variable, use Timevalue:

Dim T As Date
On Error Resume Next
T = TimeValue(TextBox1.Text)
If Err.Number = 0 Then
MsgBox Format$(T, "hh:mm:ss")
Else
MsgBox "No time for losers"
End If

HTH. Best wishes Harald


"Minitman" skrev i melding
.. .
Hey Harold,

Thanks for the reply. This works for current time entries. However,
I am entering times figures other then current time.

Is there a variant that will allow any time to be entered?

-Minitman



On Tue, 8 Feb 2005 22:52:13 +0100, "Harald Staff"
wrote:

TextBox1.Text = Format$(Now, "hh:mm AM/PM")

HTH. Best wishes Harald

"Minitman" skrev i melding
.. .
Greetings,

I have a TextBox which is loaded with a date when a UserForm is
opened. I can't get the TextBox to display the entry in a TIME format
(hh:mm AM/PM).

Any help would be appreciated.

TIA

-Minitman