Convertir le quantième an Date dd/mm/aaaa

[Résolu]
Signaler
Messages postés
2
Date d'inscription
samedi 18 décembre 2004
Statut
Membre
Dernière intervention
3 novembre 2005
-
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
-
Salut, je travaille sur un petit projet où je dois convertir des quantièmes
en date ordinaire. Par exemple le nombre 279 peut être converti en date du genre
06/10/2005.
Jusqu'à présent,je faisais des soustractions répétitives, mais apparement ,celà ralentti mon application parce que je dois traiter au mois 100000 conversions.
Quelqu'un peut-il me donner un coup de main. Je suis sous Delphi 6.

3 réponses

Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
salut pour convertir le jour de l'année ne date utile :

function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;

procedure TForm1.Button1Click(Sender: TObject);

var cettedate:TDatetime;

begin

cettedate:=EncodeDateDay(2005,269);

edit1.Text:=datetostr(cettedate);



end;

bonne prog.
Messages postés
2
Date d'inscription
samedi 18 décembre 2004
Statut
Membre
Dernière intervention
3 novembre 2005

J'ai trouvé aussi que ceci marchais :
Uses DateUtils
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := DateToStr(EncodeDateDay(2005,269));
end;
// Merci Beaucoup,tu m'as sauvé
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
oui tu évites une variable locale

jlen