» TI-992

MaKaPoHa
дай телефон руслана.. ставского вроде есть где-то

Эта.. братцы.. завтра как соберетесь - если конечно соберетесь - за час вызвоните меня..
а то опять как всегда рассеяюсь - и забуду..


Добавлено:
079601485 - мой мобил, если кто не знает.

мдя..

Igoria
Терь своим долгом посчитаю тему эту зафлудить, жаль только времени в сети у меня мало щас, но тебя ублюдок достать хочется...

Добавлено:

Igoria

Цитата:

эта жертва случки домашнего и дикого животного - админство чтоли пальчиком тут ай ай ай делает ?
эх..быть мне забаненым и открыть другой форум бля себя..
буду нарцизмом страдать.. сам с собой общаться сам себя банить и хвалить...

Тоже не мне было ? плевать что не админ, жаль что до тебя добраться тяжеловато...

Alex179

Ай да моська, видать она сильна, раз лает на слона...
Если есть желание провейсти конструктивный диалог - приезжай, поговорим...
А так, брызгать слюной... тьфу.. мне за тебя стыдно...
ПС а может тебя бояться за то, что у тебя жуутко холодные губы.... ?

Добавлено:
Ублю́док (от блуд, блудить) — нечистокровный, либо незаконорожденный потомок чистокровных (породистых) родителей.

ЭТо ты счас мать мою обидел ? Я тебе сука , при встрече, если ты конечно трусливая жертва случки, появишся у меня на глазах сразу в горло вцеплюсь и не отпущу пока твоей кровью не захлебнусь.
А ты уверен что твой ребенок от тебя ?
а ты не переживаеш что ДО тебя у твое жены была куча мужиков, и что она, имея возможность сравнить, сравнивает не в товю пользу ?* И может быть родила не от тебя, я от лучшего, сильного, уверенного в себя мужчины, а не в визгливого педераста, коим является ее муж ?
Баньте меня, меня эта гнида бесит.
Во что, сука, форум превратил..в склоку и грязь.

ПС

Анекдотик расскажу, может кто не знает:

Коpоче, замучали одного пастуха волки, что ни день, то овцы пpопадают.
Как-то случайно увидел пастух объявление "Пpодается Храбрый пес Бандос -
гpоза волков, $5000". Подумал пастух: "Деньги немалые, но pади такого
дела..." и купил.
Hочь, волки кpадутся к овчаpне. Вдpуг оттуда - тихий измученный лай.
Один из волков: "Бpатцы, атас, *Храбрый пес Бандос*!" и все деpу назад.
У одного юного волка любопытство взяло веpх, и посмотpел он назад,
а там за ними маленькая шавка.
Hу, волк этот догнал вожака и говоpит:
- Cлушай, вожак, какого чеpта Храбрый пес Бандос, видел я его. И чего мы
от него бежим? Что он нам может сделать? Разве что в задницу целовать!
Hа что вожак ему:
- Эх, юноша, знал бы ты, какие у него холодные губы...

Добавлено:
а че все притихли ? затишье перед бурей ?

Цитата:

а че все притихли ?

ну ты вон всех распугал :fear:

Igoria
Подонок.

tumber

Да ладно лезть то, я уже остыл. Вроде.

Всем привет, мои дорогие!

Очень рада за вас, что не теряетесь и поддерживаете отношения.

У меня возникли некоторые неудобства в работе с электронными документами. И поэтому я решила обратиться к вам, как к профессионалам.
Подскажите, пожалуйста, кто может, кто хочет.

Один из документов Exel-евский (приходный кассовый ордер). Очень хочется сделать так, чтобы одна из граф выдавала буквами ту сумму, которую я в другой графе ввожу цифрами.
Например: «1030» = «одна тысяча тридцать». Я понимаю, что эта графа должна будет обращаться к нужной программке.
Подскажите, как это сделать.

Заранее спасибо за помощь и понимание.

Чтобы не загрязнять форум пишите на e-mail: tanea_k@mail.ru

Option Explicit

Function Сумма_прописью(s As Currency) As String

Dim triad(4) As Integer
Dim numb1(0 To 19) As String
Dim numb2(0 To 9) As String
Dim numb3(0 To 9) As String
Dim ss As Currency
Dim txt As String
Dim n As Integer
Dim i As Integer

If s = 0 Then
Сумма_прописью = ""
Exit Function
End If

ss = s
triad(1) = ss - Int(ss / 1000) * 1000
ss = Int(ss / 1000)
triad(2) = ss - Int(ss / 1000) * 1000
ss = Int(ss / 1000)
triad(3) = ss - Int(ss / 1000) * 1000
ss = Int(ss / 1000)
triad(4) = ss - Int(ss / 1000) * 1000
ss = Int(ss / 1000)

numb1(0) = ""
numb1(1) = "один "
numb1(2) = "два "
numb1(3) = "три "
numb1(4) = "четыре "
numb1(5) = "пять "
numb1(6) = "шесть "
numb1(7) = "семь "
numb1(8) = "восемь "
numb1(9) = "девять "
numb1(10) = "десять "
numb1(11) = "одиннадцать "
numb1(12) = "двенадцать "
numb1(13) = "тринадцать "
numb1(14) = "четырнадцать "
numb1(15) = "пятнадцать "
numb1(16) = "шестнадцать "
numb1(17) = "семнадцать "
numb1(18) = "восемнадцать "
numb1(19) = "девятнадцать "
numb2(0) = ""
numb2(1) = ""
numb2(2) = "двадцать "
numb2(3) = "тридцать "
numb2(4) = "сорок "
numb2(5) = "пятьдесят "
numb2(6) = "шестьдесят "
numb2(7) = "семьдесят "
numb2(8) = "восемьдесят "
numb2(9) = "девяносто "
numb3(0) = ""
numb3(1) = "сто "
numb3(2) = "двести "
numb3(3) = "триста "
numb3(4) = "четыреста "
numb3(5) = "пятьсот "
numb3(6) = "шестьсот "
numb3(7) = "семьсот "
numb3(8) = "восемьсот "
numb3(9) = "девятьсот "
txt = ""

If ss <> 0 Then
n = MsgBox("Сумма выходит за границы формата", 16, "Сумма прописью")
Сумма_прописью = ""
Exit Function
End If

For i = 4 To 1 Step -1
n = 0
If triad(i) > 0 Then
n = Int(triad(i) / 100)
txt = txt & numb3(n)
n = Int((triad(i) - n * 100) / 10)
txt = txt & numb2(n)
If n < 2 Then
n = triad(i) - (Int(triad(i) / 10) - n) * 10
Else
n = triad(i) - Int(triad(i) / 10) * 10
End If
Select Case n
Case 1
If i = 2 Then txt = txt & "одна " Else txt = txt & "один "
Case 2
If i = 2 Then txt = txt & "две " Else txt = txt & "два"
Case Else
txt = txt & numb1(n)
End Select
Select Case i
Case 2
If n = 0 Or n > 4 Then
txt = txt + "тысяч "
Else
If n = 1 Then txt = txt + "тысяча " Else txt = txt + "тысячи "
End If
Case 3
If n = 0 Or n > 4 Then
txt = txt + "миллионов "
Else
If n = 1 Then txt = txt + "миллион " Else txt = txt + "миллиона "
End If
Case 4
If n = 0 Or n > 4 Then
txt = txt + "миллиардов "
Else
If n = 1 Then txt = txt + "миллиард " Else txt = txt + "миллиарда "
End If
End Select
End If
Next i

If n = 0 Or n > 4 Then
txt = txt + "рублей"
Else
If n = 1 Then txt = txt + "рубль" Else txt = txt + "рубля"
End If

txt = UCase$(Left$(txt, 1)) & Mid$(txt, 2)
Сумма_прописью = txt

End Function

Private Sub Command1_Click()
Text1.Text = Сумма_прописью(Text1.Text)
End Sub

Хе-хе) Вот где сруцца в тестировании

OrlangurStep
Шел бы ты... Куда позывы зовут...

Alex179
Когда эту гадость прочитаешь, не отвечай никак. Смысла нет с такой нелюдью в общение вступать.

tumber

Цитата:

Шел бы ты... Куда позывы зовут...

Обидилси?
Я тут в кои то веки зашел в Тестирование не через закладки, заглянул в эту тему, а тут какой-та злой не флейм даже идет (срач сиреч). Это еще на фоне того что жалуются во многих местых темах, что озлобился народ...
Alex179
А не пофиг дибилов читать?

OrlangurStep
Перестань, пожалуйста.

Вот вы, горазды вершки хватать, а корешки не разглядывать.
Не я был инициатором этого говна...не я.
прочитайте флейм с.. листика 3 назад... многого для себя нового откроете..
глядишь - и мнение изменится.. хотя.. оно же у вас предвзятое..
_вашего_ обидели...


Добавлено:
Знаете.. я тут подумал... вероятно я был излишне резок и груб с окружающими...
Давайте прикроем ветку..запечатаем но оставим потомкам а сами начнем с чистого листа ?
Возражения (не) принимаются.

Вася, админы (мемберы) ?

Igoria
Cпасибо, конечно, большое, но если ты мне объяснишь еще куды эту штуку засунуть, то моей благодарности не будет предела.

tanea
привет

давно тебя не слышно было. как оно там?

Приветик!
Все хорошо, процветаю.

tanea

Цитата:

Все хорошо, процветаю

икру хаваешь?

у вас там бабахнуло что-то ночью?

nicksu
Ну ты чего такой грубый?

Вроде ничего не бахало, ну раз ты говоришь...
Я не слышала.

А икру красню я не люблю. Вот.

tanea

Цитата:

Ну ты чего такой грубый?

да ни за что.. я белый и пушистый


Цитата:

Вроде ничего не бахало

вод:








Цитата:

ночь на четверг взрывы и пожар произошли на магистральном газопроводе, который находится на границе Петербурга и Ленинградской области. Первые сообщения о происшествии на Северной ТЭЦ не подтвердились.

Как сообщили РИА Новости в Северо-западном региональном центре МЧС РФ, в результате происшествия погибших и пострадавших нет. В правительстве Ленинградской области подтвердили эту информацию, добавив, что в районе происшествия горят торфяники и лес на площади около двух гектаров.

Потушить пожар пока не удается. В борьбе с огнем задействованы 25 пожарных расчетов. Сотрудники оперативных служб пока отказываются назвать причины происшествия, однако стало известно, что на газопроводе велись ремонтные работы, и они могли привести к взрывам.

Взрыв и пожар на магистральном газопроводе во Всеволжском районе Ленинградской области на участке Северная ТЭЦ - Лаврики произошел в 00:06. Протяженность газопровода на данном участке составляет около 500 метров, диаметр трубы - 800 миллиметров. Газопровод является частью единой системы газоснабжения Петербурга и области, уточняет РИА Новости.

Как передает корреспондент телеканала "Вести 24" с места событий, разрушен участок трубы протяженностью около 50 метров. В момент взрывов Северная ТЭЦ была закрыта на профилактику, поэтому серьезных последствий для электроснабжения города не возникло. Однако петербуржцы отмечают перебои в подаче света в жилые дома, добавляет интернет-издание "Фонтанка.Ру".

Добавлено:
вод видео исчо:

http://www.youtube.com/watch?v=5MaBl7wdx4Y

nicksu


Цитата:

а ни за что.. я белый и пушистый

В солярий и парикмахерскую. и поскорее

tanea
а ты такой концерт пропустила

а я ?

nicksu
Ну ты выдал!
а вот так всегда бывает, то что творится под носом никогда не замечаешь.

Ты знаешь, сколько лет прожила в Кишиневе, никогда не знала, где там север, а где юг. А сейчас не понимаю питерцев, которые не понимают, о чем я говорю, когда высказываюсь: "...в северной части города..." Они удивляются в моих знаниях частей света, а я удивляюсь, как можно не знать свой город. Хотя сама недавно была такая же, только в Кишиневе, мне просто это было не нужно.

Так и тут. Здесь столько событий происходит, что просто перестаешь за ними следить. Это не как в Молдавии, где живешь вроде бы здесь, а следить невольно приходится за событиями в России, потому что мы - русскоязычная часть населения, и смотрим каналы на русском языке. А знаешь как здорово, когда показывают какое-то проишествие, а ты прекрано понимаешь, что это за улица, где она находится, и мозг сразу же может сопоставить место с событием.

tanea

Цитата:

А знаешь как здорово, когда показывают какое-то проишествие, а ты прекрано понимаешь, что это за улица

не всегда

а если ты знаешь, что там живут твои знакомые/друзья/родственники?

Добавлено:
tanea

Цитата:

А икру красню я не люблю.

ну я же не уточнял красную или чёрную

а вообще, если не любишь - присылай сюда

мы любим

Добавлено:
Igoria

Цитата:

а я ?

в смысле "а я"?

nicksu

Лучше приезжай сам за ней

tanea

Цитата:

Лучше приезжай сам за ней

думаю осенью буду

только как я тебя найду там? не зная, где север и где юг

nicksu



а ты позвонить попробуй !

tanea

Цитата:

а ты позвонить попробуй !

№ тот же?