Text)<=strtodatetime((datetostr(now())+' '+DBEshangji.Text)) then
begin
//情况2 *(*)
if (strtodatetime(DBExj.Text)>=strtodatetime((datetostr(now())+' '+DBEshangji.Text)))and(strtodatetime(DBExj.Text)<strtodatetime((datetostr(now())+' '+DBExiaji.Text))) then
begin
DM.ADOTgl.FieldByName('结算').AsFloat:=sswu(jgjs(DBEsj.Text,datetostr(now())+' '+DBEshangji.Text,DBEmrjg.text))+sswu(jgjs(datetostr(now())+' '+DBEshangji.Text,DBExj.Text,DBEsdjg.Text));
ok:='ok';
break;
end;
//情况5 *()*
if (strtodatetime(DBExj.Text)>=strtodatetime((datetostr(now())+' '+DBExiaji.Text))) then
begin
moneyall:=0;
moneyall:=sswu(jgjs(DBEsj.Text,datetostr(now())+' '+DBEshangji.Text,DBEmrjg.text));
while ok<>'ok' do
begin
DM.ADOTjggl.Next;
if DM.ADOTjggl.eof then
begin
DM.ADOTgl.FieldByName('结算').AsFloat:=moneyall+sswu(jgjs(datetostr(now())+' '+DBEshangji.Text,datetostr(now())+' '+DBExiaji.Text,DBEsdjg.Text))+sswu(jgjs(datetostr(now())+' '+DBExiaji.Text,DBExj.Text,DBEmrjg.Text));
ok: