Time format isn't correct when I run VBA.

[FRANCISCO SOUSA-PORTUGAL]

Hello

I have the following problem in my schedule, I can not format the correct time to 12:00 pm instead of 12:00 it appears 00:00 (midnight), even if is formated to "[h]:00".

Best regards
FS

Me.TextBox8.Text = .Cells(2, 3).Value
Me.TextBox8.Text = Format(TextBox8.Value, "[hh]:mm")

 

[shg]

What's the value in C2?

 

[FRANCISCO SOUSA-PORTUGAL]

The value in C2 is 12:00.

 

[shg]

I don't think so; it may be 12, but not 12:00. What's it show when you format it as General?

Also,

Me.Textbox8.Value = Format(.Range("C2").Value2, "[hh]:mm")

 

[FRANCISCO SOUSA-PORTUGAL]

Sorry, is 12:00:00.

 

[FRANCISCO SOUSA-PORTUGAL]

I'm working with a userform, and display my times values there not in Excel sheet, the Excel sheet is only to store data.

 

[hellebore08]

Hi,

By testing the formats, this appears normal and the result appeared OK.

Sub test()
Range("A1").Value = Range("A2").Value
Range("A1").Value = Format(Range("A1").Value, "hh:mm")
End Sub

where A2's value is "12:00"

Please try rewriting your code.. maybe there's something wrong with the value of your Cell(2,3).



-e.rgabrieldoronila

 

[shg]

I think C2 has a text value, not a time. That's why I asked what it looks like if you format it as General.

 

[FRANCISCO SOUSA-PORTUGAL]

As you see the time value is 12:00, sorry I give C2 by example

 

[markmzz]

FRANCISCO,

Same problem here. I test this code:

Private Sub CommandButton1_Click()
        Me.TextBox1.Text = ActiveSheet.Cells(1, 1).Value
        Me.TextBox1.Text = Format(Me.TextBox1.Value, "hh:mm")
        Me.TextBox2.Text = ActiveSheet.Cells(1, 2).Value
        Me.TextBox2.Text = Format(Me.TextBox2.Value, "hh:mm")
        Me.TextBox3.Text = ActiveSheet.Cells(1, 3).Value
        Me.TextBox3.Text = Format(Me.TextBox3.Value, "hh:mm")
End Sub

Result of the textbox in the form 00:00, 23:00 and 00:00

And this:

Private Sub CommandButton2_Click()
        Me.TextBox1.Text = ActiveSheet.Cells(1, 1).Value
        Me.TextBox1.Text = Format(Me.TextBox1.Value, "hh:mm AM/PM")
        Me.TextBox2.Text = ActiveSheet.Cells(1, 2).Value
        Me.TextBox2.Text = Format(Me.TextBox2.Value, "hh:mm AM/PM")
        Me.TextBox3.Text = ActiveSheet.Cells(1, 3).Value
        Me.TextBox3.Text = Format(Me.TextBox3.Value, "hh:mm AM/PM")
End Sub

Result of the textbox in the form 12:00 AM, 11:00 PM and 12:00 AM

<TABLE style="BORDER-BOTTOM: #a6aab6 1px solid; BORDER-LEFT: #a6aab6 1px solid; BACKGROUND-COLOR: #ffffff; BORDER-COLLAPSE: collapse; BORDER-TOP: #a6aab6 1px solid; BORDER-RIGHT: #a6aab6 1px solid" rules=all cellPadding=2><COLGROUP><COL style="BACKGROUND-COLOR: #e0e0f0" width=25><COL><COL><COL></COLGROUP><THEAD><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #e0e0f0; COLOR: #161120"><TH></TH><TH>A</TH><TH>B</TH><TH>C</TH></TR></THEAD><TBODY><TR><TD style="TEXT-ALIGN: center; COLOR: #161120">1</TD><TD style="TEXT-ALIGN: right">12:00:00</TD><TD style="TEXT-ALIGN: right">23:00:00</TD><TD style="TEXT-ALIGN: right">00:00:00</TD></TR><TR><TD style="TEXT-ALIGN: center; COLOR: #161120">2</TD><TD style="TEXT-ALIGN: right">0,5</TD><TD style="TEXT-ALIGN: right">0,95833333</TD><TD style="TEXT-ALIGN: right">1</TD></TR><TR><TD style="TEXT-ALIGN: center; COLOR: #161120">3</TD><TD style="TEXT-ALIGN: right">12:00:00 PM</TD><TD style="TEXT-ALIGN: right">11:00:00 PM</TD><TD style="TEXT-ALIGN: right">12:00:00 AM</TD></TR></TBODY></TABLE>

Markmzz