Bonjour à tous,
Une petite facile en ce samedi matin....
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 /12/2075
si je fais ¡-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
'---------------------------------------
Merci de votre collaboration.
Bonjour à tous,
Une petite facile en ce samedi matin....
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 /12/2075
si je fais ¡-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
'---------------------------------------
Merci de votre collaboration.
Bonjour à tous,
Une petite facile en ce samedi matin....
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 /12/2075
si je fais ¡-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
'---------------------------------------
Merci de votre collaboration.
Et pour les sceptiques, voir ceci : http://cjoint.com/?fpnxw5KED4
"michdenis" <mailto: a
écrit dans le message de groupe de discussion :
<mailto:...
Merci à vous deux.
J'ai mis la petite procédure dans un tout nouveau classeur.
Elle retourne toujours 132.
J'ai testé avec d'autres valeurs et le résultat est exact...
Quelqu'un a une explication ?
Est-ce que mon processeur fait de l'alzheimer ?
Celui de l'ordi bien attendu ! Clignement d'œil émoticône))
Et pour les sceptiques, voir ceci : http://cjoint.com/?fpnxw5KED4
"michdenis" <michdenis@hotmail.com <mailto:michdenis@hotmail.com>> a
écrit dans le message de groupe de discussion :
uPpH9BC9KHA.5900@TK2MSFTNGP04.phx.gbl
<mailto:uPpH9BC9KHA.5900@TK2MSFTNGP04.phx.gbl>...
Merci à vous deux.
J'ai mis la petite procédure dans un tout nouveau classeur.
Elle retourne toujours 132.
J'ai testé avec d'autres valeurs et le résultat est exact...
Quelqu'un a une explication ?
Est-ce que mon processeur fait de l'alzheimer ?
Celui de l'ordi bien attendu ! Clignement d'œil émoticône))
Et pour les sceptiques, voir ceci : http://cjoint.com/?fpnxw5KED4
"michdenis" <mailto: a
écrit dans le message de groupe de discussion :
<mailto:...
Merci à vous deux.
J'ai mis la petite procédure dans un tout nouveau classeur.
Elle retourne toujours 132.
J'ai testé avec d'autres valeurs et le résultat est exact...
Quelqu'un a une explication ?
Est-ce que mon processeur fait de l'alzheimer ?
Celui de l'ordi bien attendu ! Clignement d'œil émoticône))
Et pour les sceptiques, voir ceci : http://cjoint.com/?fpnxw5KED4
Et pour les sceptiques, voir ceci : http://cjoint.com/?fpnxw5KED4
Et pour les sceptiques, voir ceci : http://cjoint.com/?fpnxw5KED4
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 !
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 !
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 !
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 !
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 !
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 !
Sauf que dans l'exemple que j'ai donné, la version
Excel 2003 retourne le bon résultat.
Je suppose qu'on a corrigé en 2010 le bogue de 2007 qui
n'existait pas dans une version antérieure à 2007.
Sauf que dans l'exemple que j'ai donné, la version
Excel 2003 retourne le bon résultat.
Je suppose qu'on a corrigé en 2010 le bogue de 2007 qui
n'existait pas dans une version antérieure à 2007.
Sauf que dans l'exemple que j'ai donné, la version
Excel 2003 retourne le bon résultat.
Je suppose qu'on a corrigé en 2010 le bogue de 2007 qui
n'existait pas dans une version antérieure à 2007.