Converting Time in a userform

  • Thread starter Thread starter tiptop
  • Start date Start date
T

tiptop

Quick Question, I have a userform, that in Textbox1 someone will ente
a time and I need it to return the time in Military time in TextBox2.
How can I set this up?

Ex.
When someone enters in Textbox1.text = 10:04 pm, I need it to conver
Textbox2.text = 22:04.

Any ideas
 
hi tiptop

i've just done this recently in i actually used three fields - one for hour
one for min & one for am/pm
(i actually put spin buttons & set min & max on the hour & min box too)
*******
If cboAM = "PM" Then
If txthrs = 12 Then
Else
txthrs = txthrs + 12
End If
Else
If txthrs = 12 Then
txthrs = 24
End If
End If

ftime = Format(txthrs, "00") & ":" & Format(txtmins, "00")
Range("A1").Value = ftime

*********

Cheers
JulieD
 
TipTop

try:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
If Not IsDate(.Text) Then
Cancel = True
Beep
.SelStart = 0
.SelLength = Len(.Text)
Else
TextBox2.Text = Format(CDate(.Text), "HH:MM")
End If
End With
End Sub


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


tiptop wrote :
 
Back
Top