'==================================================================== ' AJPapps - Yens to rubles calculator ' Линда Кайе 2009-2015. Посвящается Ариэль ' ' Сей скрипт переводит суммы в йенах в рубли и доллары. При этом ' считается, что 100 йен = 1 долару, а 1 доллар = 30 рублей. Тоесть ' вычисляется довольно приблизительно, чтобы иметь представление о ' том, а сколько этот GT-R стоит ^^ ' ' • 10.06.2009 ' Первая версия ^^ ' ' • 19.11.2011 ' [+] Теперь не нужно перезапускать скрипт для выполнения ' нескольких вычислений. ' ' • 3.10.2015 ' [+] Подняла курс с 30 до 70 рублей за доллар =_= ' [+] Заодно задала курс через константу. ' '==================================================================== ' Маленький копирайт ' ' 1. Программа и исходный код распространяются бесплатно. ' 2. Вы имеете право распространять их на тех же условиях. ' 3. Вы не имеете права использовать имя автора после модификации ' исходного кода. ' 4. При этом желательно указывать ссылку на автора оригинальной ' версии исходного кода. ' 5. Вы не имеете права на платное распространение исходного кода, ' а также программных модулей, содержащих данный исходнй код. ' 6. Программа и исходный код распространяются как есть. Автор не ' несёт ответственности за любые трагедии или несчастные случаи, ' вызванные использованием программы и исходного кода. ' 7. Для любого пункта данного соглашения может быть сделано ' исключение с разрешения автора программы. ' 8. По любым вопросам, связанным с данной программой, обращайтесь ' по адресу lindaoneesama@gmail.com ' ' Загружено с http://purl.oclc.org/Linda_Kaioh/Homepage/ '==================================================================== Option Explicit Const AppTitle = "AJPapps - Yens to rubles calculator" Dim Yens Dim Message Const RUBS_PER_DOLLAR = 70 Do Yens = InputBox(Message & _ "Введите сумму в йенах. Она будет переведена " & _ "в рубли с учётом курса доллара в " & _ CStr(RUBS_PER_DOLLAR) & " рублей. " & _ "Ага ^^ Именно так ^^", AppTitle) If Yens = "" Then WScript.Quit Else Message = Calculate(Yens) If Message <> "" Then Message = Message & vbCrLf & vbCrLf End If Loop '==================================================================== Private Function Calculate(ByVal Yens) Dim Bucks Dim Rubs On Error Resume Next Yens = CDbl(Yens) If Err Then Calculate = "Вы ввели неправильное число." Exit Function End If Bucks = Yens / 100 ' В долларах... Rubs = Bucks * RUBS_PER_DOLLAR ' В рублях... If Err Then Calculate = "В вычислениях произошла какая-то ошибка." Exit Function End If Calculate = "Сумма в йенах: " & vbTab & FormatNumber(Yens) & vbCrLf & _ "Сумма в долларах: " & vbTab & FormatNumber(Bucks) & vbCrLf & _ "Сумма в рублях: " & vbTab & FormatNumber(Rubs) End Function