Calculer nombre de jours

[Fermé]
Signaler
Messages postés
22
Date d'inscription
mardi 20 décembre 2016
Statut
Membre
Dernière intervention
13 août 2019
-
Messages postés
5584
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
13 septembre 2021
-
Salut tout le monde, je veux savoir comment calculer nombre de jours entre une date et la date du jour sur Delphi 7, je veux savoir comment procéder de A a Z SVP...

2 réponses

Messages postés
16801
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 septembre 2021
900
bonjour, qu'as-tu essayé?
Messages postés
22
Date d'inscription
mardi 20 décembre 2016
Statut
Membre
Dernière intervention
13 août 2019

j'ai rien essayé pour le moment, je ne sais même pas par quoi commencé
Messages postés
5584
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
13 septembre 2021
945
Salut Benallou.Mohamed,

Delphi a une fonction DaysBetween dans l'unité DateUtils

http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.DateUtils.DaysBetween

Delphi 7 semble bien comporter cette fonction (mais je n'ai pas d'installation sous la main pour le vérifier), que tu devrais utiliser.

En tout cas, cela fonctionne avec Free Pascal Compiler :
program DifferenceJours;

uses
  DateUtils,   // Contient DaysBetween et EncodeDateTime
  SysUtils;    // Contient IntToStr

var
  dateDebut, dateFin : TDateTime;
  
begin
  dateDebut := EncodeDateTime(2016, 12, 20, 0, 00, 0, 0);
  dateFin := EncodeDateTime(2018, 10, 25,  13, 07, 0, 0);

  writeln('Jours de différence = '+
              IntToStr(DaysBetween(dateFin, dateDebut)));
end.

donne :

Jours de différence = 674

Dal
Messages postés
22
Date d'inscription
mardi 20 décembre 2016
Statut
Membre
Dernière intervention
13 août 2019

Justement, Delphi 7 ne comporte pas cette fonction, celle-ci est pour Delphi 10.2 Tokyo
Messages postés
5584
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
13 septembre 2021
945
Messages postés
5584
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
13 septembre 2021
945
Sinon, selon https://github.com/project-jedi/jedi/blob/master/jedi.inc#L562 issu de https://www.delphi-jedi.org/ l'unité DateUtils serait présente depuis les versions Delphi 6+