Пресметка на ДДВ

[Dejan]]

Дечки помош...
треба од бруто сумата за наплата да издвојам ДДВ и сума без ДДВ.. ова го имам но не е тоа тоа:

' DDV
Faktura.DDV.SetDbValue(Faktura.DDV.CurrentValue, System.DBNull.Value)
Rs("DDV") = Faktura.DDV.DbValue

' VkupnoBezDDV
Faktura.VkupnoBezDDV.SetDbValue(Faktura.VkupnoBezDDV.CurrentValue, System.DBNull.Value)
Rs("VkupnoBezDDV") = Faktura.VkupnoZaNaplata.CurrentValue - (Faktura.VkupnoZaNaplata.CurrentValue * ((100 * Faktura.DDV.CurrentValue) / (100 + Faktura.DDV.CurrentValue))) / 100

' VkupnoDDV
Faktura.VkupnoDDV.SetDbValue(Faktura.VkupnoDDV.CurrentValue, System.DBNull.Value)
Rs("VkupnoDDV") = Faktura.VkupnoZaNaplata.CurrentValue * Faktura.DDV.CurrentValue / 100

' VkupnoZaNaplata
Faktura.VkupnoZaNaplata.SetDbValue(Faktura.VkupnoZaNaplata.CurrentValue, System.DBNull.Value)
Rs("VkupnoZaNaplata") = Faktura.VkupnoZaNaplata.DbValue

Проблемот е кај ова VkupnoDDV не ми ја дава правата вредност...
Нели издвојување на ДДВ од бруто сум е по формулата:
100*18/100+18 за ДДВ-то

Јас добивам:
ДДВ % 18%
Вкупно без ДДВ 7627,1186
Вкупно ДДВ 1620
Вкупно за наплата 9000

ДДВ е точно, Вкупно без ДДВ е точно е само Вкупно ДДВ не е точно
Формулата работи одлично во Excel но не и тука.. може помош?

Ок средив...
' VkupnoDDV
Faktura.VkupnoDDV.SetDbValue(Faktura.VkupnoDDV.Cur rentValue, System.DBNull.Value)
Rs("VkupnoDDV") = Faktura.VkupnoZaNaplata.CurrentValue * Faktura.DDV.CurrentValue / 100

треба да биде:

' VkupnoDDV
Faktura.VkupnoDDV.SetDbValue(Faktura.VkupnoDDV.Cur rentValue, System.DBNull.Value)
Rs("VkupnoDDV") = (Faktura.VkupnoZaNaplata.CurrentValue * ((100 * Faktura.DDV.CurrentValue) / (100 + Faktura.DDV.CurrentValue))) / 100