Subversion Repositories wimsdev

Rev

Rev 9584 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !! date writing - options notime (do not display time) / noprint (no direct printing, just return slib_out)
  2. !! input  : yyyymmdd 00:00:00
  3. !! output : dd/mm/yyyy [- 00:00:00] (fr), or yyyy/mm/dd [- 00:00:00]
  4. !distribute item $wims_read_parm into slib_don,slib_option
  5. !default slib_don=$wims_now
  6. !let slib_day=!char 7 to 8 of $slib_don
  7. !let slib_month=!char 5 to 6 of $slib_don
  8. !let slib_year=!char 1 to 4 of $slib_don
  9. !let slib_hour=!char 10 to 17 of $slib_don
  10. !if $module_language=fr
  11.   !let slib_out=$slib_day/$slib_month/$slib_year
  12. !else
  13.   !let slib_out=$slib_year/$slib_month/$slib_day
  14. !endif
  15. !if notime notin $slib_option
  16.   !let slib_out=$slib_out - $slib_hour
  17. !endif
  18.  
  19. !if noprint notin $slib_option
  20.   $slib_out
  21. !endif
  22.