Comptage de jours Excel Vs VB

Le
Thierry
Bonjour,

J'ai posé ma question sur le forum Excel mais elle concerne également le
forum VB.

Selon que j'utilise Excel ou Visual Basic 2008 Express, le nombre de jours
n'est pas le
même.

Voici les formules utilisées :

Excel ( 3376 jours )
= DATEDIF(AUJOURDHUI();"03/01/2018";"d")

Visual Basic ( 3375 jours )
Dim firstDate As Date
firstDate = #1/3/2018#
Me.Label1.Text = DateDiff(DateInterval.Day, Now, firstDate) & " jours."

Quelqu'un aurait-il une explication sur cette différence ?

Merci et bonne journée.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-marc
Le #17439051
Thierry wrote:
Bonjour,

J'ai posé ma question sur le forum Excel mais elle concerne également
le forum VB.

Selon que j'utilise Excel ou Visual Basic 2008 Express, le nombre de
jours n'est pas le
même.

Voici les formules utilisées :

Excel ( 3376 jours )
= DATEDIF(AUJOURDHUI();"03/01/2018";"d")

Visual Basic ( 3375 jours )
Dim firstDate As Date
firstDate = #1/3/2018#
Me.Label1.Text = DateDiff(DateInterval.Day, Now, firstDate) & "
jours."
Quelqu'un aurait-il une explication sur cette différence ?

Merci et bonne journée.



Hello,

moi j'obtiens aussi 3376 avec Visual Basic:

Dim d As Date


d = CDate("03/01/2018")

MsgBox DateDiff("d", Now, d)


Cordialement;

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
LE TROLL
Le #17439941
Bonjour,

Y en a peut être un qui ne compte par une extrémité incluse ou le
contraire ?

Et d'une façon générale, il faut passer par le jour Julien (JJ), c'est
la seule méthode indépendante des astronome et mathématiciens qui est fiable
dans tous les cas.

Le JJ

http://mesromans.free.fr/Module1.bas


------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Thierry" %
| Bonjour,
|
| J'ai posé ma question sur le forum Excel mais elle concerne également le
| forum VB.
|
| Selon que j'utilise Excel ou Visual Basic 2008 Express, le nombre de jours
| n'est pas le
| même.
|
| Voici les formules utilisées :
|
| Excel ( 3376 jours )
| = DATEDIF(AUJOURDHUI();"03/01/2018";"d")
|
| Visual Basic ( 3375 jours )
| Dim firstDate As Date
| firstDate = #1/3/2018#
| Me.Label1.Text = DateDiff(DateInterval.Day, Now, firstDate) & " jours."
|
| Quelqu'un aurait-il une explication sur cette différence ?
|
| Merci et bonne journée.
|
|
|
Modeste
Le #17441131
Bonsour® Thierry avec ferveur ;o))) vous nous disiez :

J'ai posé ma question sur le forum Excel mais elle concerne également
le forum VB.
Selon que j'utilise Excel ou Visual Basic 2008 Express, le nombre de
jours n'est pas le même.

Voici les formules utilisées :

Excel ( 3376 jours )
= DATEDIF(AUJOURDHUI();"03/01/2018";"d")

Visual Basic ( 3375 jours )
Dim firstDate As Date
firstDate = #1/3/2018#
Me.Label1.Text = DateDiff(DateInterval.Day, Now, firstDate) & "
jours."




les fonctions EXCEL
pour feuilles de calculs DATEDIF
pour VBA DateDiff
(remarquez le F final en difference)
n'ont aboslument aucun rapport ni en terme de fonctionnalités, ni en terme syntaxe.
par ailleurs DATEDIF est une fonction cachée qui n'est plus documenté dans l'aide depuis au moins Excel 97

par contre l'utilisation de DateDiff sous VBA EXCEL ne devrait causé aucun souci par rapport à VB
VBA étant un sous ensemble de VB



--
--
@+
;o)))
Thierry
Le #17443801
Bonjour et merci à ceux qui m'ont répondu.
La solution : Dans Visual Basic 2008 Express, j'ai remplacé Now par Today
et le résultat concorde alors avec celui d'Excel.
Bonne journée.


"Thierry" a écrit :

Bonjour,

J'ai posé ma question sur le forum Excel mais elle concerne également le
forum VB.

Selon que j'utilise Excel ou Visual Basic 2008 Express, le nombre de jours
n'est pas le
même.

Voici les formules utilisées :

Excel ( 3376 jours )
= DATEDIF(AUJOURDHUI();"03/01/2018";"d")

Visual Basic ( 3375 jours )
Dim firstDate As Date
firstDate = #1/3/2018#
Me.Label1.Text = DateDiff(DateInterval.Day, Now, firstDate) & " jours."

Quelqu'un aurait-il une explication sur cette différence ?

Merci et bonne journée.






Publicité
Poster une réponse
Anonyme