namespace eval dates {
 
   variable treg {^((\d{1,2})y)?((\d{1,})w)?((\d{1,})d)?((\d{1,})h)?((\d{1,})m)?((\d{1,})s)?$}
 
   proc futur {sdate} {
      set more {}
      if {![regexp -nocase -- $::dates::treg $sdate -> Y y W w D d H h M m S s]} {
         putlog "Désolé mais $sdate n'est pas un format reconnu"
         return [clock seconds]
      }
      if {[info exists y] && $y ne ""} { lappend more "$y years" }
      if {[info exists w] && $w ne ""} { lappend more "$w weeks" }
      if {[info exists d] && $d ne ""} { lappend more "$d days" }
      if {[info exists h] && $h ne ""} { lappend more "$h hours" }
      if {[info exists m] && $m ne ""} { lappend more "$m minutes" }
      if {[info exists s] && $s ne ""} { lappend more "$s seconds" }
      return [clock add [clock seconds] {*}[join $more " "]]
   }
}