La fonction DateDif() de la feuille de calcul peut être utilisée
avec la propriété "Evaluate" en vba.
Dans la procédure soumise à votre attention,
Jrs = 132
En fait, si dans une feuille de calcul j'ai 2 cellules
A1 = 08/01/2080 A2 =20/12/2075
si je fais =A1-A2 = 1480
= mod(1480/365) = 20
Comment expliquer que Datedif() retourne 132 au lieu de 20 ?
Il y sûrement quelque chose que je ne vois pas ce matin ?
J'y vais pour un second café... en attendant vos explications !
;-)
'---------------------------------------
Sub test()
Dim P As Long, G As Long
P = CLng(CDate("20/12/2075"))
G = CLng(CDate("08/01/2080"))
Jrs = Evaluate("DateDif(" & P & "," & G & ",""yd"")")
End Sub
'---------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE></TITLE> <META content=text/html;charset=iso-8859-1 http-equiv=Content-Type> <META name=GENERATOR content="MSHTML 8.00.7600.16535"></HEAD> <BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px" id=MailContainerBody leftMargin=0 topMargin=0 bgColor=#ffffff text=#000000 CanvasTabStop="true" name="Compose message area"> <DIV>Bonjour Isabellle,</DIV> <DIV> </DIV> <DIV> </DIV> <DIV>| surement le format de date, je n'obtient pas le même résultat,<BR></DIV> <DIV>J'obtiens le même résultat que toi si j'utilise dans la procédure :</DIV> <DIV> </DIV> <DIV>G = CLng(CDate("01/08/2080")) au lieu de G = CLng(CDate("08/01/2080"))<BR></DIV> <DIV>Merci de ta participation.<BR></DIV> <DIV> </DIV> <DIV> </DIV> <DIV>'--------------------------------</DIV> <DIV>Sub test()<BR>Dim P As Long, G As Long<BR>P = CLng(CDate("20/12/2075"))<BR>G = CLng(CDate("08/01/2080"))<BR><BR>Jrs = Evaluate("DateDif(" & P & "," & G & ",""yd"")")<BR>End Sub<BR>'--------------------------------</DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV></BODY></HTML>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META content=text/html;charset=iso-8859-1 http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.7600.16535"></HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px"
id=MailContainerBody leftMargin=0 topMargin=0 bgColor=#ffffff text=#000000
CanvasTabStop="true" name="Compose message area">
<DIV>Bonjour Isabellle,</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>| surement le format de date, je n'obtient pas le même résultat,<BR></DIV>
<DIV>J'obtiens le même résultat que toi si j'utilise dans la procédure :</DIV>
<DIV> </DIV>
<DIV>G = CLng(CDate("01/08/2080")) au lieu de G =
CLng(CDate("08/01/2080"))<BR></DIV>
<DIV>Merci de ta participation.<BR></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>'--------------------------------</DIV>
<DIV>Sub test()<BR>Dim P As Long, G As Long<BR>P =
CLng(CDate("20/12/2075"))<BR>G = CLng(CDate("08/01/2080"))<BR><BR>Jrs =
Evaluate("DateDif(" & P & "," & G & ",""yd"")")<BR>End
Sub<BR>'--------------------------------</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV></BODY></HTML>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE></TITLE> <META content=text/html;charset=iso-8859-1 http-equiv=Content-Type> <META name=GENERATOR content="MSHTML 8.00.7600.16535"></HEAD> <BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px" id=MailContainerBody leftMargin=0 topMargin=0 bgColor=#ffffff text=#000000 CanvasTabStop="true" name="Compose message area"> <DIV>Bonjour Isabellle,</DIV> <DIV> </DIV> <DIV> </DIV> <DIV>| surement le format de date, je n'obtient pas le même résultat,<BR></DIV> <DIV>J'obtiens le même résultat que toi si j'utilise dans la procédure :</DIV> <DIV> </DIV> <DIV>G = CLng(CDate("01/08/2080")) au lieu de G = CLng(CDate("08/01/2080"))<BR></DIV> <DIV>Merci de ta participation.<BR></DIV> <DIV> </DIV> <DIV> </DIV> <DIV>'--------------------------------</DIV> <DIV>Sub test()<BR>Dim P As Long, G As Long<BR>P = CLng(CDate("20/12/2075"))<BR>G = CLng(CDate("08/01/2080"))<BR><BR>Jrs = Evaluate("DateDif(" & P & "," & G & ",""yd"")")<BR>End Sub<BR>'--------------------------------</DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV> <DIV> </DIV></BODY></HTML>
