Subversion Repositories wimsdev

Rev

Rev 17299 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17299 Rev 17318
Line 8... Line 8...
8
  error=bad_class
8
  error=bad_class
9
  !exit
9
  !exit
10
!endif
10
!endif
11
 
11
 
12
!! ----------- analyse d'une demande de modification du jour de démarrage de la période d'affichage
12
!! ----------- analyse d'une demande de modification du jour de démarrage de la période d'affichage
-
 
13
jdate=!text select char 0123456789 in $jdate
-
 
14
jdate2=!text select char 0123456789 in $jdate2
13
jyear=!char 1 to 4 of $jdate
15
jyear=!char 1 to 4 of $jdate
14
jmonth=!char 6 to 7 of $jdate
16
jmonth=!char 5 to 6 of $jdate
15
jday=!char 9 to 10 of $jdate
17
jday=!char 7 to 8 of $jdate
16
jyear2=!char 1 to 4 of $jdate2
18
jyear2=!char 1 to 4 of $jdate2
17
jmonth2=!char 6 to 7 of $jdate2
19
jmonth2=!char 5 to 6 of $jdate2
18
jday2=!char 9 to 10 of $jdate2
20
jday2=!char 7 to 8 of $jdate2
19
 
21
 
20
!if $jday!=$empty and $jyear!=$empty and $jyear!=$empty
22
!if $jday!=$empty and $jyear!=$empty and $jyear!=$empty
21
  jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
23
  jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
22
  !if $[$jday]=0
24
  !if $[$jday]=0
23
    tst=1
25
    tst=1