GeniusK

GeniusK

пикабушник
КЕК
поставил 58734 плюса и 1087 минусов
отредактировал 0 постов
проголосовал за 0 редактирований
11К рейтинг 7 подписчиков 1247 комментариев 8 постов 4 в горячем
1 награда
5 лет на Пикабу
1

Прокурор Парижа: теракт в Ницце готовился больше года

Французские спецслужбы изменили свое первоначальное мнение о том, что Мохамед Бухлель радикализировался буквально за несколько дней перед 14 июля, а теракт совершил чуть ли не спонтанно.


Франсуа Моленс, прокурор Парижа:

“На текущей стадии расследования, после изучения различных обстоятельств и фотографий, все выглядит так, что Мохамед Бухлель вынашивал и готовил свой преступный план в течение многих месяцев, прежде чем начать действовать”.


Спецслужбы, в частности выяснили, что ровно за год до теракта, 14 июля 2015 года, Бухлель фотографировал фейерверк и толпу гуляющих по набережной Ниццы, а в январе 2015 года после атаки на “Шарли Эбдо” посылал своим приятелям смски с одобрением действий “солдат Аллаха”.


http://ru.euronews.com/2016/07/21/nice-attack-planned-in-adv...

Прокурор Парижа: теракт в Ницце готовился больше года Франция, Ницца, Теракт
1402

Небольшой макрос для ворда

Пока проходил производственную практику возникла необходимость отредактировать около 300 документов в одной папке. Это были доп. соглашения к ТД, но не суть.

В общем, чтобы не париться, я, путем поиска в гугл, создал небольшую форму с макросом для замены текста во всех файлах word (.docx) в определенной папке.


Выглядит это так:

*ниже приложу ссылку для скачивания*

Небольшой макрос для ворда Microsoft Word, Макрос, Vba, Длиннопост, Microsoft

Путь до папки копируется прямо из проводника:

Небольшой макрос для ворда Microsoft Word, Макрос, Vba, Длиннопост, Microsoft

С пунктами "что заменить" и "на что заменить" я думаю все понятно.

Чекбокс "с задержкой" предназначен для слабых ПК, дабы постоянное открытие и закрытие документов не загружало память. Текстбокс рядом с чекбоксом предназначен для указания задержки в секундах, 3 секунд на самых слабых ПК более, чем достаточно.


Вот как выглядит сам код:


Private Sub CommandButton1_Click()
Dim s As String, fldr As String
fldr = TextBox1.Value & "\"
s = Dir(fldr & "*.doc")
Do While s <> ""
With Documents.Open(fldr & s)
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = TextBox2.Value
.Replacement.Text = TextBox3.Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
If CheckBox1.Value = True Then Call idle(TextBox4)
ActiveDocument.Save
.Close
End With
s = Dir
Loop
MsgBox ("Замена завершена!")
End Sub

И код таймера задержки:

Public Sub idle(n As Single)
Dim t As Single
t = Timer + n
DoEvents
Do While Timer < t
Loop
End Sub

Как я уже говорил, части кода взяты с просторов интернета и совмещены в один документ. Вы можете встретить что-то подобное в интернете.


Сделал наглядный пример. Создал несколько документов в папке с текстом:

Небольшой макрос для ворда Microsoft Word, Макрос, Vba, Длиннопост, Microsoft

Заменяем:

Небольшой макрос для ворда Microsoft Word, Макрос, Vba, Длиннопост, Microsoft

После замены:

Небольшой макрос для ворда Microsoft Word, Макрос, Vba, Длиннопост, Microsoft

Документ с макросом вы можете скачать по ссылке: https://yadi.sk/d/58JkrdIXtCTtx

*Работает на версиях MS Office 2010 и 2013. Также необходимо разрешить запуск макросов в настройках безопасности:

Небольшой макрос для ворда Microsoft Word, Макрос, Vba, Длиннопост, Microsoft

Надеюсь, что этот небольшой макрос поможет кому-то сэкономить время и силы при работе с документами :)

Показать полностью 4
94

Различия в формировании процентов по кредитам в разных странах.

Сегодня в посте http://pikabu.ru/story/pochemu_bank_dolzhen_reshat_problemyi... в комментариях появились некоторые споры по поводу высоких процентов по кредитам в РФ, СНГ, и низких – в ЕС и США. Я хотел бы пояснить некоторые моменты из банковской деятельности. Я не обладаю высокой компетенцией, но надеюсь, что мои познания в банковском деле будут полезны для большинства пользователей.


Итак, почему в разных странах ставка вознаграждения по кредитам может разнится в несколько десятков раз?


Давайте разберемся, что берут за основу банки при подсчете процента по кредитам? В большинстве случаев это учетная ставка (или ставка рефинансирования). Это плата за пользование кредитом от центрального банка (коммерческие банки берут кредит у центрального банка).

Рассмотрим учетную ставку в разных странах мира:

США – 0.25-0.5% годовых;

ЕЦБ (европейский центральный банк) – 0% годовых;

Соединенное Королевство (Великобритания) – 0,5 годовых;

Япония - -0,1% годовых (отрицательная ставка, банкам платят за пользование деньгами)

Российская Федерация – 10,5% годовых;

Украина – 16,5% годовых;

Беларусь – 20% годовых.


Теперь рассмотрим, из каких основных составляющих формируется ставка у банков 2-го уровня:


1. Учетная ставка. Коммерческие банки обращаются к центральному банку за выдачей ссуд для своей деятельности (выдачи кредитов). Соответственно, данная ставка будет основой при расчете процента.

Берем за пример РФ: учетная ставка ЦБ РФ – 10,5%.


2. Инфляционные ожидания. Ни для кого не секрет, что валюта стран СНГ не самая устойчивая к инфляции, чего не скажешь о валюте США или ЕС. Банки учитывают возможные потери от инфляции национальной валюты и закладывают эти риски в стоимость кредита. В особо нестабильных странах данный показатель может составлять 200-500% от учетной ставки. Именно поэтому валютные кредиты имеют меньший процент вознаграждения.

Насколько мне известно (я студент ВУЗа Казахстана), в РФ берется показатель 70-100% от учетной ставки. То есть к 10,5% прибавляем еще 0,7-1 от этой суммы, получается около 17-21% годовых.


3. Риски по неуплате кредита. Обычно около 2-5%. В целевых кредитах (ипотека, автокредит) эти риски могут доходить до 0%, поэтому ставка там ниже.


4. Маржа самого банка. Зависит от расходов и жадности банка. В ЕС и США около 2-5%. В РФ точный подсчет сложен, так как существуют и практикуются различные методы ухода от фискальной системы. Для примера возьмем 5-8%.


На выходе для РФ получаем более 22% годовых, если брать по низшему порогу подсчетов. Причем от самих банков зависит только четвертый пункт, прибыль банка. Обычно она составляет не более трети от общей ставки вознаграждения. Банки не могут отказаться от включения в стоимость кредита рисков по инфляции и неуплате, так как будут нести большие убытки.

Если взять за пример банки ЕС и США, то ставка составит около 4-7%, причем бОльшую часть составит прибыль банков.

Показать полностью
Отличная работа, все прочитано!