=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 Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Bu acemiye yardım ettiğiniz şimdiden teşekkürler...
Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function
Dim MyAngle, MyLog
' Define angle in radians.
MyAngle = 1.3
' Calculate inverse hyperbolic sine.
MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))
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 koduMyLog = Log10(MyAngle + Sqr(MyAngle * MyAngle + 1))
şeklinde kullan, sizin kodunuza göre;MyLog = 1.67 * Log10(15000 / (1.86 * 316))