Дата1


Скачать 28.84 Kb.
НазваниеДата1
Дата публикации22.06.2013
Размер28.84 Kb.
ТипДокументы
userdocs.ru > Банк > Документы
Группа _______ Фамилия И. О. ___________________________

1. В день Дата1 на счет в банк положено определенную сумму S под Р процентов годовых. Определить сумму средств, которые будут на счете в день Дата2, если итоговая сумма рассчитывается по формуле:
Sит= S*(1+ Р/100)

Результаты решения представить в следующем виде:

а) таблица структуры данных

Реквизиты

Имена переменных

Типы данных

Начальная сумма вклада

Sng Syma

Single

Процент

Sng Procent

Single

Итоговая сумма вклада

Sng Itog

Single

Дата вложения

DtmNachal

Date

Дата получения

DtmOkonch

Date

б) эскиз экранной формы




Sит= S*(1+ Р/100)t

где Sит - итоговая сумма депозита;

S – вложенная сумма;

Р – процентная ставка;

∆t – время депозитного счета.

в) таблица основных свойств элементов управления на форме

Элементы управления

Наименования свойств

Значение

Form1

FrmГромак

Громак

Label1

LblSyma

Сумма вклада

Label2

LblProcent

Проценты

Label3

LblNachal

Дата вложения

Label4


LblOkonch

Дата получения




Label5

LblItog

Итоговая сумма

TextBox1

TxtSyma

-

TextBox2

TxtProcent

-

TextBox3

TxtNachal

-

TextBox4

TxtOkonch

-

Label6

LblItog2





г) программный код решения задачи

Private Sub cmdVicheslit_Click()
Dim SngSyma As Single

Dim SngProcent As Single

Dim DtmNachal As Date

Dim DtmOkonch As Date

Dim SngItog As Single
SngSyma = CSng(TxtSyma.Text)

SngProcent = CSng(TxtProcent.Text)

DtmNachal = CDate(TxtNachal.Text)

DtmOkonch = CDate(TxtOkonch.Text)

SngCh = SngSyma * (1 + SngProcent / 100) ^ ((DtmOkonch - DtmNachal) / 365)

LblItog2 = "Итоговая сумма составила" & Format(SngCh, "## #0.00") & "грн."

2. Как в среде VBA определить количество дней между двумя датами Дата1 и Дата2? Запишите пример.

IntRazniza = DateDiff(“d”, Data1, Data2)




Похожие:

Дата1 iconДата1
В день Дата1 поступил заказ на изготовление n одинаковых деталей. Определить дату Дата2 выполнения заказа, если в цеха с одинаковых...
Дата1 iconДата1
За период от заданной начальной даты Дата1 до заданной конечной даты Дата2 выручка магазина составлял s грн. Определить среднедневную...
Дата1 iconДата1
Каникулы длятся в период с Дата1 до Дат Сколько часов занятий пропустил студент, если он возвратился из каникул в день Дата3, а каждый...
Дата1 iconДата1
За период от даты Дата1 до Дата2 предприятием реализовано готовой продукции на сумму г грн и полуфабрикатов на сумму пф грн. Определить...
Дата1 iconНа счет в банк положено определенную сумму
В день Дата1 на счет в банк положено определенную сумму s под р процентов годовых. Определить сумму средств, которые будут на счете...
Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2020
контакты
userdocs.ru
Главная страница