За сегодня

Топиков: 88

форум акций: 160

остальные форумы: 164

комментариев: 1303

за месяц

 

Блог им. NektoFinkelmaer |Скрипт для расчета планируемых дивидендов (VBScript)

Дивидендный сезон в разгаре, пора рассчитать планируемые дивиденды.
Держите скрипт для Excel.

1. Укажите тикер
2. Укажите количество
3. Вставьте формулу "=Dividend(Тикер)"
4. Перемножьте одно на другое
5. Ваш портфель великолепен.

Скрипт для расчета планируемых дивидендов (VBScript)


Function Dividend(Ticker) As Double

    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    myurl = "https://www.dohod.ru/ik/analytics/dividend/" + StrConv(Ticker, vbLowerCase)
    
    xmlHttp.Open "GET", myurl, False
    xmlHttp.Send
    
    Text = xmlHttp.responseText
    
    Pos = InStr(1, Text, "<p>Совокупные дивиденды в следующие 12m:", vbTextCompare)
    
    Text = Mid(Text, Pos)
    Pos = InStr(1, Text, "</span>", vbTextCompare)
    Text = Left(Text, Pos - 1)
    
    Pos = InStr(1, Text, """>", vbTextCompare)
    Text = Mid(Text, Pos + 2)
    Text = Replace(Text, " ", "")
    
    Dividend = Val(Text)
    
End Function
PS: Все права на расчет дивидендов принадлежат www.dohod.ru/

Блог им. NektoFinkelmaer |График влево

Гуру рынка говорят — график цены акции может идти иногда вверх, иногда вниз и всегда вправо.
Как же они ошибались!
Держи график влево, да еще и не один, добавь сколько хочешь инструментов с фондовой секции ММВБ.
Скрипт стягивает данные с iss.moex.com/ рисует график и зиг-заг. (интервал час)

График влево

Пользуйся — и твой трейдинг выйдет на новый уровень.

<!DOCTYPE html>
<html>
<head>
    <meta charset="utf-8" />
</head>
<body>

<form name="search">
    <input type="text" name="key" placeholder="Тикер" id="key"/>
    <input type="button" name="buttonChart" value="График" />
</form>
<div id="printBlock"></div>
<canvas id="chart" width="4000" height="300"></canvas>
<script>
const keyBox = document.search.key;
const keyButton = document.search.buttonChart;
 
 function DrawChart(prices,minPrice,maxPrice,maxVolume,ZZ){

	var chart = document.getElementById("chart");
	
	
	if (chart.getContext) {
		var ctx = chart.


( Читать дальше )

полезные записи за 24 часа

★18 58 Максим Орловский дал свежие прогнозы по рынку, а я законспектировал👍
★10 179 Россияне недовольны ведению дел в РФ
★8 25 Как я потерял многолетние сбережения на первой покупке жилья. Часть 2
★8 23 Инвестиции в недвижимость: новый ЗПИФ Рентал ПРО от создателей ПНК-Рентал. IPO в конце мая – начале июня
★6 36 3 страха инвесторов, которые спустя 4 года инвестирования меня больше не пугают
★5 21 Прошел 1 год майнинга, сколько получилось заработать? Мои выводы
★5 9 Бан микроквартир в Москве, годовой хай индекса, крипта растёт. Дивиденды, новые облигации, IPO и другие новости. Воскресный инвестдайджест
★4 8 Портфель с комментариями и мыслями по рынку, перспективные компании (на мой взгляд)
★4 11 подражая Ильнур Ильнуровичу Ильнурману
★3 20 В избранное. Почему именно золото.
+216 58 Максим Орловский дал свежие прогнозы по рынку, а я законспектировал👍
+189 179 Россияне недовольны ведению дел в РФ
+124 25 Как я потерял многолетние сбережения на первой покупке жилья. Часть 2
+79 61 Новая валюта БРИКС
+64 86 🔥Газохранилище в/на Украине
+52 6 Получилось ли вывести деньги с краудлендинга Jetlend и Поток, спустя 2 месяца
+51 21 Прошел 1 год майнинга, сколько получилось заработать? Мои выводы
+48 20 Алексей Каленкович - Ручной трейдинг умрет!
+46 4 🇹🇭🏠Выставил на продажу Тайскую недвижимость
+46 23 Инвестиции в недвижимость: новый ЗПИФ Рентал ПРО от создателей ПНК-Рентал. IPO в конце мая – начале июня

самые обсуждаемые сегодня

179к Россияне недовольны ведению дел в РФ
88к Может и нам так сделать, как у монголов?
86к 🔥Газохранилище в/на Украине
61к Новая валюта БРИКС
36к 3 страха инвесторов, которые спустя 4 года инвестирования меня больше не пугают
24к Всё, что нужно знать о санкциях
19к Где можно получить новые впечатления, при этом оставаясь в теме по рынкам.
17к Вопрос по существу. Посоветуйте.
14к ОПРОС. Если звонит мошенник или рекламщик я:
11к Воскресный отвлекательный квест - что осталось под запретом?
....все тэги
UPDONW
Новый дизайн