分时资金进出：

a:=SBUSAMEDAY(&MONEY);

IF(FORMATTIME(1)< 1)

RETURN;

b:=SBUSAMEDAY(&NEW);

资金流出:-SUM(IF(b< 0,a,0),0);

资金流入:SUM(IF(b> 0,a,0),0);

资金差:资金流入+资金流出;