Dim CONTAMISSING, CONTAWORSE, CONTA20
CONTAMISSING = 0
CONTAWORSE = 0
CONTA20 = 0
Dim DIFDAS, DIFDASPERC
DIFDAS = (RESPONSE_V2.Fields.Item("DASTot").Value)-(RESPONSE_V1.Fields.Item("DASTot").Value)
if (RESPONSE_V2.Fields.Item("DASTot").Value)=0 and (RESPONSE_V1.Fields.Item("DASTot").Value)=0 then
DIFDASPERC = 0
else if (RESPONSE_V1.Fields.Item("DASTot").Value)=0 and (RESPONSE_V2.Fields.Item("DASTot").Value)>0 then
DIFDASPERC = 100
else
DIFDASPERC = (DIFDAS/(RESPONSE_V1.Fields.Item("DASTot").Value))*100
if DIFDASPERC&"" <>"" then
DIFDASPERC = FormatNumber(DIFDASPERC,2)
else
CONTAMISSING = CONTAMISSING+1
end if
end if end if
if DIFDASPERC >= 30 then
CONTAWORSE = CONTAWORSE+1
end if
if DIFDASPERC <= -20 then
CONTA20 = CONTA20+1
end if