Private Sub UserForm_Initialize()
Текущая_дата = Date
Дата_в_формате = Format(Текущая_дата, "dd mmmm yyyy г.")
День = Day(Текущая_дата)
День_недели_номер = Weekday(Текущая_дата, vbMonday)
День_недели_название = WeekdayName(День_недели_номер, False, vbMonday)
Месяц_номер = Month(Текущая_дата)
Месяц_название = MonthName(Месяц_номер)
Год = Year(Текущая_дата)
TextBox1.Text = Текущая_дата
TextBox2.Text = Дата_в_формате
TextBox3.Text = День
TextBox4.Text = CStr(День_недели_номер)
TextBox5.Text = День_недели_название
TextBox6.Text = CStr(Месяц_номер)
TextBox7.Text = Месяц_название
TextBox8.Text = CStr(Год)
End Sub
Private Sub CommandButton1_Click()
Проба_даты.CommandButton1.Caption = "Глокая куздра бадланула бокра"
Проба_даты.Show
End Sub
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.