Calculateur de jours entre deux dates années bissextiles comprises

Soyez le premier à donner votre avis sur cette source.

Vue 10 925 fois - Téléchargée 339 fois

Description

Mon premier programme à vie, ça peut être très pratique... le code est assez débuant....

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

pr0c3ss0r
Messages postés
4
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
29 avril 2008

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!!
khaleid
Messages postés
39
Date d'inscription
mercredi 4 juillet 2001
Statut
Membre
Dernière intervention
8 avril 2014

moi je trouve que c'est bon de faire marcher son cerveau avant de se rendre compte que la fonction existe .
ça me rappelle mon début!
vpcorpprog
Messages postés
36
Date d'inscription
mardi 9 mars 2004
Statut
Membre
Dernière intervention
18 octobre 2005

Il est bien. 5/10
Mindiell
Messages postés
559
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
5 septembre 2007
1
Jack, je crois que tu peux carrement resumer a ca :
NbJour = MaDate2 - MaDate1
:o)
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
64
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)

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.