Formato de fecha

Hola de nuevo losbeaves.
Tengo un mshflexgrid que en una de sus columnas muestra desde una bd de access fechas. Lo que quiero es que me muestre D/M/A y no M/D/A como lo hace por defecto.-
Hasta luego.

1 respuesta

Respuesta
1
No se si tienes enlazado directamente el mshflexgrid con la base de datos pero si los datos los cargas tu formatea la fecha con format(fecha,"dd/mm/yyyy")
Lo que hago es crear un recordset y con el cargar el flex. ¿En qué parte iría y como el format?
Este ejemplo:
Private Sub Form_Click ()
Dim Entry, i, Msg ' Declara variables.
Msg = "Haga clic en Aceptar para agregar 100 elementos al control MSHFlexGrid."
MsgBox Msg ' Muestra el mensaje.
MSHFlexGrid1.Cols = 2 ' Dos cadenas por fila.
For i = 1 To 100 ' Cuenta de 1 a 100.
Entry = "Entrada " & Chr(9) & I ' Crea la entrada.
MSHFlexGrid1.AddItem Entry ' Agrega la entrada.
Next i
Msg = "Haga clic en Aceptar para eliminar otras entradas."
MsgBox Msg ' Muestra el mensaje.
For i = 1 To 50 ' Determina cómo se
MSHFlexGrid1.RemoveItem i ' eliminan los otros
Next I ' elementos.
Msg = "Haga clic en Aceptar para eliminar todos los elementos."
MsgBox Msg ' Muestra el mensaje.
MSHFlexGrid1.Clear ' Borra el cuadro de lista.
End Sub
En la MSDN hay más ejemplo de como trabajar con el flex.
Disculpa mi poco conocimiento; ¿Pero cuál es la parte donde le das formato a la fecha?
Cuando añades una línea al MSHFlexGrid
Ejemplo:
Entry = "Hoy es: " & Chr(9) & format(date,"dd/mm/yyyy") MSHFlexGrid1.AddItem Entry
No te preocupes por saber mucho o poco que todos posamos por eso.
Disculpa de nuevo, pero yo lo uso así:
Set HFlex1.DataSource = rsbaja (en el activate del formulario) y me carga todo lo que tiene la tabla relacionada con el recordset "rsbaja"; y no se como incluir el codigo de formato de fecha.
Entonces en la consulta debes formatear la fecha
select CodCli,NomCli,format(FecAlta,'dd/mm/yyy') as FecAlta from cli

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas