Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas Магистр, я моск сломать. А эти 4 кусочка в цикл не получится загнать?
If Int(ar(0)) > 0 Then 'миллиардыах@еть ad = Split(Format(Int(ar(0)), "0\|0\|0"), "|") If Int(ar(0)) > 0 Then vl = ad(0) * 100: GoSub s4var If chk >= 11 And chk <= 19 Then vl = chk: pp = "1G": GoSub s4var Else vl = ad(1) * 10: GoSub s4var vl = ad(2) * 1: pp = "1G": GoSub s4var End If End If End If If Int(ar(1)) > 0 Then 'мульёны ad = Split(Format(Int(ar(1)), "0\|0\|0"), "|") If Int(ar(2)) > 0 Then vl = ad(0) * 100: GoSub s4var If chk >= 11 And chk <= 19 Then vl = chk: pp = "1M": GoSub s4var Else vl = ad(1) * 10: GoSub s4var vl = ad(2) * 1: pp = "1M": GoSub s4var End If End If End If If Int(ar(2)) > 0 Then 'тыдыщи ad = Split(Format(Int(ar(2)), "0\|0\|0"), "|") If Int(ar(2)) > 0 Then vl = ad(0) * 100: GoSub s4var chk = (ad(1) & ad(2)) * 1 If chk >= 11 And chk <= 19 Then vl = chk: pp = "1K": GoSub s4var Else vl = ad(1) * 10: GoSub s4var vl = ad(2) * 1: pp = "1K": GoSub s4var End If End If End If If Int(ar(3)) > 0 Then 'ссотни ad = Split(Format(Int(ar(3)), "0\|0\|0"), "|") If Int(ar(3)) > 0 Then vl = ad(0) * 100: GoSub s4var chk = (ad(1) & ad(2)) * 1 If chk >= 11 And chk <= 19 Then vl = chk: pp = "end": GoSub s4var Else vl = ad(1) * 10: GoSub s4var vl = ad(2) * 1: pp = "end": GoSub s4var End If End If End If
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.