Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: résultat de fonction incohérent

avatar
21/10/14 12:38
Il y en fait plusieurs soucis dans ta fonction :
1. La fonction calcule la variable DateConv mais ne renvoie pas cette valeur à la fin.
2. DateConv est une variable de type Date (correcte), mais tu lui affectes soit 0 (numérique), soit une chaîne de caractères (la concaténation des Right(), Mid() et Left().

Pour résoudre le point 1, tu peux faire ça :
Langage: Visual Basic
Function CalculDate(DateOrigine As String) As Date Dim DateConv As Date   If Val(Left(DateOrigine, 2)) = 0 Then DateConv = 0 Else DateConv = Right(DateOrigine, 2) & "/" & Mid(DateOrigine, 5, 2) & "/" & Left(DateOrigine, 4) End If   CalculDate = DateConv End Function
Maintenant, il faudrait aussi traiter les problèmes de types de données. Tu peux regarder cette fonction du Grenier qui fait exactement ce que tu souhaites.

Ouala !

-- Hervé Inisan.
SujetAuteurEnvoyé le

résultat de fonction incohérent

gabrieel21/10/14 11:55

Re: résultat de fonction incohérent

Hervé Inisan21/10/14 12:38

Re: résultat de fonction incohérent

gabrieel21/10/14 14:33

Re: résultat de fonction incohérent

Hervé Inisan21/10/14 15:31

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter