CALCULATEUR DE JOURS ENTRE DEUX DATES ANNÉES BISSEXTILES COMPRISES

Commentaire de pr0c3ss0r le 28/12/2004 03:20:56

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.

A+ Les Zami ;)  Joyeux Noel!!!!! et Bonne Annee!!