AccessTr.neT

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ı Img-grin

Bu acemiye yardım ettiğiniz şimdiden teşekkürler...

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))

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ı ?

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))

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

kokotuna

accessman

kokotuna

ozanakkaya

kokotuna