bonjour,
je dispose d'une date sous format string AAAAMMJJ, j'ai écrit le code suivant pour la convertir en format date.
vb m'affiche en exécutant qu'il ya tjs dépassement de capacité pour l'instruction DateSerial.
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
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
Partager