Dim m As Integer 'nemůže být pokud krok je 0.5
For m = 1.5 To 6 Step 0.5
dále
i = (b / c) * (d / c)
skut = (((a + b) * m) / 2) - (((c + d) * modu) / 2)
ale v minulém souboru bylo
i = (b / a) * (d / c)
modu = (((c + d) * modu2) / 2) - (((a + b) * m) / 2)
Navrhovaná úprava cyklů 1.9.2018 nefungovala?
http://wall.cz/index.php?m=topic&id=41357#post-41392
Počítané hodnoty "d" a "modu2" zde nemohou být Integercitovat