Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif

slib_author=Bernadette, Perrin-Riou
slib_title=Date
slib_parms=2\
 ,first date (written in format ddmmyyyy)\
 ,second date (written in format ddmmyyyy)\
diff,option as diff, add


slib_out=number of days between the two dates.
slib_example=12022013,18082013,diff\
12022013,13022013,diff\
12022013,18082013,diff\
18082013,12022013\
12022004,18082004\
17012012,10092014\
17012013,10092015\
17032013,10092013\
01022004,01032004\
12022013,0,add\
12022013,20,add\
04032013,-20,add\
12022013,3,add item\
18082013,365,add nospace\
18022012,365,add
!exit

:proc
!distribute item $wims_read_parm into slib_date1, slib_date2, slib_option
!if add isin $slib_option
  slib_date1=!nospace $slib_date1
  slib_date1=!text expand $slib_date1 using 01101101111
  slib_date1=!exec date.pl 1 $slib_date1
  slib_date2=!exec pari $slib_date1 + ($slib_date2)*86400
  slib_date2=!exec date.pl 2 $slib_date2
  slib_out=!word 1 to 3 of $(slib_date2)
  !if nospace isin $slib_option
    slib_out=!nospace $slib_out
  !endif
  !if item isin $slib_option
    slib_out=!words2items $slib_out
  !endif
!else
  slib_date1=!text expand $slib_date1 using 01101101111
  slib_date2=!text expand $slib_date2 using 01101101111
  slib_date1=!exec date.pl 1 $slib_date1
  slib_date2=!exec date.pl 1 $slib_date2
!! not always an integer because of the time change
  slib_out=$[round(($slib_date2 - $slib_date1)/86400)]
!endif