Discussion :

[Lyche]

le forum doit avoir quelque part un regexReplace qui marche

ou une succession de

Code :

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

replace(monChamp, '  ', ' ');

[el_slapper]

J'en ai déjà vus, et même des pires !!!!

Typique, en Delphi, un développeur de qui j'ai repris un projet cherche a connaître le dernier jour d'un mois passé en paramètre..

Que fait-il ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function DernierJourDuMois(iAnnee,iMois : integer) : integer;
begin
  if iMois=1 or iMois=3 or iMois=5 or iMois=7 or iMois=8 or iMois=10 or iMois=12 then
    result:=31;
  if iMois=4 or iMois=6 or iMois=9 or iMois=11 then
    result:=30;
  if iMois=2 then
  begin
    if iAnnee=2012 or iAnnee=2008 or iAnnee=2004 or iAnnee=2000 or iAnnee=1996 or iAnnee=1992 or iAnnee=2016 or iAnnee=2020 then
     result:=29
    else
      result:=28;
  end;
end;

Après mon passage :

Code :

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

1
2
3
4
5
function DernierJourDuMois(iAnnee,iMois : integer) : integer;
begin
  result:=DayOf(EndOfMonth(iAnnee,iMois));
end;

vu ça en COBOL, mais dans des version tellement vieilles qu'à l'époque il n'y avait aucun autre moyen de faire(par contre, ça aurait du être centralisé, chaque appli se trimballait le même genre de calcul.....)

[ferber]

Je craint que c'est pas le cas traiter ici, le boss ici est à traine et on peut blâmer pour son ignorance stupide.

Attention à votre orthographe, certains pourraient être tentés de vous blâmer.

Concernant le fait de modifier le code d'un prédécesseur, c'est utile dans la mesure ou cette modification corrige définitivement le problème. Ce qui est le cas dans l'exemple principal. De ce fait, plusieurs futures modifications ne sont plus à faire.

Par contre, si le nouveau code retombe dans les mains du boss ou d'un collège graphiste... il risque de ne pas le comprendre, de le supprimer, de remettre l'ancien et d'avoir un ressentiment envers le développeur.

Un petit commentaire explicatif aurait peut-être été le bienvenu ?

[Jcpan]

Merci

[Fallen_Leaf]

J'en ai déjà vus, et même des pires !!!!

Typique, en Delphi, un développeur de qui j'ai repris un projet cherche a connaître le dernier jour d'un mois passé en paramètre..

Que fait-il ?

Parfois, le fait de réinventer la roue peut avoir son utilité. Une telle fonction pourrait avoir l'avantage d'être efficace quelque soit de potentielles évolutions de l'environnement. Par contre, dans son cas, c'est raté parce que son code n'est pas pérenne au niveau de l'année, alors que déterminer une année bissextile se fait avec deux divisions.

[URIOS]

Parfois, le fait de réinventer la roue peut avoir son utilité. Une telle fonction pourrait avoir l'avantage d'être efficace quelque soit de potentielles évolutions de l'environnement. Par contre, dans son cas, c'est raté parce que son code n'est pas pérenne au niveau de l'année, alors que déterminer une année bissextile se fait avec deux divisions.

Et bien écoute, la ou tu n'as pas tord, ç'est pour faciliter le changement de langage. Maintenant je préfère utiliser les fonctions du langage, car elles évoluent avec le temps et surtout, dans le cas présent, se servent directement de la gestion des dates et des heures Windows et on sait que lui, au moins, sera toujours a jour niveau règles de gestion du temps...

Enfin, je pense !

[skrink_skrink]

Urios dit [Code :
function DernierJourDuMois(iAnnee,iMois : integer) : integer;
begin
result:=DayOf(EndOfMonth(iAnnee,iMois));
end;]

Question : ca donne quoi en Delphi 5?
Avec quel version le prédesseur a t'il créé cette fonction ?