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

Коллега увидел оформление мною командировочных расходов и очень сильно захотел получить такой вот замечательный код, так сказать 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 истам”

Всегда Ваш.

Получив в очередной раз порцию Спама, подумал - “А не использовать ли его для дела?”. Действительно, если мне он не нужен, может кому и сгодится? Тем более, что он (Спам) бывает интересным. Вот например:

“Sprint Business at the Show
Platinum Sponsor Booth #32
Exhibit Hall Hours: Tuesday, April 15, 12:00pm-2:00pm / 5:00pm-7:00pm
Wednesday, April 16, 10:00am-1:00pm

With Sprint, convergence is simple. We’ve combined the best functionality of both wireless and wired networks centered around a flexible IP-core to provide your workforce virtually anytime, virtually anywhere access to voice, video and data. Sprint delivers seamless connectivity that improves productivity, increases flexibility and helps you lower network operating costs, enabling users constant connectivity and enterprises the ability to quickly respond to changing business requirements. In addition we can manage it all, helping you give your employees access to your network how and when they need it.
Sprint Global MPLS VPNSM
Sprint Global MPLS VPN provides businesses with a seamless and secure solution in which to converge voice, video and data applications. Global MPLS VPN integrates real-time application support, access options for stationary and mobile devices, flexible routing protocol, and value-added services – all delivered via a global, 100% native IP network. In fact, Sprint is the first carrier to receive the Cisco IP VPN Multi-service Quality of Service Certification and the Cisco TelePresence Connection Certification which recognizes the inherent quality of Sprint’s tier one global IP network architecture to support convergence over a single IP/MPLS network.

Specific features of Sprint Global MPLS VPN include:

Dedicated (TDM), Ethernet, and Business DSL access options

° Access in over 137 countries worldwide
° Sprint DataLink for Wireless WAN for both primary and secondary/backup wireless access
°
° End-to-end performance SLAs for all dedicated access locations
°
° Class of service and traffic prioritization at no additional charge
° Flat rate and usage-based pricing options
°
° Internet access secured by network-based firewalls, intrusion detection, secure content management and filtering
° Network consulting
Sprint Wireless Integration
Sprint Wireless Integration is a network-based, all-IP offering that extends PBX functionality to mobile devices providing the enterprise and its employees complete mobility and accessibility. With Sprint Wireless Integration, users have a single phone number and voicemail for one-number reachability as well as PBX features such as Conferencing and Call Forwarding and simplified dialing with reduced costs for on-net calling. This solution offers lower network operation costs with free mobile calls using premise-based PBX, elimination of unnecessary trunks and immediate access to enterprise voicemail and PBX features and functionality.

Hosted IP Telephony
Sprint’s IP Voice Connect offers local and long-distance telephony services as well as voice traffic routed over a single connection to the Sprint IP network. Requiring minimal customer premise equipment, it provides seamless connections over a data wide area network (WAN) for “on-net” calling between locations alongside traditional “off-net” calls using the standard telephone network. To integrate your mobile workforce it includes features such as remote office functionality, enhanced voicemail including unified messaging and a Web portal for administrator use and end-user feature control.

Sprint Business Presentation
Keynote Presentation: “IMS and the Foundation for Converged Customer Services”
Ben Vos, Vice President, Core Technologies, Sprint Nextel, Wednesday, April 16, 8:30 am

Contact Us
Meet with Sprint Nextel representatives at our booth #32, contact us via the web at www.sprint.com/business, or call us at 1-866-653-1056 with questions or to learn more about our Fixed Mobile Convergence offerings.

Register here for FutureNet Conference “,
На этот прекрасный спамчик, можно провожать зарубежных товарисчей - пусть его и читают;). Shved - это можно сказать, для твоих форумчан. Ну и еще словечки для поисковика по вставляем нужные.

Vince! Вот прикрутил на свою Ж-голову. Не могу дать ума. Матерится собака. Пособи!

После длительной войны с хост-провайдером (а вернее не войны, а просто получении все необходимой информации), удалось настроить хостинг на http://www.aihs.net/.
Что мы там имеем: ssh, ftp; LAMP; WP (Кстати, я поставил все плагины, что и на этом движке).
Что мы не имеем: к сожалению пока ходим по IP адресу (http://80.94.82.58/), но я очень надеюсь, что это решится в понедельник 31-03-08 и заработает http://www.doctor4y.com. Во всяком случае, очень не хотелось писать наезжательные письма и подключать тяжелую артиллерию в лице Shveda, который может по телефону порвать так, что мало не покажется!;)
Что мы имеем от самого провайдера: оплаченный на 8 месяцев хостинг, объем диска 1,5 Гига, ежемесячный предел на трафик 150 Гиг. Что бы долго не рассказывать см. тут.
Что я хочу от Вас, коллеги - встречи, желательно с пивом на территории хорошего пивняка ;). Все явки и пароли, как всегда почтой.

Веб хостинг с PHP и Mysql. Надежный хостинг для сайта от хостинг-провайдера Эскхостинг.

Блог хостинг с предустановленным WordPress! Уникальная возможность для поклонников блогосферы и социальных сетей создать свой блог на отдельном домене. Русифицированная контрольная панель. Вы получаете абсолютно бесплатно и на всю жизнь имя в домене blogmir.ru или регистрацию доменного имени в подарок.

Прослезился. Курсив мой. А мы ведь как мучались с установкой WordPress. В поте лица рожали. А вот ребята надёжные уже заранее установленный блоговый движок предлагают. И контрольная панель у них по-русски. Так держать, blogmir.ru!