DateSerial Function

αžαŸ’αžšαž‘αž”αŸ‹β€‹αžαž˜αŸ’αž›αŸƒ αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘ αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αžαŸ’αž„αŸƒ αžαŸ‚ αž†αŸ’αž“αžΆαŸ†β€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–


DateSerial (year, month, day)

αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαž‘αž”αŸ‹ αŸ–

αž€αžΆαž›β€‹β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

αž†αŸ’αž“αžΆαŸ†β€‹ αŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž…αŸ†αž“αž½αž“β€‹αž‚αžαŸ‹ αžŠαŸ‚αž›β€‹αž…αž„αŸ’αž’αž»αž›β€‹αž”αž„αŸ’αž αžΆαž‰β€‹β€‹αž–αžΈβ€‹αž†αŸ’αž“αžΆαŸ†Β αŸ” αžαž˜αŸ’αž›αŸƒβ€‹αž‘αžΆαŸ†αž„αž’αžŸαŸ‹β€‹αž…αž“αŸ’αž›αŸ„αŸ‡ ០ αž“αž·αž„ ៩៩ αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αž€β€‹αž”αŸ’αžšαŸ‚β€‹αž‡αžΆβ€‹αž†αŸ’αž“αžΆαŸ† 1900-1999Β αŸ” αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž†αŸ’αž“αžΆαŸ†β€‹αžŠαŸ‚αž›β€‹αžŸαŸ’αžαž·αžβ€‹αž“αŸ…β€‹αž€αŸ’αžšαŸ…β€‹αž–αžΈβ€‹αž‡αž½αžšβ€‹αž“αŸαŸ‡ αž’αŸ’αž“αž€β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αž‰αŸ’αž…αžΌαž›β€‹β€‹αž‘αžΆαŸ†αž„αž’αžŸαŸ‹β€‹β€‹αž”αž½αž“β€‹αžαž½β€‹β€‹αž›αŸαžΒ αŸ”

Month αŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹β€‹αž…αŸ†αž“αž½αž“β€‹β€‹αž‚αžαŸ‹ αžŠαŸ‚αž›β€‹αž…αž„αŸ’αž’αž»αž›β€‹αž”αŸ’αžšαžΆαž”αŸ‹β€‹αž–αžΈβ€‹αžαŸ‚β€‹αž“αŸƒβ€‹αž†αŸ’αž“αžΆαŸ†β€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹Β αŸ” αž‡αž½αžšβ€‹αžŠαŸ‚αž›β€‹αž’αžΆαž…β€‹αž‘αž‘αž½αž›β€‹αž™αž€β€‹αž‚αžΊβ€‹αž–αžΈ 1-12Β αŸ”

αžαŸ’αž„αŸƒαŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž…αŸ†αž“αž½αž“β€‹αž‚αžαŸ‹β€‹αžŠαŸ‚αž›β€‹αž”αž„αŸ’αž αžΆαž‰β€‹β€‹αž–αžΈβ€‹αžαŸ’αž„αŸƒβ€‹αž“αŸƒβ€‹αžαŸ‚β€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹αŸ” αžαž˜αŸ’αž›αŸƒβ€‹αžŠαŸ‚αž›β€‹αž’αžΆαž…β€‹αž”αŸ’αžšαžΎβ€‹αž”αžΆαž“β€‹αž‚αžΊβ€‹αž–αžΈ ៑-៣៑ αŸ” αžœαžΆβ€‹αž“αžΉαž„β€‹αž˜αž·αž“β€‹αž”αž„αŸ’αž αžΆαž‰β€‹αž€αŸ†αž αž»αžŸβ€‹αž‘αŸ αž–αŸαž›β€‹αž’αŸ’αž“αž€β€‹αž”αž‰αŸ’αž…αžΌαž›β€‹αžαŸ’αž„αŸƒβ€‹αžŠαŸ‚αž›β€‹αž˜αž·αž“β€‹αž˜αžΆαž“β€‹αž“αŸ…β€‹αž€αŸ’αž“αž»αž„β€‹αžαŸ‚β€‹αžŠαŸ‚αž›β€‹αžαŸ’αž›αžΈβ€‹αž‡αžΆαž„ ៣៑ αž“αŸ„αŸ‡αŸ”

αž’αž“αž»αž‚αž˜αž“αŸ DateSerial​ αžαŸ’αžšαž‘αž”αŸ‹β€‹αž…αŸ†αž“αž½αž“β€‹αžαŸ’αž„αŸƒβ€‹αžŠαŸ‚αž›β€‹αžŸαŸ’αžαž·αžβ€‹αž“αŸ…β€‹αž…αž“αŸ’αž›αŸ„αŸ‡ 30,1899 αž“αž·αž„β€‹αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘β€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž•αŸ’αžαž›αŸ‹Β αŸ” αž’αŸ’αž“αž€β€‹αž’αžΆαž…β€‹αž”αŸ’αžšαžΎβ€‹αž’αž“αž»αž‚αž˜αž“αŸβ€‹αž“αŸαŸ‡ αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž‚αžŽαž“αžΆβ€‹αž—αžΆαž–β€‹αžαž»αžŸβ€‹αž‚αŸ’αž“αžΆβ€‹αžšαžœαžΆαž„β€‹αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘β€‹αž–αžΈαžšΒ αŸ”

αž’αž“αž»αž‚αž˜αž“αŸ DateSerial αžαŸ’αžšαž‘αž”αŸ‹β€‹αž”αŸ’αžšαž—αŸαž‘β€‹αž‘αž·αž“αŸ’αž“αž“αŸαž™β€‹αžœαŸ‰αžΆαžšαŸ’αž™αž„αŸ‹β€‹αž‡αžΆαž˜αž½αž™ VarType 7 (αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘)Β αŸ” αž“αŸ…β€‹αžαžΆαž„β€‹αž€αŸ’αž“αž»αž„ αžαž˜αŸ’αž›αŸƒβ€‹αž“αŸαŸ‡β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αžšαž€αŸ’αžŸαžΆβ€‹αž‘αž»αž€β€‹αž‡αžΆβ€‹αžαž˜αŸ’αž›αŸƒβ€‹αž‘αŸ’αžœαŸ αžŠαžΌαž…αŸ’αž“αŸαŸ‡β€‹αž“αŸ…β€‹αž–αŸαž›β€‹αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘β€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž•αŸ’αžαž›αŸ‹β€‹αž‚αžΊ 1.1.1900 αž“αŸ„αŸ‡β€‹αžαž˜αŸ’αž›αŸƒβ€‹αžŠαŸ‚αž›β€‹αžαŸ’αžšαž‘αž”αŸ‹β€‹αž‚αžΊ αŸ’Β αŸ” αžαž˜αŸ’αž›αŸƒβ€‹αž’αžœαž·αž‡αŸ’αž‡αž˜αžΆαž“β€‹αžαŸ’αžšαžΌαžœβ€‹αž‚αŸ’αž“αžΆβ€‹αž‘αŸ…β€‹αž“αžΉαž„β€‹αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘β€‹αž–αžΈβ€‹αž˜αž»αž“ αžαŸ‚β€‹αž’αŸ’αž“αžΌ ៣០ ៑៨៩៩ (αž˜αž·αž“β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αžšαžΆαž”αŸ‹β€‹αž”αž‰αŸ’αž…αžΌαž›)Β αŸ”

αž”αŸ’αžšαžŸαž·αž“β€‹αž”αžΎβ€‹αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž€αŸ†αžŽαžαŸ‹ αžŸαŸ’αžαž·αžβ€‹αž“αŸ…β€‹αž€αŸ’αžšαŸ…β€‹αž‡αž½αžšβ€‹αžŠαŸ‚αž›β€‹αž‘αž‘αž½αž›β€‹αž™αž€ LibreOffice Basic αžαŸ’αžšαž‘αž”αŸ‹β€‹αžŸαžΆαžšβ€‹αž€αŸ†αž αž»αžŸΒ αŸ”

αžŠαŸ„αž™β€‹αžŸαžΆαžšβ€‹αžαŸ‚β€‹ αž’αŸ’αž“αž€β€‹αž€αŸ†αžŽαžαŸ‹ αž’αž“αž»αž‚αž˜αž“αŸ DateValue αž‡αžΆβ€‹αžαŸ’αžŸαŸ‚β€‹αž’αž€αŸ’αžŸαžšβ€‹αžŠαŸ‚αž›β€‹αž˜αžΆαž“β€‹αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘ αž’αž“αž»αž‚αž˜αž“αŸ DateSerial​ αžœαžΆαž™β€‹αžαž˜αŸ’αž›αŸƒβ€‹αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžšβ€‹αž“αžΈαž˜αž½αž™β€‹αŸ— (αž†αŸ’αž“αžΆαŸ† αžαŸ‚ αžαŸ’αž„αŸƒ) αž‡αžΆβ€‹αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž›αŸαžβ€‹αžŠαžΆαž…αŸ‹β€‹αžŠαŸ„αž™β€‹αž‘αŸ‚αž€β€‹αž–αžΈβ€‹αž‚αŸ’αž“αžΆΒ αŸ”

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–


Sub ExampleDateSerial
Dim lDate As Long
Dim sDate As String
    lDate = DateSerial(1964, 4, 9)
    sDate = DateSerial(1964, 4, 9)
    msgbox lDate REM returns 23476
    msgbox sDate REM αžαŸ’αžšαž‘αž”αŸ‹ ០ៀ/០៩/៑៩៦ៀ
End Sub

Please support us!