DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
AYDINLATILMA ORANI %: ((Nz([FAİLİ BELLİ];0)+Nz([FAİLİ FİRAR];0))/[TOPLAM]*100) & "%"
Değişkeni şu fonksiyon ile düzeltebilirsiniz.İlgin için çok teşekkür ederim. bir konu daha sormak istiyorum. sonuçları aldım ancak % hesaplaması olduğu için malumunuz bazı değerler 83,33333333 olarak gidiyor bununda 83,3 olarak kalmasını istiyorum bunu nasıl yapıcam.
Private Function RoundA(Sayi, Optional Basamak As Long)
Kat& = 10 ^ Abs(Basamak)
If Basamak >= 0 Then RoundA = CDbl(FormatNumber(Left(Sayi, 30), Basamak))
If Basamak < 0 Then RoundA = CDbl(RoundA(FormatNumber(Left(Sayi, 30) / Kat), 0) * Kat)
End Function