Презентация, доклад по информатике на тему Программирование в среде VB. Обработка даты и времени

Format

указанным инструкциям.

возвращает выражение, отформатированное как число )
FormatPercent ( возвращает выражение, отформатированное как процентное отношение)
Format……….. (expression [, а[, b [, с[, d]]])

= Text2.Text
c = a / b
c = FormatNumber(c, 3)
Label3.Caption = c
End Sub

= Text2.Text
c = a / b
c = FormatCurrency (c, 3)
Label3.Caption = c
End Sub

= Text2.Text
c = a / b
c = FormatPercent (c, 3)
Label3.Caption = c
End Sub

выражение, отформатированное как дата или время
FormatDateTime(Date [,NamedFormat])

«пуск»

и время"
Print "------------------------------------------------------"
Print "General Date:" & Chr(9) & Format(Now, "General Date")
Print "Long Date:" & Chr(9) & Format(Now, "Long Date")
Print "Medium Date:" & Chr(9) & Format(Now, "Medium Date")
Print "Short Date:" & Chr(9) & Format(Now, "Short Date")
Print "Long Time:" & Chr(9) & Format(Now, "Long Time")
Print "Medium Time:" & Chr(9) & Format(Now, "Medium Time")
Print "Short Time:" & Chr(9) & Format(Now, "Short Time")

End Sub

где
A – первый день недели;
B – первая неделя года

f y e a r может принимать следующие значения:

Date, ДатаВремя As Date
Дата = Date 'Текущая дата
Время = Time 'Текущее время
ДатаВремя = Now 'Текущие дата и время
Print "Текущая дата: " & Chr(9) & Дата
Print "Текущая время: " & Chr(9) & Время
Print "Текущие дата и время: "; ДатаВремя
Print "Число:"; Day(Дата), "Месяц:"; Month(Дата), _"Год:"; Year(Дата)

"Секунд: "; Second(Время)
Print "День недели: "; Spc(7); Weekday(Now, vbMonday)
Print "Число секунд после полуночи: "; Timer
Dim ДатаРождения As Date
ДатаРождения = DateSerial(1984, 6, 17)
Print
Print Tab(10); "Дата рождения: " & Chr(9) & ДатаРождения
Print "Год рождения: ", DatePart("yyyy", ДатаРождения)
Print "Месяц: "; DatePart("m", ДатаРождения),
Print " Число: "; DatePart("d", ДатаРождения)
Print "День дня рождения: "; Weekday(ДатаРождения, vbMonday)
Print

"Число прожитых месяцев: "; DateDiff("m", ДатаРождения, Now)
Print "Число прожитых недель: ", DateDiff("w", ДатаРождения, Now)
Print "Число прожитых дней: ", DateDiff("d", ДатаРождения, Now)
Print "Число прожитых часов: ", DateDiff("h", ДатаРождения, Now)
Print "Число прожитых минут: ", DateDiff("n", ДатаРождения, Now)
Print "Число прожитых секунд: ", DateDiff("s", ДатаРождения, Now)
Print
Print Tab(9); "Дата 20-летия: "; DateAdd("yyyy", 20, ДатаРождения)
End Sub

новыми сотрудниками