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

Résolu
Bay_Pierre Messages postés 2 Date d'inscription samedi 18 décembre 2004 Statut Membre Dernière intervention 3 novembre 2005 - 3 nov. 2005 à 12:22
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 3 nov. 2005 à 17:46
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

jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 13
3 nov. 2005 à 13:10
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.
3
Bay_Pierre Messages postés 2 Date d'inscription samedi 18 décembre 2004 Statut Membre Dernière intervention 3 novembre 2005
3 nov. 2005 à 15:45
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é
0
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 13
3 nov. 2005 à 17:46
oui tu évites une variable locale

jlen
0
Rejoignez-nous