7065
Разработка модуля информационной системы Амортизация оборудования
Лабораторная работа
Информатика, кибернетика и программирование
Разработка модуля информационной системы Амортизация оборудования Цель лабораторной работы: приобретение практических навыков создания пользовательских форм для разработки модуля информационной системы Амортизация оборудования. Краткие теоретическ...
Русский
2013-01-14
79.5 KB
12 чел.
Разработка модуля информационной системы Амортизация оборудования
Цель лабораторной работы: приобретение практических навыков создания пользовательских форм для разработки модуля информационной системы «Амортизация оборудования».
Под амортизацией подразумевается уменьшение стоимости имущества в процессе эксплуатации. Обычно оценивают величину этого отклонения на единицу времени.
Программа Excel располагает достаточно большим набором встроенных функций различных категорий финансовые функции, бухгалтерские, математические, статистические и др.
Встроенная финансовая функция программы Excel АМГД (SYD) вычисляет годовую амортизацию имущества для указанного периода.
Синтаксис функции:
АМГД(стоимость; остаток; время эксплуатации; период)
Аргументы функции:
стоимость это начальная стоимость имущества;
остаток остаточная стоимость в конце периода амортизации (иногда называют ликвидной стоимостью имущества);
время эксплуатации период амортизации;
период номер периода, для которого вычисляется амортизация.
Функция ДДОБ (DDB) вычисляет величину амортизации имущества для указанного периода, используя метод двукратного (или k-кратного) учета амортизации.
Синтаксис функции:
ДДОБ(стоимость; остаток; время эксплуатации; период; коэффициент)
Аргументы функции:
стоимость это начальная стоимость имущества;
остаток остаточная стоимость в конце периода амортизации (иногда называют ликвидной стоимостью имущества);
время эксплуатации период амортизации;
период номер периода, для которого вычисляется амортизация;
коэффициент норма снижения балансовой стоимости (амортизации). Если коэффициент опущен, то предполагается, что он равен 2 (метод двукратного учета амортизации).
Рис. 1. Диалоговое окно «Расчет амортизации»
первоначальной стоимости оборудования, для которого подсчитывается амортизация;
остаточной стоимости оборудования;
времени полной амортизации;
Вид программного кода:
Dim B As Double
Dim E As Double
Dim A As Double
Dim Ye As Integer
Dim Yc As Integer
Dim k As Integer
Dim Flag As Boolean
Рис. 3.5.2. Сообщение о несогласованности вводимых данных
Например, для проверки остатка и начальной стоимости:
If B < E Then
MsgBox "Остаток больше начальной стоимости", _
vbExclamation, "Амортизация"
TextBox1.SetFocus
Exit Sub
End If
A = Application.SYD(B, E, Ye, Yc),
где А амортизация;
В первоначальная стоимость оборудования, для которого подсчитывается амортизация;
Е остаточная стоимость оборудования;
Ye время полной амортизации;
Yc период, для которого рассчитывается амортизация.
A = Application.DDB(B, E, Ye, Yc, k),
где k коэффициент амортизации.
Предварительно необходимо определить выбранный переключатель:
If OptionButton1.Value = True Then
Flag = True
Else
Flag = False
End If
Затем, в зависимости от выбранного метода запишите программный код для выполнения расчета амортизации.
Например, для стандартного метода:
If Flag = True Then
A = Application.SYD(B, E, Ye, Yc)
Else
Для метода k-кратного учета:
k = CInt(TextBox6.Text)
A = Application.DDB(B, E, Ye, Yc, k)
End If
Для вывода величины амортизации в диалоговом окне:
If A >= 0.01 Then
A = Format(A, "Fixed")
Else
A = 0
End If
TextBox5.Text = CStr(A)
Рис. 3.5.3. Отчет, выводимый на рабочем листе программой расчета амортизации
Изменение ширины столбцов А и В и установку в них режима ввода текста с переносом можно выполнить используя следующий программный код:
ActiveSheet.Columns("A").Select
With Selection
.ColumnWidth = 30
.WrapText = True
End With
ActiveSheet.Columns("B").Select
With Selection
.ColumnWidth = 20
.WrapText = True
End With
Ввод заголовков полей на рабочем листе, например для начальной стоимости:
With ActiveSheet
.Range("A1").Value = "Начальная стоимость"
…..
End With
Ввод данных в ячейки рабочего листа:
With ActiveSheet
.Range("B1").Value = B
.Range("B2").Value = E
.Range("B3").Value = Ye
.Range("B4").Value = Yc
.Range("B6").Value = A
.Range("B5").WrapText = True
If Flag = True Then
.Range("B5").Value = "Стандартным методом"
Else
.Range("B5").Value = "методом " & CStr(k) & _
" кратного учета амортизации"
End If
End With
Private Sub OptionButton1_Click()
Label6.Visible = False
TextBox6.Visible = False
SpinButton1.Visible = False
End Sub
Private Sub OptionButton2_Click()
Label6.Visible = True
TextBox6.Visible = True
SpinButton1.Visible = True
End Sub
Private Sub SpinButton1_Change()
TextBox6.Text = SpinButton1.Value
End Sub
Предварительно необходимо установить значение свойства Value объекта SpinButton1 равным 1.
Рис. 3.5.4. Диалоговое окно «Расчет амортизации» при выборе стандартного метода
Задание для выполнения лабораторной работы
Вы купили за Z руб. оборудование, которое имеет срок эксплуатации T лет и остаточную стоимость Zост. руб. (табл. 5.3.1). Используя разработанный модуль информационной системы, вычислите годовую амортизацию за каждый год двумя методами.
Представьте графическую интерпретацию расчетов амортизации оборудования. Сделайте выводы.
Таблица 1
Исходные данные
В а р и а н т ы |
||||||||||
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Z, тыс. руб. |
26 |
14 |
26 |
25 |
45 |
28 |
38 |
17 |
19 |
29 |
T, лет |
10 |
15 |
15 |
11 |
12 |
14 |
10 |
12 |
15 |
10 |
Zост., тыс. руб. |
18,6 |
6,4 |
11,7 |
8,9 |
14,5 |
19,4 |
12,9 |
6,9 |
13,7 |
7,8 |
Вопросы
А также другие работы, которые могут Вас заинтересовать | |||
10168. | Техногенная цивилизация, ее история и перспективы | 108 KB | |
Техногенная цивилизация ее история и перспективы. Информационное общество это высшая стадия развития техногенной цивилизации. Для характеристики его места в истории вернемся к общим представлениям о развитии культуры. С т.з. современной социальной философии сущ | |||
10169. | Чернобыльская радиация в вопросах и ответах | 735.41 KB | |
Когда в СССР сообщили об аварии на Чернобыльской АЭС Первая информация об аварии прозвучала в программе Время вечером 27 апреля, первая публикация в печати состоялась 28 апреля... | |||
10170. | Информационное общество как тип социальной организации | 58 KB | |
Информационное общество как тип социальной организации. Оценка сущности последней стадии в социальной философии ХХ в. претерпела эволюцию. Первоначально она характеризовалась как постиндустриальное общество Д. Белл технотронное общество З. Бжезинский. В 80х г... | |||
10171. | Проблема личности в информационном обществе | 150 KB | |
Проблема личности в информационном обществе Таким образом можно составить обобщенный свод проблем личности в информационном обществе. 1. Проблемы общения. С одной стороны благодаря Интернету мир превратился в мировую деревню: термин ввел в 70е гг. Маклюэн: все д... | |||
10172. | Гуманитарная философия техники. Льюис Мэмфорд: миф машины | 44.5 KB | |
Гуманитарная философия техникиИнженерная философия техники анализ техники как бы изнутри и в конечном счете интерпретация технического способа бытия человека в мире как парадигматического главного для понимания других типов человеческого мышления и действия мог | |||
10173. | Ортега-и-Гассет Х. | 31.5 KB | |
Х. Ортегаи-Гассет. Испанский философ Хосе Ортегаи-Гассет 18831955 в связи с анализом техники указывал на двойственность человека он отличен от природы и вместе с тем посредством техники он с ней сливается. По мысли Ортегии-Гассета современный мир сделали возможным тр... | |||
10174. | Смысл техники в философии Карла Маркса | 41.5 KB | |
Смысл техники в философии Карла Маркса О смысле техники и ее роли в человеческой истории философы много спорили. Широкое распространение получил марксистский подход который отождествлял технику с объективацией некоторых природных свойств в инструментальных целях тр | |||
10175. | Философия техники П.К. Энгельмейера | 77.5 KB | |
Философия техники П.К. Энгельмейера В настоящей статье обсуждаются совершенно конкретные вопросы творческой или если угодно инновационной деятельности инженера всесторонне рассмотренные в трудах во многом забытых выдающегося ученого П.К. Энгельмейера главным | |||
10176. | Карл Ясперс | 262.5 KB | |
Карл Ясперс. Близки к Хайдеггеру размышления известного немецкого философа одного из крупнейших экзистенциалистов Карла Ясперса 18831969. В работе Истоки истории и ее цель философ рассматривает технику как новый фактор мировой истории.[2] Он призывает к осознанию совр | |||