El formato fecha se cambia
estoy dejando la fecha manual.. La fecha se cambia de 06/02/2018 A 02/06/2018
El dia pasa al medio como mes...
1 respuesta
Respuesta de Dante Amor
1
Tiene el mismo formato
Necesito que, la fecha si. Sea automática. Pero solo pueda modificarse la fecha, no ser ingresada manual
Cambia la rutina Agregar_Fec por esta:
Sub Agregar_Fec(combo As ComboBox, dato As String) Dim fec1 As Date Dim fec2 As Date fec2 = CDate(dato) For i = 0 To combo.ListCount - 1 fec1 = CDate(combo.List(i)) If fec1 = fec2 Then Exit Sub If fec1 > fec2 Then combo.AddItem fec2, i: Exit Sub Next combo.AddItem fec2 'Es mayor lo agrega al final End Sub
sal u dos
