Conversion d'une date en quantieme

Version imprimable

26/08/2016, 12h55
dvi24

Conversion d'une date en quantieme

Bonjour

Dans un shell Unix, j'ai en paramètre deux dates saisies au format aaaammjj.
Je souhaiterais transformer ces dates en quantieme.

(malgré mes recherches sur internet, je n'ai pu trouver de réponse).

Existe-t-il une commande ?
Sinon, quel type de script peut-on exécuter pour réaliser cette conversion ?

Merci par avance pour vos contributions.

Dvi

(info : version Unix AIX 6.11)

t as pas cherche bien loin :ptdr::lol::lol::lol:
https://www.google.fr/#q=Conversion+...uantieme+shell

trios ou quatrième réponse paf la fonction inverse toute prête

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
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

29/08/2016, 11h24
dvi24

Bonjour

Merci tout d'abord pour ta réponse.

J'avais trouvé ce lien et cette fonction. Mais je pensais qu'il y avait plus direct pour répondre à mon besoin (une option dans la gestion des dates par exemple).
Puis j'aurais sans doute voulu trouver la requête correspondant exactement à ma demande.
Bon, je vais tenter de voir comment inverser le script proposé.

Voici le script que j'ai utilisé : une fonction suivie de deux appels à la fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
## Fonction de calcul du quantieme -------------------------------------------##
function chkd
{
set -A Mmx 0 31 28 31 30 31 30 31 31 30 31 30 31
(( D +=0 )) 2>/dev/null
[[ $? = 0 ]] || Do=n
[[ ${#D} = 8 ]] || Do=n
if   [[ $Do = y ]]
then
     typeset -L4 D8=$D
     (( D8 +=0 )) 2>/dev/null
     [[ ${#D8} = 4 ]] || Do=n
     if   [[ $Do = y ]]
     then
          typeset -R4 D4142=$D
          typeset -L2 D41=$D4142
          (( D41 +=0 )) 2>/dev/null
          [[ $? = 0 ]] || Do=n
          [[ $D41 -lt 1 || $D41 -ge ${#Mmx[*]} ]] && Do=n
          if   [[ $Do = y ]]
          then
               typeset -R2 D42=$D4142
               (( D42 +=0 )) 2>/dev/null
               [[ $? = 0 ]] || Do=n
               if   [[ $Do = y ]]
               then
                    D2=0
                    typeset -R2 yy=$D8
                    if   [[ $yy -eq "00" ]]
                    then
                         (( Modulo400=D8%400 ))
                         (( Modulo400 == 0 )) && D2=1
                    else
                         (( Modulo4=D8%4 ))
                         (( Modulo4 == 0 )) && D2=1
                    fi
                    D42l=${Mmx[$D41]}
                    (( D42l == 28 )) && (( D42l +=D2 ))
                    [[ $D42 -gt $D42l ]]  && Do=n
               fi
          fi
     fi
fi
R0=$D ; R1=$D8 ; R2=$D4142 ; R3=$D41 ; R4=$D42 ; R5=$D2
}
 
## Calcul du quantieme pour date min -----------------------------------------##
set -A Adj 0 0 31 59 90 120 151 181 212 243 273 304 334
 
Fm=${date_min}
 
Do=y
D=$dollar1
D=$Fm
chkd $D
if   [[ $Do = n ]]
then
     echo invalid from_date value \($Fm\)
     exit 1
fi
Fmy=$R1 ; Fmm=$R3 ; Fmd=$R4 ; Fm2=$D2
(( Fmy +=0 )) ; (( Fmm +=0 )) ; (( Fmd +=0 )) ; (( Fm2 +=0 ))
 
Fmq=${Adj[$Fmm]}
(( Fmq += Fmd ))
[[ $Fmm -gt 2 ]] && (( Fmq += Fm2 ))
 
quantdeb=$Fmq
 
## Calcul du quantieme pour date max -----------------------------------------##
set -A Adj 0 0 31 59 90 120 151 181 212 243 273 304 334
 
Fm=${date_max}
 
Do=y
D=$dollar1
D=$Fm
chkd $D
if   [[ $Do = n ]]
then
     echo invalid from_date value \($Fm\)
     exit 1
fi
Fmy=$R1 ; Fmm=$R3 ; Fmd=$R4 ; Fm2=$D2
(( Fmy +=0 )) ; (( Fmm +=0 )) ; (( Fmd +=0 )) ; (( Fm2 +=0 ))
 
Fmq=${Adj[$Fmm]}
(( Fmq += Fmd ))
[[ $Fmm -gt 2 ]] && (( Fmq += Fm2 ))
 
quantfin=$Fmq
 
## Fin des calculs de quantieme ----------------------------------------------##