DTPicker1 Format

[Digitborn.com]

Hello,

How can I retrieve from UserForm DTPicker1 to a Cell only the time value?

I tried:

Private Sub CommandButton5P1_Click()
Dim MyDate1 As Date
MyDate1 = DTPicker1.Value

DTPicker1.Format = dtpTime

DTPicker1.Value = Format(Time, "Short Time")
'or
DTPicker1.Value = Format(MyDate1, "h:mm")

ws.Cells(lRow, 13).Value = MyDate1
'or
ws.Cells(lRow, 13).Value = DTPicker1.Value
End Sub

I really couldn't make it by myself, trying to read all kind of topics about DTPicker1 Format

The result is or:
12:00:00 AM - returns the defaul value in the cell

7/20/2007 11:44 - returns the date + the correct time filled in the UserForm

I'd like to return in the cell only the "h:mm".
Thanks in advance

 

[Norie]

Well for 2 the format when I use dtpTime is 23:00, AM/PM is not included.

As to 1 I don't think it's actually possible

 

[Digitborn.com]

OK, I cut the Width of the DTPicket and AM/PM is not included, but do you know how it shows you 23:00. Everytime I write 23, it automatically changes to 11:00:00 PM.

 

[Norie]

Instead of using the DTPicker why not just use spin buttons and textboxes?

 

[Digitborn.com]

Because I don't know how to control the textboxes with spin buttons, can you give me an example? I've never used spin buttons before..I don't know how to validate them for 00:00 - 23:00 o'clock too..

 

[Norie]

What about comboboxes instead then?

 

[Digitborn.com]

I decided, I like DTPicker, but if it's possible for 23:00 time to appear and :00 (seconds) to disappear. If you know how to, that would be great

 

[Norie]

It's alright to like a particular control.

But is it wise to stick with it if it doesn't actually do what you want it to?

By the way if whatever you are doing is being distributed you might run into problems since the control isn't standard.

 

[royUK]

Use the Custom Format: HH:mm, note; change the Format to 3 or dtpCustom.

Private Sub UserForm_Initialize()
       With Me.DTPicker1
        .Format = dtpCustom
        .CustomFormat = "HH:mm"
        'display spinbutton
        .UpDown = True
        .Value = Now
    End With
End Sub

 

[royUK]

I've just noticed that you wanted to display AM/PM, in which case use

 .CustomFormat = "HH:mm tt"

 

[Digitborn.com]

Roy, thanx, all that works right as I like it
One more thing I wonder, is it possible to Align center the value in DTPicker?