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 :
Quick Question, I have a userform, that in Textbox1 someone will
enter 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 convert
Textbox2.text = 22:04.
Any ideas?
---
Message posted from http://www.ExcelForum.com/