Year Function

DateSerial āĻ…āĻĨāĻŦāĻž DateValue āĻĢāĻžāĻ‚āĻļāύ āĻĻā§āĻŦāĻžāϰāĻž āĻĒā§āϰāĻ•āĻžāĻļāĻŋāϤ āĻ•ā§āϰāĻŽāĻŋāĻ• āϤāĻžāϰāĻŋāĻ– āĻĨ⧇āϕ⧇ āĻŦāĻ›āϰ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


āĻŦāĻ›āϰ (āϏāĻ‚āĻ–ā§āϝāĻž)

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Integer

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āĻ•ā§āϰāĻŽ: āχāύāϟāĻŋāϜāĻžāϰ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āĻŦāĻ›āϰ āĻ—āĻŖāύāĻž āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āĻŦā§āϝāĻŦāĻšā§ƒāϤ āĻ•ā§āϰāĻŽāĻŋāĻ• āϤāĻžāϰāĻŋāĻ– āϏāĻ‚āĻ–ā§āϝāĻž āϧāĻžāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āĻāχ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ DateSerial āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āĻŦāĻŋāĻĒāϰ⧀āϤ āĻāĻŦāĻ‚ āĻāĻ•āϟāĻŋ āĻ•ā§āϰāĻŽāĻŋāĻ• āϤāĻžāϰāĻŋāϖ⧇āϰ āĻŦāĻ›āϰ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āϝ⧇āĻŽāύ, āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύāϟāĻŋ:


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

āĻŽāĻžāύ ⧧⧝⧝ā§Ē āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇āĨ¤

Error codes:

5 Invalid procedure call

āωāĻĻāĻžāĻšāϰāĻŖ:


Sub ExampleYear
    MsgBox "" & Year(Now) ,64,"Current year"
End Sub

Please support us!