Маржа за период от продаж валют

@linox · Регистрация: 05.07.2016

Студворк — интернет-сервис помощи студентам

Добрый день. Пишу маленькую программу для обменника валют.
Delphi 10 Seatlle + MSAccess + ADO
Столкнулся с проблемой.
в MS Access есть таблица: Каса.
Поля: Дата / Валюта / Приход / ПриходЕквивалетГривна / Расход / РасходЕквивалетГривна / Затраты / Вид операции.
Нужно правльно сделать подсчет маржи (тоесть чистого заработка за выбираемый период времени).
Например:
Допустим вчера были:
- покупки Валюты: 1. 1000$ по курсу 24,70 2. 800Евро по курсу 27,4
- продажа: 1. 100$ по курсу 24,8 2. 500Евро по курсу 27,6
И сегодня:
- покупки 1. 500$ по курсу 24,67 2. 600Евро по курсу 24,3
- продажа: 1. 200$ по курсу 24,75 2. 100Евро по курсу 27,55
И вот не могу правильно сложить формулу для подсчета чистой прибыли в гривне.
Может кто-то делал подобное, буду благодарен за помощь.

@linox · 07.07.2016, 15:05 **[ТС]**

Через такой отбор, идет какой-то цикл и прога зависает

Delphi
1
2
3
4
5
kasa.Filtered:=true;
  kasa.Filter:='[Валюта] = '''+'USD'+'*''';
   MUsd := D-Z*X;
   Label2.caption:=floattostr(MUsd);
  kasa.Filtered:=false;

Добавлено через 6 минут

Delphi
1
2
3
4
5
kasa.Filtered:=true;
  kasa.Filter:='[Валюта] = '''+'USD'+'*''';
   MUsd := D-Z*X;
   Label2.caption:=floattostr(MUsd);
  kasa.Filtered:=false;

при такой фильтрации прога зависает

@qwertehok · 07.07.2016, 15:10

Сообщение от linox

при такой фильтрации прога зависает

какая нафиг фильтрация? ЗАЧЕМ?

@linox · 07.07.2016, 15:47 **[ТС]**

ну чтобы вивести маржу для разных значений поля "Валюта". Отдельно для USD, для EUR, и т.д.

Добавлено через 33 минуты
Послушал Вас.
Удалил эту фильтрацию, подключил AdoQuery вместо ADOTable.
В свойствах AdoQuery в SQL прописал таблицу SELECT * FROM Каса.
Теперь прошу помочь правильно сформулировать запрос:
Label1.caption:= SQL запрос (текст (или число)) (маржа (по формуле) для всех строк, где в столбе "Валюта", указано USD, за период времени между DateTimePicker1 и DateTimePicker2

Новые блоги и статьи Все статьи Все блоги /
Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

@linox 0 / 0 / 0 Регистрация: 05.07.2016 Сообщений: 30

	Маржа за период от продаж валют 05.07.2016, 16:07. Показов 1232. Ответов 22 Метки нет (Все метки) Добрый день. Пишу маленькую программу для обменника валют. Delphi 10 Seatlle + MSAccess + ADO Столкнулся с проблемой. в MS Access есть таблица: Каса. Поля: Дата / Валюта / Приход / ПриходЕквивалетГривна / Расход / РасходЕквивалетГривна / Затраты / Вид операции. Нужно правльно сделать подсчет маржи (тоесть чистого заработка за выбираемый период времени). Например: Допустим вчера были: - покупки Валюты: 1. 1000$ по курсу 24,70 2. 800Евро по курсу 27,4 - продажа: 1. 100$ по курсу 24,8 2. 500Евро по курсу 27,6 И сегодня: - покупки 1. 500$ по курсу 24,67 2. 600Евро по курсу 24,3 - продажа: 1. 200$ по курсу 24,75 2. 100Евро по курсу 27,55 И вот не могу правильно сложить формулу для подсчета чистой прибыли в гривне. Может кто-то делал подобное, буду благодарен за помощь. 0

@linox 0 / 0 / 0 Регистрация: 05.07.2016 Сообщений: 30
	07.07.2016, 15:47 [ТС]
	ну чтобы вивести маржу для разных значений поля "Валюта". Отдельно для USD, для EUR, и т.д. Добавлено через 33 минуты Послушал Вас. Удалил эту фильтрацию, подключил AdoQuery вместо ADOTable. В свойствах AdoQuery в SQL прописал таблицу SELECT * FROM Каса. Теперь прошу помочь правильно сформулировать запрос: Label1.caption:= SQL запрос (текст (или число)) (маржа (по формуле) для всех строк, где в столбе "Валюта", указано USD, за период времени между DateTimePicker1 и DateTimePicker2 0