1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

Récupérer l'année de la date en cours

[Résolu]
Signaler
Messages postés
46
Date d'inscription
mercredi 5 octobre 2005
Statut
Membre
Dernière intervention
3 mai 2006
 -
 Toni -
bonjour,

je voudrait recupere l'année de la date en cours ( par rapport a la date systeme ou calendrier) et le convertir en string.

Merci
A voir également:

4 réponses

Réponse 1 / 4
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
 12
salut,

utilise decodedate() 

procedure TForm1.Button1Click(Sender: TObject);

var  Present: TDateTime;

  Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

  Present:= Now;

  DecodeDate(Present, Year, Month, Day);

  Label1.Caption := 'Nous sommes aujourd''hui le ' + IntToStr(Day) +

    + IntToStr(Month) + ' de l''année ' + IntToStr(Year);

  DecodeTime(Present, Hour, Min, Sec, MSec);

  Label2.Caption := 'Il est ' + IntToStr(Hour) + ' heures et '

    + IntToStr(Min) + ' minutes';

end;


bonne prog
Signaler

Merci cela m'a bien aidé, car sur Windows10, l'aide ne fonctionne plus.
Réponse 2 / 4
Messages postés
4
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
28 mars 2006
Bonjour,
je besion de réccupée l'année de champ date_dip type Date jj-mm-aaaa dans une requette SQL:

Query1.sql.Add('select * from diplome where (year(date_dip) =:dip');
Query1.ParamByName('dip').Asinteger:=strtoint(edit1.text);

exemple: 10-07-2001 renvoi tout les date en 2001

merci.
Réponse 3 / 4
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
 45
Salut,
Salinfopc0 même si ta question rejoint sur un point celle de Develomagaly elle n'en est pas moins différente.
Donc si tu veux des réponses à ta question il faut ouvrir un nouveau topic (poser une nouvelle question avec un titre explicite) et pas la poser ici. Merci

@+
Cirec
Réponse 4 / 4
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
 45
PS:
Pour Develomagaly :

Tu peux aussi récupérer le jour de la semaine et le mois (en lettres) : 

procedure  TForm1.MaProcedure(<bold>Const</bold> aDate: TDateTime; <bold>out</bold>  unJour, unMois,
  uneAnne: TLabel);
Var aJ, aM, aA : Word;
begin
 DecodeDate(aDate,aA, aM, aJ );
 unJour.Caption := UpperCase(LongDayNames[DayOfWeek(Now)])+' le '+IntToStr(aJ);
 unMois.Caption := UpperCase(LongMonthNames[DayOfWeek(Now)]);  
 uneAnne.Caption:= IntToStr(aA);
end;

Utilisation :
Tu places trois label sur ta form que tu nommes lb_Jour, lb_Mois, lb_Annee: 

MaProcedure(Now, lb_Jour, lb_Mois, lb_Annee);


@+
Cirec
Répondre Posez votre question