Маркетинг в Красном Городе

Коллега увидел оформление мною командировочных расходов и очень сильно захотел получить такой вот замечательный код, так сказать hit (hits) сезона. Честно говоря я его давным давно вытащил откуда-то из Интернета и не помню какой добрый человек его написал и выложил, знал бы разместил бы ссылку на его сайт. Но коли бесплатно его в свое время получил, то бесплатно и выкладываю для скачивания (одним файлом можно его скачать тут - Скрип для перевода в рубли прописью) Идея довольно простая - есть число, необходимо представить его прописью и добавить слово рублей. С копейками мне работать не приходится, поэтому ставится всегда “00 коп.”, если кого-то не устраивает - дорабатывайте, на свой вкус.

Прикручивается он к Excel довольно просто и на то как это сделать есть масса описаний в Интернете, поэтому размещаю сам текст (еще раз спасибо неизвестному доброму человеку за его написание):

Attribute VB_Name = “Module1″
Function propis(SourceDigits As Currency) As String
Dim STRNG As String, CHAR, Result As String, Prom As String
Dim i, STRNG_len As Long
Dim SourceDigTail As Currency

SourceDigTail = (SourceDigits - Int(SourceDigits)) * 100
SourceDigits = Int(SourceDigits)

STRNG = SourceDigits
STRNG_len = Len(STRNG)
For i = 1 To 9 - STRNG_len Step 1
STRNG = “0″ & STRNG
Next i

For i = 9 To 9 - STRNG_len + 1 Step -1
CHAR = Mid(STRNG, i, 1)
If CHAR = “” Then GoTo end_c

If i = 2 Or i = 5 Or i = 8 Then
If CHAR = “1″ Then
CHAR = Mid(STRNG, i, 2)
Select Case CHAR
Case “10″
Prom = “десять ”
Case “11″
Prom = “одиннадцать ”
Case “12″
Prom = “двенадцать ”
Case “13″
Prom = “тринадцать ”
Case “14″
Prom = “четырнадцать ”
Case “15″
Prom = “пятнадцать ”
Case “16″
Prom = “шестнадцать ”
Case “17″
Prom = “семьнадцать ”
Case “18″
Prom = “восемьнадцать ”
Case “19″
Prom = “девятнадцать ”
End Select
Else  ‘ If char Not = 1
Select Case CHAR
Case “0″
Prom = “”
Case “2″
Prom = “двадцать ”
Case “3″
Prom = “тридцать ”
Case “4″
Prom = “сорок ”
Case “5″
Prom = “пятьдесят ”
Case “6″
Prom = “шестьдесят ”
Case “7″
Prom = “семьдесят ”
Case “8″
Prom = “восемьдесят ”
Case “9″
Prom = “девяносто ”
End Select
End If
End If
If i = 1 Or i = 4 Or i = 7 Then
Select Case CHAR
Case “0″
Prom = “”
Case “1″
Prom = “сто ”
Case “2″
Prom = “двести ”
Case “3″
Prom = “триста ”
Case “4″
Prom = “четыреста ”
Case “5″
Prom = “пятьсот ”
Case “6″
Prom = “шестьсот ”
Case “7″
Prom = “семьсот ”
Case “8″
Prom = “восемьсот ”
Case “9″
Prom = “девятьсот ”
End Select
End If

If i = 3 Or i = 6 Or i = 9 Then

If i = 9 And Mid(STRNG, i - 1, 1) = “1″ Then
Result = “рублей ” & Result
GoTo end_c
End If

If i = 3 And Mid(STRNG, i - 1, 1) = “1″ Then
Result = “миллионов ” & Result
GoTo end_c
End If

If i = 6 And Mid(STRNG, i - 1, 1) = “1″ Then
Result = “тысяч ” & Result
GoTo end_c
End If

Select Case CHAR
Case “0″
Prom = “”
Case “1″
If i = 6 Then
Prom = “одна ”
Else
Prom = “один ”
End If
Case “2″
If i = 6 Then
Prom = “две ”
Else
Prom = “два ”
End If
Case “3″
Prom = “три ”
Case “4″
Prom = “четыре ”
Case “5″
Prom = “пять ”
Case “6″
Prom = “шесть ”
Case “7″
Prom = “семь ”
Case “8″
Prom = “восемь ”
Case “9″
Prom = “девять ”
End Select
End If
Select Case i

Case 3
Select Case CHAR
Case “1″
Result = “миллион ” & Result
Case “2″, “3″, “4″
Result = “миллиона ” & Result
Case “5″, “6″, “7″, “8″, “9″
Result = “миллионов ” & Result
Case “0″
If STRNG_len > 6 Then
Result = “миллионов ” & Result
End If
End Select

Case 6
Select Case CHAR
Case “1″
Result = “тысячa ” & Result
Case “2″, “3″, “4″
Result = “тысячи ” & Result
Case “5″, “6″, “7″, “8″, “9″
Result = “тысяч ” & Result
Case “0″
If STRNG_len > 3 Then
Result = “тысяч ” & Result
End If
End Select

Case 9
Select Case CHAR
Case “1″
Result = “рубль ” & Result
Case “2″, “3″, “4″
Result = “рубля ” & Result
Case “0″, “5″, “6″, “7″, “8″, “9″
Result = “рублей ” & Result
End Select
End Select

Result = Prom & Result

end_c:
Next i

Result = Format(Mid(Result, 1, 1), “>”) & Mid(Result, 2)

propis = Result & Format(SourceDigTail, “00″) & ” коп.”

End Function

Вот и весь макрос. Если кто-то желает что-то написать на эту тему - пишите вот по этому адресу: mail@key-vip.com
А вот тут похожее обсуждение, того же макроса http://www.liveinternet.ru/users/lyuciena/post39732232/

Если будут силы, чуть позже выложу Excel файл, в котором это применяется при заполнении командировки и написании авансового отчета. А может вообще отдельный ТОП (TOP)  ик организую. “В помощь EXEL истам”

Всегда Ваш.

Привет мальчишки и девченки! Ка вы уже наверное заметили - счетчик посещений нашего блога резко вырос. Нет, нет! Успокойтесь - это не чудо. Это очередной эксперимент. Вы можите его сами проделать. Все, что для этого надо это:
1. Иметь немного WM (Веб мани)
2. Поискать в Инете слова типа “продам трафик”.
3. Немного прикупить трафика.
Вот что собственно я и сотворил. Что получилось в результате. А получилось го…но. Сходите и сами посмотрите. Вот на этом сайте - http://www.ruclicks.com я купил (согласно раздела) трафик с сайтов знакомств и трафик с блогосферы. Но к сожалению, данный продавец гонит на нас чистый слив дерьма с порно сайтов и очень слегка его разбавляет заказанным трафиком. Т.е. имеем очень не качественный трафик за собственные деньги.
Вывод.
А вывод простой - еще немного пополучаем сей трафик. Исчерпаем счет в 30 бакинских и более не будем иметь отношений с сайтом http://www.ruclicks.com. Всем тем, кто забрел к нам м прочитал сие - не рекомендую покупать трафик с вышеуказанного сайта.
Есть ли плюсы у указанной фирмы - да безусловно есть. Очень удобно прикручен механизм оплаты локального счета с WM. Очень оперативно работают - заказал, оплатил - получи. Если бы не качество трафика, то наверное продолжал бы с ними работать. Но законы рынка неумолимы - деньги, должны делать деньги. К сожалению для сайта http://www.ruclicks.com эта формула не работает.
Если эту анти рекламу прочитают члены http://www.ruclicks.com - и решат, что написанное тут не соответствует истине, то милости прошу, пишите на mr.Bill.Penny@gmail.com.
Завтра, нет уже сегодня напишу свое “ФИ” прямо им на сайте.

Теперь о графике. Всем понятно, что графические (фото) вставочки делают Ваш текст более симпатичным. Есть несколько моментов:
1. Постоянная борьба за количество и качество. Чем качественнее фотография, тем она занимает больше места. Нет - нет, вы не подумайте, места на сервере пока хватает. Это я говорю к тому, что чем больше фотография тем дольше она будет загружаться у читателя. Не думаю, что кого-то приведет в восторг долгое ожидание открытия фото (особенно если фото не красиво). Поэтому просто рекомендую, не выкладывать фото скаченное прямо с фотокамеры. Желательно его обработать какой-либо программой по оптимизации фото для размещения в Интернет. Я не призываю сразу всем ставить и учить для этого что-то типа Adobe Photoshop. Есть более простые (а главное совершенно бесплатные программы). Эта ссылка для тех, кто все же предпочел ФотоШоп. А эта для тех, кто просто хочет быстренько с оптимизировать фотографию, особо не заморачиваясь при этом. Итак - перед размещением постарайтесь сделать фото меньшего объема. Не получится - не беда, публикуйте как есть!
2. Посте того, как вы выбрали фото нажав кнопку обзор и до того как нажали кнопку Upload - постарайтесть, что - нибудь написать в полях Title и Description (На картинке отметил красным). Это для того, что бы Ваше фото, опять таки смог поискать поисковик. Еще раз оговорюсь, все что я тут с умничал - не правило, а рекомендации. Т.е. не хотите не делайте!

На следующей картинке - как это должно примерно выглядеть перед нажатием на кнопку Upload.

И последнее (см. картинку ниже) что бы не мучатся с размещением рисунка, перед нажатием кнопки Send to editor установите курсор в тексте там где вы ожидаете разместить картинку.

Вот кажется и все. Все таки еще раз повторюсь - все сказанное выше - это пожелание! Делайте как считаете удобно для Вас.
Если чего не так или спросить чего - пишите, пишите тут или пишите сюда.

Вдруг кто-то решил не мучится с ворованный софтом, а купить все официально и легально, тогда Вам сюда.

“Олег Газманов родился 22 июля 1951 года в Калининграде в семье военнослужащего. Его родители были фронтовиками, прошедшими войну от начала до конца, но разными дорогами. Отец воевал на флоте, мать - врачевала в военном госпитале (она участвовала в боях за Прибалтику, воевала на Дальнем Востоке). …” - взято отсюда.
Официальный сайт - находится тут.
Мы не пираты. Поэтому настоятельно рекомендую покупать ТОЛЬКО лицензионный товар. А это можно сделать тут.