Discussion :

[jessy212]

bonjour,
je dispose d'une date sous format string AAAAMMJJ, j'ai écrit le code suivant pour la convertir en format date.

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
Private Function convertdate(seance As String) As Date
Dim nbr As Long
Dim anne As Long
Dim mois As Long
Dim jour As Long
 
nbr = CLng(seance)
 
anne = Int(nbr / 10000)
mois = Int((nbr Mod 10000) / 100)
jour = nbr Mod 1000000
 
convertdate = DateSerial(CInt(anne), CInt(mois), CInt(jour))
 
End Function

vb m'affiche en exécutant qu'il ya tjs dépassement de capacité pour l'instruction DateSerial.
j'arrive pas à détecter ma faute
y a t il qcq 'un qui peut m'aider à le faire ou bien qui pourra meproposer une autre méthode plus astucieuse
Merci

[Muhad'hib]

Salut,


Essaye plutot ça :

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
Private Function convertdate(seance As String) As Date
Dim nbr As Long
Dim anne As Long
Dim mois As Long
Dim jour As Long

nbr = CLng(seance)

anne = Int(nbr / 10000)
mois = Int((nbr Mod 10000) / 100)
jour = nbr Mod 100

convertdate = DateSerial(CInt(anne), CInt(mois), CInt(jour))

End Function

A+

[jessy212]

ah oui bien sur
ca marche
merci bien

[Muhad'hib]

Mais à ta place je ferais plutôt ça :

Code :

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

1
2
3
4
 
anne = Int(Left(seance, 4))
mois = Int(Mid(seance, 5, 2))
jour = Int(Right(seance, 2))

A+