Какой правильный код, текущего года.

[s.p.il]

Здравствуйте.

Когда то использовал код VBA отображение текущего года, ком был с ОС XP.
На данный момент пользуюсь ОС win8.
Код TextBox = Year(Format(Date, yyyy, , vbUseSystem)) не срабатывает, выдается ошибка.
В чем может быть ошибка, в коде или влияние ОС?
Как это отладить?

[Вадим12091965]

Попробуй:

Private Sub CommandButton1_Click()
TextBox1.Text = Format(Now, "dddddd, hh ч. mm мин.")
End Sub

[VictorM]

Код TextBox = Year(Format(Date, yyyy, , vbUseSystem)) не срабатывает, выдается ошибка.

а если TextBox1 ? - Win7, office2003 все сработало.
попробуйте еще так написать

TextBox1 = Format(Date, "yyyy")

[s.p.il]

Да походу не то.
И вообще почему-то по многим моментам различных кодов идут сбои, в XP все нормально, а вот в win8 не хочет...

[VictorM]

Сообщение от Вадим12091965

Попробуй:

Private Sub CommandButton1_Click()
TextBox1.Text = Format(Now, "dddddd, hh ч. mm мин.")
End Sub

Вы сами-то хоть проверили, что предлагаете?

[s.p.il]

Сообщение от VictorM

а если TextBox1 ? - Win7, office2003 все сработало.
попробуйте еще так написать

TextBox1 = Format(Date, "yyyy")

У меня of-2007 и два кома с XP и win8

[IgorGO]

TextBox = Year(Format(Date, "yyyy", , vbUseSystem))

[s.p.il]

Сообщение от IgorGO

TextBox = Year(Format(Date, "yyyy", , vbUseSystem))

Не то......

[IgorGO]

согласен:

TextBox = Format(Date, "yyyy", , vbUseSystem)

Year там лишнее

[VictorM]

Ну не знаю.
win7+of-2007, 2010 тоже все работает.
И это

TextBox1 = Year(Format(Date, yyyy, , vbUseSystem))

и это

TextBox1 = Format(Date, "yyyy")