A voir également:
- Algorithm donnant le numero de semaine
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Numero prive - Guide
- Impossible d'utiliser ce numéro de téléphone pour la validation. - Forum Gmail
- Numero imei - Guide
- Trouver le numéro de quelqu'un avec son snap - Forum Snapchat
3 réponses
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...
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...
emrci aurais tu ca en stock??
@ ++