acsess te log alma işlevi

10/05/2012, 18:24

kokotuna

Merhaba arkadaşlar excelde
=1,67*LOG(15000/(D30*D24))
formülü ile hesaplanan değeri acsess te aynı şekilde hesaplatmak için kodu nasıl yazmalıyım?
Bir çok kombinasyon denedim ancak sonuçlar hiç tutmadı
Bu acemiye yardım ettiğiniz şimdiden teşekkürler...
10/05/2012, 18:47

accessman

Kod:
Static Function Log10(X)
    Log10 = Log(X) / Log(10#)
End Function

Kod:
Dim MyAngle, MyLog
' Define angle in radians.
MyAngle = 1.3
' Calculate inverse hyperbolic sine.
MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))
10/05/2012, 19:21

kokotuna

D30=1.86 , D24=316 olduğunda excelin verdiği sonuç 2,34 ancak burda verdiğiniz kodlarla hesaplattığımda sonuç 5.4 çıkıyor sanırım Dim kodunu yalnış yere kopyalamış olabilirim o kod nereye yazılmalı ?
10/05/2012, 20:00

ozanakkaya

accessman'ın verdiği
Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function
kodu vb sayfasına yapıştır.

MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))
olarak verilen kodu

MyLog = Log10(MyAngle + Sqr(MyAngle * MyAngle + 1))
şeklinde kullan, sizin kodunuza göre;

MyLog = 1.67 * Log10(15000 / (1.86 * 316))
13/05/2012, 14:49

kokotuna

teşekkürler sorun çözülmüştür.