Bonjour,
Comme promis merci de trouver ci-dessous la solution : Création d'un programme en perl.
supposons que le quantième est 56 de l'année 2008.
Code source :
#!/usr/bin/perl
use POSIX;
use strict;
use warnings;
# Récupération du quantième QtmStamp:
my $QtmStamp=$ARGV[0]-1; # au niveau perl le quantième commence par 0.
my $sec = 0;
my $min = 0;
my $hour = 0;
my $day = 1;
my $mon = 1 - 1;
my $year = $ARGV[1] - 1900;
my $wday = 0;
my $yday = 0;
#Calcul du tempstamp :
my $unixtime = mktime ($sec, $min, $hour, $day, $mon, $year, $wday, $yday);
print "$unixtime\n";
$QtmStamp = $QtmStamp*86400; #86400 = ((24*3600))
$unixtime = $unixtime+$QtmStamp;
my $readable_time = localtime($unixtime);
print "$readable_time\n";
Lancemment du perl & résultat :
DateCreaQu.pl 56 2008
Résultat :
1199167200
Mon Feb 25 00:00:00 2008
Merci "skeye" pour ton aide.