Subversion Repositories wimsdev

Rev

Rev 9584 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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