Hallo, könnte mir jemand kurz erklären wie ich hier auf r=2, g=2, j=4, h=2,5 komme. Nicht wundern, ich bin Student also mehr oder weniger Anfänger.
Danke im Voraus.
Option Explicit
Sub main()
Dim g, j, h As Double
g = 2
j = 4
h = 2
Dim r As Double
r = 0
r = fC(h, j)
Debug.Print r
Debug.Print g
Debug.Print j
Debug.Print h
End Sub
Function fC(ByRef c, ByVal a)
a = a / 2
c = c ^ (-1) + a
fC = 2
End Function
|