Calendrier automatique

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

re

je ne connais pas ce Chip Pearson !
mais du coup je suis allé faire un tour sur le site. intéressant !
malheureusement je ne connais pas la langue. j'ai donc fais la traduction, mais ...!?

il semblerait tout de même que datedif pose problème avec le paramètre "md"
il y aurait erreur avec les années bissextiles !?

bon, maintenant je ne vais pas me prendre le chou avec ça !
et puis tu as peut être raison !?
on a trouvé la solution (ou plutôt 2), ce qui n'était pas évident au départ, c'est le principal !
 

Lone-wolf

XLDnaute Barbatruc
Re : Calendrier automatique

Rebonjour Roland,

j'ai visité le site de Chip Pearson, apparament et si j'ai bien compris, Datediff avec "md", ne tiens pas compte des jours(Années bissextiles). Je ne veux pas jeter l'huile sur le feu, comme on dit, mais...

en bas de la page

Calcul Age

Vous pouvez utiliser le DATEDIF pour calculer l'âge d'une personne. Par exemple, la formule ci-dessous calculer l'âge d'une personne à la date actuelle, où Date de naissance est la date de naissance de la personne.

= DATEDIF (Date de naissance, AUJOURD'HUI (), "y") et "année" et DATEDIF (Date de naissance, AUJOURD'HUI (), "ym") & "mois" et DATEDIF (Date de naissance, AUJOURD'HUI (), "md") & "jours"

A+ :cool:
 

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

re

je viens de copier ta formule et je l'incorpore au classeur de ROGER et de moi-même
et je le mets sur le fil !
à tout de suite !

j'espère qu'au vu des résultats tu ne vas pas pleurer !?
 

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

re

voir classeur ci-joint !

on se cotise pour te payer des mouchoirs :eek:


EDIT: j'ai trouvé qq du genre qui explique ceci

DATEDIF est buggé lorsque la date la plus récente:
est une année bissextile
ET que le mois est janvier
ET que le jour inferieur au jour de la date la plus ancienne
ex: 20/06/1975 10/01/2008
ici 2008 est bissextille avec janvier et le jour 10 < 20
 

Fichiers joints

Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re : Calendrier automatique

Re Roland,

Auteur Jean Gabon - Ce lien n'existe plus
Attention : il faut absolument mettre les guillemets dans la formule et même dans un classeur excel francophone, les unités sont les initiales des périodes indiquées en anglais, Year, Month, Day.

EDIT: pas besoin ce cotiser, je ne vais pas pleurer pour ça, j'ai montré 2 résultats (preuves en images).



EDIT2 : @Modeste_geedee

Ne pas vouloir entendre est parfois de l'ordre de l'inconscient...
Je me demande qui sait qui ne veux pas entendre.


Certains scientifique affirme qu'il y a eu le Big Bang, que l'on descend du singe et ensuite, même d'un poisson. Pour celà il y croient dur comme pierre, mais ces constellations ne sont pas apparus comme ça par enchentements?! Est-ce qu'ils étaient là pour le voir ce fameux Bing Bang???.

La seconde « est la durée de 9 192 631 770 périodes de la radiation correspondant à la transition entre les niveaux hyperfins F=3 et F=4 de l’état fondamental 6S½ de l’atome de césium 133 ». Sommes-nous sûrs que ce soit une science exacte???

Et si Dieu nous dirait "Vous avez tout faux!"?! Que ferions nous.

En voyant tes post's, je ne me pose même pas la question de comment tu réagirait.



A+ :cool:
 
Dernière édition:

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

re

oui mais ...
j'ai essayé et voilà le résultat !
=DATEDIF("31/3/2007";"2/5/2008";"MD")=1
=DATEDIF("31/3/2007";"2/1/2008";"MD") = 166
date sur le site que tu m'indique !

EDIT:

as-tu regardé mon classeur ?
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re : Calendrier automatique

Re Roland,

oui je l'ai regardé. Et je remet l'image et la fonction de Chip Pearson qui n'emploie pas DATEDIF.



San.jpg




Code:
Function Age(Date1 As Date, Date2 As Date) As String
'origine: Chip Pearson
    Dim Y%, M%, D%, Temp1 As Date
    Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1))
    Y = Year(Date2) - Year(Date1) + (Temp1 > Date2)
    M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2))
    D = Day(Date2) - Day(Date1)
    If D < 0 Then
        M = M - 1
        D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1
    End If
    Age = Y & " année(s) " & M & " mois " & D & " jour(s)"
End Function

A+ :cool:
 

Fichiers joints

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

re

là, mon ami, tu as un sérieux problème !?

quel ton but ? si ce n'est démolir le travail que l'on fait ?

EDIT:
l'exemple dans le classeur devrait suffire à t'éclairer !?
la preuve est flagrante ! NON ?

car tu nous bassines avec DateDif
et une fois qu'on a prouvé que ça cause des erreurs
tu reviens sur Chip Pearson(sans DateDif) donc avec macro,
mais les macros effectuées par notre ami ROGER2327 et moi-même
et qui sont concluantes, ça tu n'en veux pas !
 
Dernière édition:

ROGER2327

XLDnaute Barbatruc
Re : Calendrier automatique

Bonsoir à tous.


Je vois que la discussion passionne... Personnellement, je me contrefous des formules de Monsieur Pearson que je ne connais pas (et dont les formules citées sont, pour le moins, douteuses).

Je reviens parce que j'ai oublié de corriger la formule Excel (sans VisualBasic) que j'ai proposé avec le message #9. (Voir le classeur joint.)

Par ailleurs, j'ai comparé les résultats de Roland_M et les miens sur des dates et heures aléatoires postérieures au 28 février 1900 pour éviter le bogue du 29 février 1900. J'ai procédé à environ 35000 essais. Les résultats sont toujours concordants.

Je pense que je vais en rester là... ...sauf si une erreur grossière est détectée par un lecteur...

Bien entendu, un résultat non conforme aux élucubrations attribuées à l'honorable Monsieur Pearson ne saurait être raisonnablement considéré comme une erreur grossière.


Bonne soirée.


ℝOGER2327
#7130


Lundi 2 Gueules 141 (Saint Sigisbée, eunuque - fête Suprême Quarte)
8 Pluviôse An CCXXII, 7,4322h - mézéréon
2014-W05-1T17:50:15Z
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Re : Calendrier automatique

Bonsoir à tous,

vous aviez raisons et je m'incline en vous faisant toutes mes excuses :eek::eek::eek: . Suite au dates que Roland m'a montré, j'ai vu les erreurs, qui étaient impossibles à corriger.



A+ :cool:
 

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

re et fin

excuses acceptées !

moi aussi je suis du genre tenace !
mais quand on argumente il faut savoir le reconnaître !

c'est pas toujours facile j'ai déjà vécu cela et c'est ce qui m'a fait évoluer !

allez bonne nuit et au plaisir !
 

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

bien le bonjour à tous !

maintenant que tout le monde est d'accord ...
j'ai regroupé dans ce classeur toutes les possibilités de calculs que nous avons faites
Formules + VBA + DATEDIF

j'ai mes deux routines mais tout le reste est de ROGER2327
voir ses deux Formules sur Excel !!!

j'ai refais la mise en forme pour une meilleure lisibilité.

classeur à garder, car je pense ça pourrait ressurgir un jour !?

EDIT:
j'ai remis le classeur car j'avais oublié une formule à ROGER2327 ! mille excuses !
 

Fichiers joints

Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re : Calendrier automatique

Bonjour Roland,

vous l'aurez deviné ce n'est pas Clac mais Calc !
Oui, j'ai vu ça hier. J'ai pensé que ça s'adressait à moi "Clac(s) et...prepare les mouchoirs".


Dans les colonnes de J à O je vois #Valeur qui est inscrite, c'est normal?.



A+ :cool:
 

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

salut,

peut tu préciser car je n'ai pas ce phénomène !?

c'est sur une ligne en particulier ?
 

Lone-wolf

XLDnaute Barbatruc
Re : Calendrier automatique

C'est dans les colonnes de la fonction vba (DifDate) de Roger, de J3 à O38 que #Valeur est inscrite.


A+ :cool:
 

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

re

je suis sur Excel 2007 et toi sur Excel 2010 !?
probablement un problème de compatibilité !?

il faut voir dans le module de ROGER2327
il s'agit de la function DifDate

essayer de rajouter au bout As Variant
comme ceci:
Public Function DifDate(début As Date, fin As Date) As Variant 'ROGER2327
 

Roland_M

XLDnaute Barbatruc
Re : Calendrier automatique

bonsoir,

EDIT:
j'ai supprimé le fichier ici en version 2003 car incomplet et inutile !
c'était juste pour faire un essai avec Lone-Wolf.
 
Dernière édition:

Discussions similaires


Haut Bas