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

Коллега увидел оформление мною командировочных расходов и очень сильно захотел получить такой вот замечательный код, так сказать 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. Валерий Меладзе родился 23 июня 1965 года в Батуми (тогда - Грузинская ССР), в семье инженеров. Учился в музыкальной школе. Окончил Николаевский кораблестроительный институт, имеет специальность “инженер-исследователь судовых энергетических установок”, защитил кандидатскую диссертацию. Во время учебы в институте занимался художественной самодеятельности. В 1990 году Валерий Меладзе начал работать в группе “Диалог” под руководством Кима Брейтбурга. В 1992 году Валерий стал призером телевизионного конкурса “Ступень к Парнасу”. С 1993 года работает вместе с братом Константином, тогда же состоялся его сольный дебют. В 1995 году Валерий Меладзе выпустил сольный альбом “Сэра”, песни с него “Сэра”, “Не тревожь мне душу, скрипка”, “Посредине лета” и снятые по ним видеоклипы принесли певцу широкую известность. Ее подкрепил вышедший вскоре следующий альбом, “Последний романтик”. В 1998 году был выпущен альбом “Самба белого мотылька”, через год - сборник “The Best”, а в 2002 году - сборник “Настоящее”. Среди других популярных песен - “Все так и было”, “Текила-любовь”, “Комедиант”, “Спрячем слезы от посторонних”. Певец выступает с сольными концертами, принимал участие в создании мультфильма “Незнайка на Луне”, в записи программ “Старые песни о главном”.” Купить диск можно тут.
2. Константин Меладзе родился 11мая 1963 года в грузинском городе Батуми в отличие от своего брата озорника рос тихим и спокойным ребенком Но его мнение уже тогда расходилось и с мнением родителей В детстве Братья Меладзе Были слишком разными у Константина была своя компания у Валерия своя… Да и когда она немного подросли единственное что объединяло это увлечение музыкой Они вместе собирали пластинки Вместе слушали Но тогда они еще не знали что это когда ни будь станет делом всей их жизни Сейчас Константин живет в Киеве ему там нравится Говорит Валерий « Там жизнь спокойнее и можно гораздо больше успеть сделать за день, потому что там не все так разбросано, как в Москве. Здесь из-за больших расстояний, больших скоростей, мы иногда проносимся мимо друзей; зачастую приходится жертвовать чем-то важным. Хотя, я не жалуюсь на свою жизнь, мне нравится все, что со мной происходит. Просто у нас с Костей разные характеры Костя довольно часто бывает в Москве: дела, промоушн, запись новых песен. Он приезжает приблизительно раз в месяц и останавливается у Лианы, ему так удобнее. Он ужасно не любит стеснять кого-то. Хотя я был бы очень рад принимать его у себя дома. Кстати, когда я приезжаю в Киев, я тоже не живу у него. Живу в гостинице, чтобы лишний раз не быть помехой, даже близким – мы так воспитаны
В финансовом плане у нас с Костей возникают разногласия не из-за того, что кто-то кого-то обделил, а наоборот – ему кажется, что я хочу больше денег отдать ему, а мне кажется - он мне»
Достижения
Вместе Валерием Константин работал в группе «Диалог» Потом они занялись сольным творчеством С тех пор Константин продолжает писать для Валерия который исполняет только песни родного брата А в 2000 году Костя начал работать с группой Виа Гра.. Сейчас у Кости появилась отличная возможность выплеснуть огромное количество своих задумок на Виа Гре Константин написал множество красивых песен которые спали чрезвычайно популярными на пост советском пространстве
В августе 2001 года украинский телеканал Интер пригласил Константина Меладзе принять участие в создании новогодней музыкальной комедии. Уже был готов сценарий по гоголевским «Вечерам на хуторе близь Диканьки». Необходимо было за довольно короткий срок написать музыку и тексты к песням для этого фильма. «В это время у меня как раз был период творческих исканий и мне показалось, что такой проект, не связанный с моей текущей деятельностью, поможет мне отвлечься от моей депрессии, - рассказывает Константин. - Я загорелся этой украинской темой. Мне была интересна эта работа в том смысле, что не надо было писать хиты. Я был свободен от стереотипов успешной радий ной музыки, от которой очень устал к тому времени».Времени практически не было – на каждую песню вместе с текстами, музыкой и аранжировками реально уделялось 5-6 дней. Поэтому весь творческий потенциал Константина был воплощен без какой-либо фильтрации. Сам Константин остался доволен своей работой.2002 году ситуация изменилась: канал ОРТ стал полноценным со продюсером фильма и, соответственно, в музыкальной сказке “Золушка”, появившейся на экранах в новогоднюю ночь 2003, появилось больше российских исполнителей. Константин Меладзе теперь не только автор всех музыкальных треков, но и один из со продюсеров фильма. А это значит, что все решения, начиная от подбора состава участников и заканчивая оформлением костюмов и декораций, принимались при его непосредственном участии Константин вот уде более 10 лет пишет песни для своего брата Валерия Которые становятся популярными Он сохраняет преданность своему стилю и не гонится за деньгами Его песни всегда проникновенны мелодичны и душевны Пройдя достаточно сложный путь от простого клавишника в группе «Апрель он смог достичь огромных высот и внес свой вклад в развитие отечественной эстрады.” Почему-то продается тут.
3.Серго Меладзе. Интернет его историю умалчиват. Но купить можно тут.