AccessTr.neT

Tam Versiyon: acsess te log alma işlevi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.