Year Function
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π³ΠΎΠ΄ ΠΈΠ· Π΄Π°ΡΡ Π² ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ DateSerial ΠΈΠ»ΠΈ DateValue.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Year (Π§ΠΈΡΠ»ΠΎ)
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅:
Integer
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ:
Π§ΠΈΡΠ»ΠΎ. Π¦Π΅Π»ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ Π΄Π°ΡΡ Π² ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ Π³ΠΎΠ΄.
ΠΡΠ° ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠ±ΡΠ°ΡΠ½Π° ΡΡΠ½ΠΊΡΠΈΠΈ DateSerial ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π³ΠΎΠ΄ ΠΈΠ· Π΄Π°ΡΡ Π² ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅
Print Year(DateSerial(1994, 12, 20))
Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 1994.
ΠΡΠΈΠΌΠ΅Ρ:
Sub ExampleYear
MsgBox "" & Year(Now) ,64,"Π’Π΅ΠΊΡΡΠΈΠΉ Π³ΠΎΠ΄"
End Sub