Работа с часами и датами
Если вы хотите работать с временем датой вы должны знать такие простые определения как:
1) вы можете вызвать время на label и на различные обьекты, которые могут выводить текст.
Чтобы произвест такие действия вы должны прописать следующее:
private (public) sub <событие>
<обьект>.<свойство, которое отображает текст> = date (Если нужна дата; time если нужно время)
end sub
2) если вы хотите использовать определение дня недели, то произведите следующее:
Sub Текущий_день_недели()
Dim MyDate, N_Nedela, Imi_dny_nedeli
MyDate = Date$
N_Nedela = WeekDay(MyDate, 0)
Imi_dny_nedeli =WeekdayName(N_Nedela)
Workbooks("Проба1.xls").Worksheets("Лист1").Range("A5") = Imi_dny_nedeli
End Sub
|