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

develomagaly 46 Messages postés mercredi 5 octobre 2005Date d'inscription 3 mai 2006 Dernière intervention - 21 oct. 2005 à 17:37 - Dernière réponse : Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention
- 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 

4 réponses

Répondre au sujet
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 21 oct. 2005 à 17:45
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jlen100
salinfopc0 4 Messages postés lundi 13 mars 2006Date d'inscription 28 mars 2006 Dernière intervention - 28 mars 2006 à 14:57
0
Utile
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
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 28 mars 2006 à 15:24
0
Utile
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
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 28 mars 2006 à 15:36
0
Utile
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.