Dans cette macro, je voudrais faire apparaître
dans mon MsgBox :
Le mercredi 18 février 2009 au lieu de 18/02/09
Le lundi 29 décembre 2042 au lieu de 29/12/2042
33 ans 11 mois 9 jours au lieu de 09/11/33
Comment faire ?
Et si vous pouvez simplifier la macro, allez-y !
Option Base 1
Sub Escargot()
Dim L() As Long
Dim d() As Double
Dim dd As Date
Dim dc As Date
Dim temps As Date
ReDim d(1)
ReDim L(1)
dd = "18/02/2009"
d(1) = 10
L(1) = 100
i = 1
Do Until d(i) > L(i)
i = i + 1
ReDim Preserve d(i)
ReDim Preserve L(i)
L(i) = 100 * i
d(i) = d(i - 1) * L(i) / L(i - 1) + d(1)
Loop
dc = dd + i
temps = dc - dd
MsgBox "Date de départ :" & vbLf & dd & vbLf & "Date de la chute :" & vbLf & dc _
& vbLf & "Temps requis :" & vbLf & temps
End Sub
ah ! cet eternel problème de date ;o)) <> de 2 jours tout de même http://www.cijoint.fr/cjlink.php?file=cj200902/cij70KWxwe.xls
;o))) la question sous-jacente est combien un mois a-t-il de jours ??? parce que l'age est : 12367 jours quelle que soit la méthode ;o)))
alors qu'une personne agée de 33 ans 10 mois et 11 jours selon quelle soit née avant ou aprés le 1er mars , en 1ere, 2eme ou 3éme année suivant une année bissextile aura son age en jours variant de 1 à 3 j 18/02/09 29/12/42 12367 33 ans 10 mois 11 jours 18/08/09 29/06/43 12368 33 ans 10 mois 11 jours 18/02/10 29/12/43 12367 33 ans 10 mois 11 jours 18/08/10 29/06/44 12369 33 ans 10 mois 11 jours 18/02/11 29/12/44 12368 33 ans 10 mois 11 jours 18/08/11 29/06/45 12369 33 ans 10 mois 11 jours 18/02/12 29/12/45 12368 33 ans 10 mois 11 jours 18/08/12 29/06/46 12368 33 ans 10 mois 11 jours 18/02/13 29/12/46 12367 33 ans 10 mois 11 jours
ce décalage pouvant aller jusque 5 jours si les mois debut et fin sont consécutifs 18/02/10 29/03/43 12092 33 ans 1 mois 11 jours 18/08/10 29/09/43 12095 33 ans 1 mois 11 jours 18/02/11 29/03/44 12093 33 ans 1 mois 11 jours 18/08/11 29/09/44 12096 33 ans 1 mois 11 jours 18/02/12 29/03/45 12093 33 ans 1 mois 11 jours 18/08/12 29/09/45 12095 33 ans 1 mois 11 jours 18/02/13 29/03/46 12092 33 ans 1 mois 11 jours 18/08/13 29/09/46 12095 33 ans 1 mois 11 jours
Bonsour® Jacky
je pense honnetement que cela est correct !!!
ah ! cet eternel problème de date ;o))
<> de 2 jours tout de même
http://www.cijoint.fr/cjlink.php?file=cj200902/cij70KWxwe.xls
;o)))
la question sous-jacente est combien un mois a-t-il de jours ???
parce que l'age est : 12367 jours quelle que soit la méthode ;o)))
alors qu'une personne agée de 33 ans 10 mois et 11 jours selon quelle soit née avant ou aprés le 1er mars , en 1ere, 2eme ou 3éme année suivant une année bissextile
aura son age en jours variant de 1 à 3 j
18/02/09 29/12/42 12367 33 ans 10 mois 11 jours
18/08/09 29/06/43 12368 33 ans 10 mois 11 jours
18/02/10 29/12/43 12367 33 ans 10 mois 11 jours
18/08/10 29/06/44 12369 33 ans 10 mois 11 jours
18/02/11 29/12/44 12368 33 ans 10 mois 11 jours
18/08/11 29/06/45 12369 33 ans 10 mois 11 jours
18/02/12 29/12/45 12368 33 ans 10 mois 11 jours
18/08/12 29/06/46 12368 33 ans 10 mois 11 jours
18/02/13 29/12/46 12367 33 ans 10 mois 11 jours
ce décalage pouvant aller jusque 5 jours si les mois debut et fin sont consécutifs
18/02/10 29/03/43 12092 33 ans 1 mois 11 jours
18/08/10 29/09/43 12095 33 ans 1 mois 11 jours
18/02/11 29/03/44 12093 33 ans 1 mois 11 jours
18/08/11 29/09/44 12096 33 ans 1 mois 11 jours
18/02/12 29/03/45 12093 33 ans 1 mois 11 jours
18/08/12 29/09/45 12095 33 ans 1 mois 11 jours
18/02/13 29/03/46 12092 33 ans 1 mois 11 jours
18/08/13 29/09/46 12095 33 ans 1 mois 11 jours
ah ! cet eternel problème de date ;o)) <> de 2 jours tout de même http://www.cijoint.fr/cjlink.php?file=cj200902/cij70KWxwe.xls
;o))) la question sous-jacente est combien un mois a-t-il de jours ??? parce que l'age est : 12367 jours quelle que soit la méthode ;o)))
alors qu'une personne agée de 33 ans 10 mois et 11 jours selon quelle soit née avant ou aprés le 1er mars , en 1ere, 2eme ou 3éme année suivant une année bissextile aura son age en jours variant de 1 à 3 j 18/02/09 29/12/42 12367 33 ans 10 mois 11 jours 18/08/09 29/06/43 12368 33 ans 10 mois 11 jours 18/02/10 29/12/43 12367 33 ans 10 mois 11 jours 18/08/10 29/06/44 12369 33 ans 10 mois 11 jours 18/02/11 29/12/44 12368 33 ans 10 mois 11 jours 18/08/11 29/06/45 12369 33 ans 10 mois 11 jours 18/02/12 29/12/45 12368 33 ans 10 mois 11 jours 18/08/12 29/06/46 12368 33 ans 10 mois 11 jours 18/02/13 29/12/46 12367 33 ans 10 mois 11 jours
ce décalage pouvant aller jusque 5 jours si les mois debut et fin sont consécutifs 18/02/10 29/03/43 12092 33 ans 1 mois 11 jours 18/08/10 29/09/43 12095 33 ans 1 mois 11 jours 18/02/11 29/03/44 12093 33 ans 1 mois 11 jours 18/08/11 29/09/44 12096 33 ans 1 mois 11 jours 18/02/12 29/03/45 12093 33 ans 1 mois 11 jours 18/08/12 29/09/45 12095 33 ans 1 mois 11 jours 18/02/13 29/03/46 12092 33 ans 1 mois 11 jours 18/08/13 29/09/46 12095 33 ans 1 mois 11 jours
