Meme si la fonction existe deja, cela reste bien de les faire de sois meme quelque fois :) Question de savoir comment faire sans avoir tout cuit dans bouche :)
sa me Rappelle souvent des situations que j'ai eu au passer. Exp: j'avais refait la commande "LIKE" oufff sa m'avais pris 1 journee pour rien... lol hmmm pour rien... nahhh.. ;) je l'utiliserais si la commande serais pas implanter. (Exp. en ASM) :) Flexible un jours, Flexible toujour ;)
Rating: 8/10
Ps: Merci Microsoft pour avoir implanter TRIM$ j'etais tanner de trainer ma function.
Function Trim(Buff$) as string
Trim=ltrim$(rtrim$(Buff$))
end function
Maintenant pour quel version VB fera cette fonction.....
Public Function GetNext(a$, ToChar$) As String
Ps = InStr(a$, ToChar$)
If Ps = 0 Then
GetNext a$: a$ ""
Else
GetNext = Mid$(a$, 1, Ps - 1)
a$ = Mid$(a$, Ps + Len(ToChar$))
End If
End Function
Exp: a$="Test1 | Test2": Getnext(A$," | ") = "Test1"
et si on repete un autre Getnext(A$," | ") bien
"Test2" va sortire car il na pas trouver de " | "
alors il donne le reste de la string.
Salut Philippe240
Beau boulot d'analyse, c'est bien fait, rien ne manque. Parfait pour débutant !
Mais là, je suis désolé, je vais te casser le moral :
Toutes tes belles lignes peuvent se résumer à :
NbJour = DateDiff("d", MaDate1, MaDate2)
L'aide, lire l'aide et regarder les fonctions liées aux calculs, tu verras, il y en a des sympas.
Même si toutes ces lignes ne servent à rien, je recommande aux débutants de les lire et de regarder comment c'est fait : utilisation de 'Mod', 'Select Case', de la struture des 'If Then Else', le programme est commenté, bien indenté (agréable à lire), l'utilisation de 'Option Explicit' en tête de page oblige à dimensionner chaque variable, d'où une recherche sur les variables et leur étendues.
On sent qu'il y a de la reflexion, bravo.
(pis c'est nowel : un 8 tiens)
sa me Rappelle souvent des situations que j'ai eu au passer. Exp: j'avais refait la commande "LIKE" oufff sa m'avais pris 1 journee pour rien... lol hmmm pour rien... nahhh.. ;) je l'utiliserais si la commande serais pas implanter. (Exp. en ASM) :) Flexible un jours, Flexible toujour ;)
Rating: 8/10
Ps: Merci Microsoft pour avoir implanter TRIM$ j'etais tanner de trainer ma function.
Function Trim(Buff$) as string
Trim=ltrim$(rtrim$(Buff$))
end function
Maintenant pour quel version VB fera cette fonction.....
Public Function GetNext(a$, ToChar$) As String
Ps = InStr(a$, ToChar$)
If Ps = 0 Then
GetNext a$: a$ ""
Else
GetNext = Mid$(a$, 1, Ps - 1)
a$ = Mid$(a$, Ps + Len(ToChar$))
End If
End Function
Exp: a$="Test1 | Test2": Getnext(A$," | ") = "Test1"
et si on repete un autre Getnext(A$," | ") bien
"Test2" va sortire car il na pas trouver de " | "
alors il donne le reste de la string.
A+ Les Zami ;) Joyeux Noel!!!!! et Bonne Annee!!
- Messages postés
-
39
- Date d'inscription
- mercredi 4 juillet 2001
- Statut
- Membre
- Dernière intervention
- 8 avril 2014
1ça me rappelle mon début!
- Messages postés
-
559
- Date d'inscription
- jeudi 25 juillet 2002
- Statut
- Membre
- Dernière intervention
- 5 septembre 2007
1NbJour = MaDate2 - MaDate1
:o)
- Messages postés
-
14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
74Beau boulot d'analyse, c'est bien fait, rien ne manque. Parfait pour débutant !
Mais là, je suis désolé, je vais te casser le moral :
Toutes tes belles lignes peuvent se résumer à :
NbJour = DateDiff("d", MaDate1, MaDate2)
L'aide, lire l'aide et regarder les fonctions liées aux calculs, tu verras, il y en a des sympas.
Même si toutes ces lignes ne servent à rien, je recommande aux débutants de les lire et de regarder comment c'est fait : utilisation de 'Mod', 'Select Case', de la struture des 'If Then Else', le programme est commenté, bien indenté (agréable à lire), l'utilisation de 'Option Explicit' en tête de page oblige à dimensionner chaque variable, d'où une recherche sur les variables et leur étendues.
On sent qu'il y a de la reflexion, bravo.
(pis c'est nowel : un 8 tiens)