DateSerial Function

рдорд┐рддрд┐рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдмрд░реНрд╖, рдорд╣рд┐рдирд╛, рджрд┐рдирдХрд╛ рд▓рд╛рдЧрд┐ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ (рдмрд░реНрд╖, рдорд╣рд┐рдирд╛, рджрд┐рди)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдорд┐рддрд┐

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдмрд░реНрд╖:рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдмрд░реНрд╖ рдЬрдирд╛рдЙрдЫ ред рд╕рдмреИ рдорд╛рдирд╣рд░реВ реж рд░ репреп рдХреЛ рдмреАрдЪрдорд╛ резрепрежреж-резрепрепреп рдмрд░реНрд╖ рд╕рдореНрдордХреЛ рд╡рд░реНрдгрди рдЧрд░реНрджрдЫ ред рдмрд░реНрд╖рд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рддреНрдпреЛ рдлрд▓ рджрд╛рдпрд░рд╛ рднрдиреНрджрд╛ рдмрд╛рд╣рд┐рд░рдХреЛ рд╣реЛ, рддреНрдпрд╕рдорд╛ рддрдкрд╛рдИрдБрд▓реЗ рд╕рдмреИ рек рдЕрдВрдХрд╣рд░реВ рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рдЧрд░реНрдиреБ рдкрд░реНрджрдЫ ред

рдорд╣рд┐рдирд╛:рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдмрд░реНрд╖рдХреЛ рдорд╣рд┐рдирд╛ рдЬрдирд╛рдЙрдЫ ред рез-резреи рд╕рдореНрдордХреЛ рд╕реНрд╡рд┐рдХреГрдд рджрд╛рдпрд░рд╛ рд╣реЛ ред

Day: Integer expression that indicates the day of the specified month. The accepted range is from 1-31. No error is returned when you enter a non-existing day for a month shorter than 31 days.

рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдп рдбрд┐рд╕реЗрдореНрдмрд░ рейрез/резреорепреп рд░ рджрд┐рдПрдХрд╛ рдорд┐рддрд┐ рдмреАрдЪрдХреЛ рджрд┐рдирд╣рд░реВрдХреЛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рддрдкрд╛рдИрдБрд▓реЗ рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рджреБрдИ рдорд┐рддрд┐рд╣рд░реВрдХреЛ рдмреАрдЪрдорд╛ рдлрд░рдХ рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред

The рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдп рдЪрд▓ рдкреНрд░рдХрд╛рд░рдХрд╛ рен (рдорд┐рддрд┐) рд╕рдБрдЧ рдорд┐рддрд┐ рдЪрд▓ рдкреНрд░рдХрд╛рд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдЖрдиреНрддрд░рд┐рдХ рд░реВрдкрд▓реЗ, рдпреЛ рдорд╛рди рджреЛрдмреНрдмрд░ рдорд╛рдирдорд╛ рднрдгреНрдбрд╛рд░рдг рд╣реБрдиреНрдЫ ред рддреНрдпрд╕рдХрд╛рд░рдг рдЬрдм рдпреЛ рдорд┐рддрд┐ рез/рез/резрепрежреж рджрд┐рдиреНрдЫ рдлрд░реНрдХрд╛рдХрд╛рдЗрдПрдХреЛ рдорд╛рди реи рд╣реБрдиреНрдЫ ред рдЛрдгрд╛рддреНрдордХ рдорд╛рдирд▓реЗ рдбрд┐рд╕реЗрдореНрдмрд░ рейреж/резреорепреп(рд╕рдВрд▓рдЧреНрди рдирдЧрд░реЗрдХреЛ) рднрдиреНрджрд╛ рдЕрдЧрд╛рдбрд┐рдХреЛ рдорд┐рддрд┐рд▓рд╛рдИ рд╕рдиреНрджрд░реНрдн рдЧрд░реНрджрдЫ ред

рдпрджрд┐ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдорд┐рддрд┐ рд╕реНрд╡рд┐рдХреГрдд рджрд╛рдпрд░рд╛ рдмрд╛рд╣рд┐рд░ рдкрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдЖрдзрд╛рд░рднреВрдд LibreOfficeрд▓реЗ рддреНрд░реБрдЯрд┐ рд╕рдиреНрджреЗрд╢ рдлрд┐рд░реНрддрд╛ рдЧрд░реНрджрдЫ ред

рдЬрд╣рд╛рдБ рддрдкрд╛рдИрдБрд▓реЗ рдорд┐рддрд┐ рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдп рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрдиреБрд╣реБрдиреНрдЫ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ рддреНрдпрд╕рд▓реЗ рдорд┐рддрд┐ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдЫ,рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ рдмрд┐рднрд╛рдЬрдирдорд╛ рдкреНрд░рддреНрдпреЗрдХ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ(рдмрд░реНрд╖,рдорд╣рд┐рдирд╛,рджрд┐рди) рдХреЛ рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрджрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleDateSerial
Dim lDate As Long
Dim sDate As String
    lDate = DateSerial(1964, 4, 9)
    sDate = DateSerial(1964, 4, 9)
    MsgBox lDate ' рд▓реЗ 23476 рдлрд░реНрдХрд╛рдЙрдБрдЫ
    MsgBox sDate ' рд▓реЗ режреп.режрек.резрепремрек режреж:режреж:режреж рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
End Sub

Please support us!