Calculer nombre de jours

Fermé
Benallou.Mohamed Messages postés 23 Date d'inscription mardi 20 décembre 2016 Statut Membre Dernière intervention 31 mai 2023 - 24 oct. 2018 à 23:02
[Dal] Messages postés 6174 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 2 février 2024 - 26 oct. 2018 à 11:46
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

yg_be Messages postés 22729 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
25 oct. 2018 à 10:51
bonjour, qu'as-tu essayé?
0
Benallou.Mohamed Messages postés 23 Date d'inscription mardi 20 décembre 2016 Statut Membre Dernière intervention 31 mai 2023 1
Modifié le 25 oct. 2018 à 13:08
j'ai rien essayé pour le moment, je ne sais même pas par quoi commencé
0
[Dal] Messages postés 6174 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 2 février 2024 1 083
25 oct. 2018 à 18:36
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
0
Benallou.Mohamed Messages postés 23 Date d'inscription mardi 20 décembre 2016 Statut Membre Dernière intervention 31 mai 2023 1
25 oct. 2018 à 18:38
Justement, Delphi 7 ne comporte pas cette fonction, celle-ci est pour Delphi 10.2 Tokyo
0
[Dal] Messages postés 6174 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 2 février 2024 1 083
25 oct. 2018 à 19:27
0
[Dal] Messages postés 6174 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 2 février 2024 1 083
26 oct. 2018 à 11:46
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+
0