Year Function

Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π³ΠΎΠ΄ ΠΈΠ· Π΄Π°Ρ‚Ρ‹ Π² числовом Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅, созданной с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ DateSerial ΠΈΠ»ΠΈ DateValue.

Бинтаксис


Year (Число)

Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅ΠΌΠΎΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅:

Integer

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹:

Число. Π¦Π΅Π»ΠΎΠ΅ Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, содСрТащСС Π΄Π°Ρ‚Ρƒ Π² числовом Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅, ΠΈΠ· ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π±ΡƒΠ΄Π΅Ρ‚ ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½ Π³ΠΎΠ΄.

Π­Ρ‚Π° функция ΠΎΠ±Ρ€Π°Ρ‚Π½Π° Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ DateSerial ΠΈ Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π³ΠΎΠ΄ ΠΈΠ· Π΄Π°Ρ‚Ρ‹ Π² числовом Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π΅. НапримСр, Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅


Print Year(DateSerial(1994, 12, 20))

Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ 1994.

Error codes:

5 ΠΠ΅ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½Ρ‹ΠΉ Π²Ρ‹Π·ΠΎΠ² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:


Sub ExampleYear
    MsgBox "" & Year(Now) ,64,"Π’Π΅ΠΊΡƒΡ‰ΠΈΠΉ Π³ΠΎΠ΄"
End Sub