Discussion :

[schwinny]

bonjour.
existe t'il mis a part le cdate() iune fonction qui transforme un string au format JJ/MM/AAAA en date?

[argyronet]

Bonjour,

Tout dépend l'intérêt et l'usage.
Tu as

Code :

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

DateSerial(y,m,j)

qui est très utilisé aussi.

Argy

[schwinny]

j'ai une chaine de caractere dasn le format cité et je veux chercher le numéro de semaine grace a la fonction datepart()
donc je doit changer le type de mon string 20072006 en 20/07/2006

[argyronet]

Bien tu construits la fonction...
Par exemple :

Code :

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

1
2
3
4
5
6
Function ConvertDate(Madate As String) As Date
  If Len(Madate) = 8 Then
    ConvertDate = CDate(Left(Madate, 2) & "/" & Mid(Madate, 3, 2) & _
    "/" & Mid(Madate, 5, 4))
  End If
End Function

Argy

[schwinny]

en fait j'avais fait ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Function ConvertDate(D As String) As Date
Dim A As String, M As String, J As String
 
'prend les champs et decoupe les jours mois et année'
A = Left(D, 4)
M = Mid(D, 5, 2)
J = Right(D, 2)
 
'met au format JJ/MM/AAAA'
ConvertDate = J & M & A
End Function
 
car j'ai besoin de l'avoir au format string mais apres jai besoin que ca soit en date....
 
je vais faire un cdate et tester si ca marche...
 
 
merci ;)