Algorithm donnant le numero de semaine

En quel langage ?
Si c en Delphi :

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(NumeroSemaine);
end;

function TForm1.NumeroSemaine : integer;
var
Jours,IdMois, JEcoules : Integer;
Annee, Mois, Jour : word;
ResteJEcoules : integer;
begin
// -->> Calcul du n° de semaine

//Récupère le mois en cours :
DecodeDate(Now, Annee, Mois, Jour);

//Initialisation :
Jours := 0;
JEcoules := 0;

For IdMois := 1 to Mois-1 do
begin;
case IdMois of
//-->> Mois de 30 jours :
4,6,9,11 : Jours := 30;

//-->> Février :
2:
If IsLeapYear(Annee) then
//si l'année est bisextile :
Jours := 29
else
//si non :
Jours := 28;

//-->> Mois de 31 jours :
1,3,5,7,8,10,12 : Jours := 31;
end;

JEcoules := JEcoules + Jours;

end;
//Rajoute le nombre de jour de ce mois-ci :
JEcoules := JEcoules + Jour;

ResteJEcoules := JEcoules mod 7;
If ResteJEcoules > 0 then
NumeroSemaine := (JEcoules div 7)+1
else
NumeroSemaine := JEcoules div 7;

end;

Voilà ! Salut...

G pas ça en stock, mais regarde la syntaxe et la logique des calculs, et essais d'en fiare autant avec Java, ça doit être faisable...A+.

merci c sympa qd mm