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

Messages postés
46
Date d'inscription
mercredi 5 octobre 2005
Dernière intervention
3 mai 2006
- 21 oct. 2005 à 17:37 - Dernière réponse :
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
- 28 mars 2006 à 15:36
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
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
21 oct. 2005 à 17:45
3
Merci
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

Merci jlen100 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de jlen100
Messages postés
4
Date d'inscription
lundi 13 mars 2006
Dernière intervention
28 mars 2006
28 mars 2006 à 14:57
0
Merci
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.
Commenter la réponse de salinfopc0
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
28 mars 2006 à 15:24
0
Merci
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
Commenter la réponse de Cirec
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
28 mars 2006 à 15:36
0
Merci
PS:
Pour Develomagaly :

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

procedure TForm1.MaProcedure(Const aDate: TDateTime; out 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
Commenter la réponse de Cirec

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.