Hadrienen,
J’ai été voir ce OutilCalMed, mais n’arrive pas à trouver l’endroit où le télécharger. Mais j’ai trouvé une piste pour faire mon calcul
algoplus,
J’ai eu la même idée, hier soir, a quelque chose près. Pour calculer le nombre d'année (Champ7). Il n'y aura plus qu'à diviser le cout total par le résultat obtenu. J'ai juste un problème à regler (voir à a fin)
Dans un formulaire
Bouton Command1
Champ1 : =date()
Champ2 CopieDateActuelle : Date/heure
Champ3 ConversionDateActuelle : Texte
Champ4 DateAchat : Date/heure
Champ5 ConversionDateAchat : Texte
Champ6 TempsEnJour :Texte
Champ7 TempsEnAnnee : Texte
Code VB
Private Sub Command1_Click()
Champ2.Value = Champ1.Value
Champ3.Value = Champ2.Value / 365 * 365
Champ5.Value = Champ4.Value / 365 * 365
Champ6.Value = Champ3.Value – Champ5.Value
Champ7.Value = Champ6.Value / 365
End Sub
C’est un premier jet de mon idée. Mais je pense que je peux remplacer ’’/365 * 365’’, par /1, donc à tester.
En attendant ça fonctionne sauf en ce qui concentre le dernier champ. Jusqu’à une différence minimum d’2 mois, le résultas est correcte. Dès que la différence des 2 dates est inférieure à 1 mois et quelques jours, le résultat passe subitement de proche de 0,101 à 9,36
Exemple
Maintenant, nous sommes le 15/08/2008
Date d’achat = 16/08/2007
Résultat = 1
Date d’achat = 15/08/2007
Résultat = 1,002
Date d’achat = 15/08/2006
Résultat = 2,002
Date d’achat = 16/08/2006
Résultat = 2
Date d’achat = 09/07/200
Résultat = 0,101
Jusque là, tout marche.
Date d’achat = 10/07/2006
Résultat = 9,86
Date d’achat = 14/08/2008
Résultat = 2,73