FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 123, nombre de questions : 919, dernière mise à jour : 14 juin 2019  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez


SommaireGestion du tempsDates particulières (6)
précédent sommaire suivant
 

Le passage à l'heure d'été s'effectue le dernier dimanche du mois de mars et le passage à l'heure d'hiver le dernier dimanche du mois d'octobre.

Mis à jour le 18 octobre 2013 psl

Le dimanche de Pâques correspond au premier dimanche suivant la première pleine lune du printemps.
La fonction ci-dessous calcule le jour de Pâques pour les dates comprises entre 1583 et 4099 :

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function Paques(Annee : Integer) : TDateTime; 
var 
  Y,G,C,X,Z,D,E,N,P,J,M : Integer; 
begin 
  {Algorithme valable pour les dates comprises entre 1583 et 4099} 
  Y := Annee; 
  G := (Y mod 19) + 1; 
  C := Trunc((Y/100)) + 1; 
  X := Trunc(3 * C / 4) - 12; 
  Z := Trunc(((8 * C) + 5) / 25) - 5; 
  D := Trunc(((5 * Y) / 4) - X - 10); 
  E := ((11 * G)+ 20 + Z - X) mod 30; 
  if ((E = 25) and (G > 11)) or (E = 24) then 
    E := E + 1; 
  N := 44 - E; 
  if N <; 21 then 
    N := N + 30; 
  P := N + 7 - ((D + N) mod 7); 
  if P > 31 then 
    J := P - 31 
  else 
    J := P; 
  if J = P then 
    M := 3 
  else 
    M := 4; 
  Result := EncodeDate(Annee, M, J); 
end;

Mis à jour le 18 octobre 2013 psl

Il est souvent nécessaire, lors des manipulations de dates, de savoir si un jour est férié ou non (calcul des jours ouvrables, génération de calendriers, etc).
Tout cela est facile pour les jours fériés de date fixe (jour de l'an, Noël, etc) mais il en va tout autrement pour les jours fériés mobiles (Pâques, Pentecôte, etc), qui sont calculés à partir de la date de Pâques :

  • Lundi de Pâques = Pâques + 1 jour ;
  • Ascension = Pâques + 39 jours ;
  • Pentecôte = Pâques + 49 jours ;
  • Lundi de Pentecôte = Pâques + 50 jours.

Mis à jour le 18 octobre 2013 psl

Pour qu'une année soit bissextile, il suffit qu'elle soit un multiple de 4, sans être un multiple de 100 sauf si elle est multiple de 400. Les années 1700, 1800 et 1900 ne sont pas bissextiles alors que 2000 est bissextile.

On trouve également la fonction IsInLeapYear (constAValue : TDateTime) : Boolean :

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
uses 
  DateUtils; 
var 
  MaDate: TDate; 
begin 
  MaDate := EncodeDate(2004,12,35); 
  if IsInLeapYear(MaDate) then 
    ShowMessage('C''est une année bissextile') 
  else 
    ShowMessage('Ce n''est pas une année bissextile'); 
end;

Mis à jour le 18 octobre 2013 psl

Pour convertir une date au format Julien vers le format Grégorien, il suffit de faire appel à la fonction JulianDateToDateTime() :

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
uses 
  DateUtils; 
var 
  JourJulien : Extended; 
  DateC   : TDateTime; 
begin 
  DateC := JulianDateToDateTime(JourJulien); 
end;
Pour les utilisateurs dont la version de Delphi ne permet pas d'avoir accès à cette fonction, on peut utiliser le code présent dans l'unité Julien2Gregorien.pas ci-dessous.

Mis à jour le 25 janvier 2014 psl

Pour convertir une date au format grégorien vers le format julien, il suffit de faire appel à la fonction DateTimeToJulianDate().

Code Delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
  
uses 
  DateUtils; 
var 
  JourJulien             : Extended; 
  DateC                  : TDateTime; 
  Annee, Mois, Jour      : Word; 
  Heure, Minute, Seconde : Word; 
begin 
  DateC := EncodeDateTime(Annee, Mois, Jour, Heure, Minute, Seconde,0); 
  JourJulien := DateTimeToJulianDate(DateC); 
end;
Pour que le résultat de la fonction DateTimeToJulianDate() de Delphi retourne une valeur juste, il faut que la date soit strictement supérieure au 15/10/1582 00:00:00 (début du calendrier grégorien). Avant cette date, il manque le décalage de 10 jours entre les deux calendriers. Pour les dates strictement inférieures au 5 octobre 1582, il suffit de rajouter 10 au résultat de la fonction Delphi. On ne peut pas calculer les jours juliens des dates du 5 au 14 octobre 1582 puisqu'elles n'existent pas.

Mis à jour le 21 janvier 2014 psl

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2019 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -

Partenaire : Hébergement Web