Calculer nombre de jours
Fermé
Benallou.Mohamed
Messages postés
22
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 6203 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 29 janvier 2025 - 26 oct. 2018 à 11:46
[Dal] Messages postés 6203 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 29 janvier 2025 - 26 oct. 2018 à 11:46
A voir également:
- Calculer nombre de jours
- Compte facebook suspendu 180 jours - Guide
- Comment calculer la moyenne sur excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Compte instagram suspendu 180 jours - Guide
- Nombre facile - Télécharger - Outils professionnels
2 réponses
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
Ambassadeur
1 568
25 oct. 2018 à 10:51
25 oct. 2018 à 10:51
bonjour, qu'as-tu essayé?
[Dal]
Messages postés
6203
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
29 janvier 2025
1 099
25 oct. 2018 à 18:36
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 :
donne :
Dal
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
Benallou.Mohamed
Messages postés
22
Date d'inscription
mardi 20 décembre 2016
Statut
Membre
Dernière intervention
31 mai 2023
1
25 oct. 2018 à 18:38
25 oct. 2018 à 18:38
Justement, Delphi 7 ne comporte pas cette fonction, celle-ci est pour Delphi 10.2 Tokyo
[Dal]
Messages postés
6203
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
29 janvier 2025
1 099
25 oct. 2018 à 19:27
25 oct. 2018 à 19:27
Dans ce cas, peut-être que l'une des solutions proposées là te conviendra :
https://stackoverflow.com/questions/19698913/difference-between-2-dates-in-delphi-5
https://www.developpez.net/forums/d279586/environnements-developpement/delphi/soustraction-entre-dates/
https://stackoverflow.com/questions/19698913/difference-between-2-dates-in-delphi-5
https://www.developpez.net/forums/d279586/environnements-developpement/delphi/soustraction-entre-dates/
[Dal]
Messages postés
6203
Date d'inscription
mercredi 15 septembre 2004
Statut
Contributeur
Dernière intervention
29 janvier 2025
1 099
26 oct. 2018 à 11:46
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+
Modifié le 25 oct. 2018 à 13:08