Discussion :

[Yannv]

Bonjour ,

J'ai une base Access avec une colonne au format DATE JJ/MM/YYYY.


Dans un mSHflexgrid je traite cette table pour recuperer plusieurs lignes ,mais dans la colonne DateDuControle , les dates sont au format MM/JJ/YYYY ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub colonne()
With MSHFlexGrid1
                   For I = 0 To .Rows - 1
                   .TextMatrix(I, 2) = Format(.TextMatrix(I, 2), "DD/MM/YYYY") ' test format
                                   End If

Je n'arrive pas à avoir le bon format Date dans mon MSHFlexgrid ,

Pouvez vous m'aider ,

Yann

[l_autodidacte]

Peut-être en créant une fonction qui transforme la date au format souhaité (A tester sous VBScript)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim DT DT = "12/28/2022" 
Function Format_FR(strTxt)  
    Format_FR = Mid(strTxt,4,2) & "/" & Left(strTxt, 2) & "/" &  Right(strTxt, 4) 
End Function 
MsgBox Format_FR(DT)  
'ou encore un peu plus court : 
Function Format_FR(strTxt)
     Format_FR = Mid(strTxt,4,3) & Left(strTxt, 3) & Right(strTxt, 4)
End Function

Ensuite, tu l'incorpores au code.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With MSHFlexGrid1
     For I = 0 To .Rows - 1
        DateLue =.TextMatrix(I, 2) 
       .TextMatrix(I, 2)= Format_FR(DateLue)
        '....suite du code..............