龙听期货论坛's Archiver

龙听 发表于 2022-11-2 13:17

【SnapFundValid】

[code]Inputs: Field(NumericSimple);

SnapFundValid = True;

If Field = -99999 Then
        SnapFundValid = False
Else
begin
condition1 = AbsValue(Field + 999990) < 0.0001 ;
        If condition1 Then
                SnapFundValid = False
        Else
        begin
        condition1 = AbsValue(Field + 99999999) < 0.0001  
                OR AbsValue(Field + 99999.999) < 0.0001 OR AbsValue(Field + 999.999) < 0.0001 ;
                If condition1 Then
                        SnapFundValid = False
                Else
                begin
                condition1 = AbsValue(Field + 99999998) < 0.0001
                        OR AbsValue(Field + 99999.998) < 0.0001 OR AbsValue(Field + 999.998) < 0.0001 ;
                        If condition1 Then
                                SnapFundValid = False
                        Else
                        begin
                        condition1 = AbsValue(Field + 99999997) < 0.0001
                                OR AbsValue(Field + 99999.997) < 0.0001 OR AbsValue(Field + 999.998) < 0.0001 ;
                                If condition1 Then
                                        SnapFundValid = False
                                Else
                                begin
                                condition1 = AbsValue(Field + 999.99) < 0.001 ;
                                        If condition1 Then
                                                SnapFundValid = False;
                                end;
                        end;
                end;
        end;
end;
[/code]

页: [1]