How to format a date

[alee001]

I had been hating write the code about date & time format. There are a problem as following code, I had tried to using Cdate, DateValue, Val...but not work,anyone solve it. Thks.

Sub default_value()
Dim fmt As String
fmt = "hh:mm:ss yyyy/mm/dd"
With Start_date
    .Enabled = True: .Value = Date  'default today
End With
data_from.Caption = Format(Application.Min(Range("A:A") + Start_date.Value), fmt)   'wrong code ?
data_end.Caption = Format(Application.Max(Range("A:A") + Start_date.Value), fmt)
End Sub

 

[alee001]

Sorry, typing error for code. Solve it.

Sub default_value()
Dim fmt As String
fmt = "hh:mm:ss yyyy/mm/dd"
With Start_date
    .Enabled = True: .Value = Date  'default today
End With
data_from.Caption = Format(Application.Min(Range("A:A")) + CDate(Start_date.Value), fmt)   
data_end.Caption = Format(Application.Max(Range("A:A")) + CDate(Start_date.Value), fmt)
End Sub

Can I delete this post?