Zakat Calculator - SoundVision Online

<% Dim iYear,nCash,nStockVal,nCertificateVal,nGoldWt,nSilverWt,nGoldPrice,nSilverPrice,nGoldVal,nSilverVal Dim sError, nTotal, nNisab, nZakat nNisab=-828 sError="" If Request("Year")<>"" Then iYear=CInt(Request("Year")) Else iYear=Year(date) End if If Request("Calculate")<>"" Then If Request("Cash")<>"" Then nCash=Trim(Request("Cash")) Else nCash=0 End If If Request("shares")<>"" Then nStockVal=Trim(Request("shares")) Else nStockVal=0 End If If Request("certificates")<>"" Then nCertificateVal=Trim(Request("certificates")) Else nCertificateVal=0 End If If Request("goldwt")<>"" Then nGoldWt=Trim(Request("goldwt")) Else nGoldWt=0 End If If Request("goldprice")<>"" Then nGoldPrice=Trim(Request("goldprice")) Else sError=sError&"Please enter current price of gold from above chart
(Required to calculate Nisab)
" End If If Request("silverwt")<>"" Then nsilverWt=Trim(Request("silverwt")) If Request("silverprice")<>"" Then nsilverPrice=Trim(Request("silverprice")) Else sError=sError&"Please enter current price of silver from above chart
" End If Else nSilverWt=0 nSilverPrice=0 End If '----------Calculate------------- nGoldVal=nGoldWt*nGoldPrice nSilverVal=nSilverWt*nSilverPrice nTotal=CSng(nCash)+CSng(nStockVal)+CSng(nCertificateVal)+CSng(nGoldVal)+CSng(nSilverVal) nNisab=CSng(nGoldPrice)*(3) If nNisab"" Then sError="

Error
"&sError&"

" subDisplayForm Else subDisplayZakat End If Else subDisplayForm End If%>

You can donate your zakat to Sound Vision Foundation which is a registered not for profit organization under section 501(c)(3) of the Internal Revenue Code. Please visit our donations page to find many convinient ways to send you zakat to Sound Vision Foundation.

<%subHotDealsH%>