be aware of January :
code:
$DAY=SUBSTR("@DATE",9,2)
$MONTH=SUBSTR("@DATE",6,2)
$YEAR=SUBSTR("@DATE",1,4)
IF $MONTH = "01"
$lastmonth = "12"
$YEAR = val($YEAR) - 1
ELSE
$lastmonth = val($MONTH) - 1
IF $lastmonth < 10 $lastmonth = "0" + $lastmonth ENDIF
ENDIF? "Day is $day"
? "Month is $month"
? "Year is $year"
? ? "Last month is $lastmonth/$YEAR"
? ? "Paused"
get $c
J.
_________________________
