Conversion date /vba-- access

Commenter

Contenu du snippet

Petite fonction que je me sert dans mes requêtes. Elle convertie une chaîne de caractère au format date.
Les données à convertir sont de la forme "20050610" -->année, mois, jour

Source / Exemple : 


Public Function DatePandore(mydate As string) as Date
'Conversion au format date
On Error GoTo err_Date
    If IsNull(mydate) Then
        DatePandore = ""
    Else
        DatePandore = Right(mydate, 2) & "/" & Mid(mydate, 5, 2) & "/" & Left(mydate, 4)
    End If
exit_err:
    Exit Function
err_Date:
    MsgBox "L'erreur suivante :" & vbCrLf & Err.Number & " " & Err.Description & vbCrLf & _
        "s'est produite dans la fonction DatePandore", vbCritical, "NetJoao"
    Resume exit_err
End Function

Conclusion :


Si quelqu'un a mieux, qu'il le fasse savoir ?
Utilisation de la fonction :
DatePandore([Champ])
Voilà c'est très basic, mais ça me sert bien.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (NetJoao)