Exp Function

рдкреНрд░рд╛рдХреГрддрд┐рдХ рд▓рдШреБрдЧрдгрдХ(e =реи.ренрезреореиреореи)рдХреЛ рдкрд╛рд╡рд░ рдмрдврд╛рдЙрдирд▓рд╛рдИ рдЖрдзрд╛рд░рдорд╛ рдлрд░реНрдХрдиреБрд╣реЛрд╕реН ред

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


рдШрд╛рддрд╛рдВрдХ (рдирдореНрдмрд░)

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

Double

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

рд╕рдВрдХреНрдпрд╛:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рдШрд╛рдд рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ рддреНрдпреЛ рддрдкрд╛рдИрдБрд▓реЗ "e"рджреЗрдЦрд┐ (рдкреНрд░рд╛рдХреГрддрд┐рдХ рд▓рдШреБрдЧрдгрдХрдХреЛ рдЖрдзрд╛рд░)рд▓рд╛рдИ рдмрдврд╛рдЙрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рдШрд╛рдд рдПрдХрд▓-рд╢реБрдзреНрджрд┐рдХрд░рдг рдирдореНрдмрд░рд╣рд░реВ реорео.режреирепремреп рд░ рджреНрд╡рд┐-рдЧреБрдирд╛-рд╢реБрдзреНрджрд┐рдХрд░рдг рдирдореНрдмрд░рд╣рд░реВ ренрежреп.ренреореиренрезреиреорепрей рджреБрдмреИрдХрд╛ рд▓рд╛рдЧрд┐ рдмрд╛рд░рд╛рдмрд░ рд╡рд╛ рдШрдЯрд┐ рд╣реБрдиреБрдкрд░реНрджрдЫ ред рддреНрдпрд╕рдХрд╛рд░рдг рдЖрдзрд╛рд░рднреВрдд LibreOfficeрд▓реЗ рдирдореНрдмрд░рд╣рд░реВ рддреА рдорд╛рдирд╣рд░реВ рднрдиреНрджрд╛ рдмрдвреА рдмрдирд╛рдЙрдБрджрд╛ рдЕрдзрд┐рдкреНрд░рд╡рд╛рд╣ рддреНрд░реБрдЯрд┐рд╣рд░реВ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

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

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

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


Sub ExampleLogExp
Dim dValue As Double
    Const b1=12.345e12
Const b2=1.345e34
    dValue=Exp( Log(b1)+Log(b2) )
    рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ "" & dValue & chr(13) & (b1*b2) ,0,"рд▓рдШреБрдЧрдгрдХрджреНрд╡рд╛рд░рд╛ рдЧреБрдгрди"
End Sub