Help with function need short version.

[miszeq]

Hi,

Can u help me with that function - i need to do short version of it - its work like i need too but excel says its to long.
Can i do that with function or only in VBA?

[miszeq]

=if(and(g4>=20;g4<=21);"1"+if(and(g6>=20;g6<=21);"1"+if(and(g8>=20;g8<=21);"1";"0")+if(and(g10>=20;g10<=21);"1";"0")+if(and(g12>=20;g12<=21);"1";"0")+if(and(g14>=20;g14<=21);"1";"0")

[miszeq]

And secund one :

=IF(AND(IFNUMBER(B3);IFNUMBER(B4));(B4-B3)+IF(AND(IFNUMBER(C3);IFNUMBER(C4));(C4-C3)+IF(AND(IFNUMBER(D3);IFNUMBER(D4));(D4-D3)+IF(AND(IFNUMBER(E3);IFNUMBER(E4));(E4-E3)+IF(AND(IFNUMBER(F3);IFNUMBER(F4));(F4-F3)+