Formato fecha MSHFlexGrid
Publicado por Andres (44 intervenciones) el 11/01/2019 04:07:20
cuando muestro una fecha desde una tabla de Access el MSHF la pone en formato mm/dd/yyyy, no consigo que la muestre en dd/mm/yyyy (Ej: 08/29/2018 y quiero que muestre 29/08/2018)
este es el cod. que uso
este es el cod. que uso
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Form_Load()
Compras
Set MSHFlexGrid1.DataSource = adocompras
MSHFlexGrid1.Refresh'Formato grilla detalle compras
MSHFlexGrid1.ColWidth(0) = 0
MSHFlexGrid1.ColWidth(1) = 0
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = 0
MSHFlexGrid1.ColWidth(2) = 1000
MSHFlexGrid1.Col = 2
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Text = "FECHA"
MSHFlexGrid1.ColWidth(3) = 1500
MSHFlexGrid1.Col = 3
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Text = "Nº FACTURA"
MSHFlexGrid1.ColWidth(4) = 1500
MSHFlexGrid1.Col = 4
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Text = "Nº REMITO"
MSHFlexGrid1.ColWidth(5) = 2500
MSHFlexGrid1.Col = 5
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Text = "PROVEEDOR"
MSHFlexGrid1.ColWidth(6) = 1000
MSHFlexGrid1.Col = 6
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Text = "IMPORTE"
'Formato fecha
i = 0Do While i < MSHFlexGrid1.Rows
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = 2 'columna a dar formato
MSHFlexGrid1.Text = Format(MSHFlexGrid1.Text, "dd/mm/yyyy")
i = i + 1
Loop
End Sub
Valora esta pregunta
0
