Discussion :

[jlderrien]

Bonjour,

Je cherche à obtenir une date à partir du numéro de jour. Par exemple jour 43 d'une année correspond au 12 février.

Ce serait la fonction inverse de DayOfYear qui donne le numéro de jour à partir d'une date

Y-a-t-il un fonction ou une méthode pour cela

Merci d'avance

jl derrien

[Andnotor]

Date +43 est parfaitement supporté.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ShowMessage(DateTimeToStr(StrToDateTime('31.12.2008') +43));

[Cl@udius]

Salut

ou quelque chose comme ça ? ce qui est le même chose que ce que donne Andnotor.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
uses
  DateUtils;
 
function QuantiemeToDate(const Annee, Quantieme: Word): TDateTime;
begin
  Result := StartOfAYear(Annee) + Quantieme - 1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DateToStr(QuantiemeToDate(2010, 43)));
end;

@+

[jlderrien]

Super,

Un grand merci à tous les deux pour la rapidité et la précision de la réponse

C'est exactement ce que je cherchais

jlderrien