Bonjour,
Voilà ce qu'il te faut:
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
|
Function ConvertTextDate(ByVal TextDate As String) As String
Dim strTempDate As String
If Len(TextDate) = 9 Then
If IsNumeric(CInt(Left(TextDate, 2))) Then
If IsNumeric(CInt(Right(TextDate, 4))) Then
strTempDate = Left(TextDate, 2) & "/" & GetMonthNum(Mid(TextDate, 3, 3)) & "/" & Right(TextDate, 4)
End If
End If
Else
strTempDate = "#Date ?"
End If
ConvertTextDate = strTempDate
End Function
Private Function GetMonthNum(ByVal MonthText As String) As String
Dim intTempMonth As Integer
Select Case MonthText
Case "JAN": intTempMonth = 1
Case "FEV": intTempMonth = 2
Case "MAR": intTempMonth = 3
Case "AVR": intTempMonth = 4
Case "MAI": intTempMonth = 5
Case "JUN": intTempMonth = 6
Case "JUI": intTempMonth = 7
Case "AOU": intTempMonth = 8
Case "SEP": intTempMonth = 9
Case "OCT": intTempMonth = 11
Case "NOV": intTempMonth = 11
Case "DEC": intTempMonth = 12
End Select
GetMonthNum = IIf(intTempMonth < 10, "0" & Trim(Str(intTempMonth)), Trim(Str(intTempMonth)))
End Function |
Que tu utilises comme suit:
SELECT ConvertTextDate([MonChamp]) AS LaDate FROM MaTable
Argy
Partager