Current day

[chain]

>

; Returns the current day of the date given

alias ttt {

;a check for $date

if (/ isin $1) { tokenize 32 $date($ctime($1),dd.mm.yyyy) }

;another check if it's a date that could be used with this method

if ($ctime($1)) {

!var %d,%y,%c,%m

%d = 31+28+31+30+31+30+31+31+30+31+30

%y = $iif($date($ctime($1),dd.mm.yyyy) == $1,$1,$date(dd.mm.yyyy))

%c = $ctime(%y)

%m = $calc($date(%c,m) -1)

%d = $iif(%m != 0,$gettok(%d,1- $+ %m,43),0)

return $calc($(%d,2) + $date(%c,dd) $iif(($ctime(29/02/ $+ $date(%c,yyyy))) && (%m > 1),+1))

}

}