Ya mira, el siguiente codigo, solo faltaria a ese codigo colocarle el inicio al arranque de windows, anque eso lo puedes agregar manualmente:
Tienes que agregar el Componente "Microsoft Windows Common Controls-2.6.0 (SP6)"
y agregar 2 Dtpicker y un boton
Código vb:
Ver originalPublic Sub SetDate(NewDate As Variant)
On Error Resume Next
DateTime.Date = NewDate
End Sub
Public Sub SetTime(NewTime As Variant)
On Error Resume Next
DateTime.Time = NewTime
End Sub
Private Sub Command1_Click()
'MsgBox Format(CDate(DTPicker1.Value), "dd/MM/yyyy")
'MsgBox Format(DTPicker2.Value, "HH:mm:ss")
SetDate (Format(CDate(DTPicker1.Value), "dd/MM/yyyy"))
SetTime (Format(DTPicker2.Value, "HH:mm:ss"))
End Sub
Private Sub Form_Load()
With DTPicker1
.Format = dtpCustom
.CustomFormat = "dd/mm/yyyy"
'.UpDown = True 'Opcional es la forma como quieres que se use el control
.Value = Now
End With
With DTPicker2
.Format = dtpCustom
.CustomFormat = "HH:mm:ss"
.UpDown = True
.Value = Now
End With
End Sub
Referencia :
http://www.recursosvisualbasic.com.a...l-dtpicker.htm