Discussion :

[noizecore]

Bonjour,

Voici ma question je dois traiter une date au format jj/mm/aaaa et la restituer au 10 du mois suivant peut importe le jour reçut.

Exemple:
Je reçois: je restitue:

01/05/2012 -> 10/06/2012
12/05/2012 -> 10/06/2012
20/06/2012 -> 10/07/2012
12/12/2012 -> 10/01/2013
31/01/2013 -> 10/02/2013

Par avance merci

Noizecore.

[Gardyen]

utilise donc le module Date::Calc

[Quantactique]

Bon je ne connais pas le module que tu propose mais moi je ferai un truc de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
 
my $date = "01/12/2012";
$date =~ /^\d{2}\/(\d{2})\/(\d{4})$/;
 
if($1 < 12){ 
	my $tmp = $1+1;
	$date = "10/$tmp/$2";
}
else { 
	my $tmp = $2+1;
	$date = "10/01/$tmp";
}
 
print $date;

Je pense que cela devrait fonctionner. Il y a moyen de raccourcir mais il est 2h30 du mat donc...
Peut-être du coté de l'opérateur s///
En tout cas j'ai que ça qui m'est venu à l'esprit pour le moment j'espère que cela t'aidera

[Philou67430]

noizecore, tu n'as pas précisé le fonctionnement lorsque la date est déjà un 10 de mois...

[Lolo78]

D'après la règle et les exemples, c'est toujours le 10 du moins suivant.

Exemples fournis:

Code :

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

1
2
01/05/2012 -> 10/06/2012
12/05/2012 -> 10/06/2012

donc on a sans doute:

Code :

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

10/05/2012 -> 10/06/2012

[Philou67430]

D'après la règle, oui, il n'y a pas d’ambigüité. Mais aucun exemple ne confirme cette règle pour ce cas un peu particulier