Subversion Repositories wimsdev

!! date writing - options notime (do not display time) / noprint (no direct printing, just return slib_out)

!! input  : yyyymmdd 00:00:00

!! output : dd/mm/yyyy [- 00:00:00] (fr), or yyyy/mm/dd [- 00:00:00]

!distribute item $wims_read_parm into slib_don,slib_option

!default slib_don=$wims_now

!let slib_day=!char 7 to 8 of $slib_don

!let slib_month=!char 5 to 6 of $slib_don

!let slib_year=!char 1 to 4 of $slib_don

!let slib_hour=!char 10 to 17 of $slib_don

!if $module_language=fr

  !if noyear isin $slib_option

    !let slib_out=$slib_day/$slib_month

  !else

    !let slib_out=$slib_day/$slib_month/$slib_year

  !endif

!else

  !if noyear isin $slib_option

    !let slib_out=$slib_month/$slib_day

  !else

    !let slib_out=$slib_year/$slib_month/$slib_day

  !endif

!endif

!if notime notin $slib_option

  !let slib_out=$slib_out - $slib_hour

!endif

!if noprint notin $slib_option

  $slib_out

!endif