Скачать или смотреть EB TARIFF CALCULATOR (in Tamil) in VBScript

கரண்ட் பில்லை இப்படித்தான் கணக்கிடுகிறர்கள்:
4 மாதத்திற்கு 860 யூனிட் என்று வைத்துக்கொள்வோம்
இதை இரண்டால் வகுத்தால் 430 யூனிட் ஆகிறது.
இந்த 430 யூனிட்டுக்கு எவ்வளவு பில் ஆகிறது என்று
கணக்கிட்டு பிறகு அதை இரண்டால் பெருக்கி வரும்
தொகைதான் நாம் நான்கு மாதங்களுக்கு செலுத்த வேன்டிய தொகை.
இதிலிருந்து நாம் ஏற்கெனவே notionalகட்டிய தொகையை கழித்தால்
இப்போது கட்ட வேன்டிய தொகை வரும்

' CODE STARTS FROM THE FOLLOWING LINE
un = InputBox("Enter Number of Electrical Units consumed", "EB Tariff Calculator")
fourmonths = MsgBox("is this for 4 months period?", vbYesNo, "EB Tariff Calculator")
If fourmonths = vbYes Then
alreadypaid = InputBox("Enter Notional Amount Paid Two months back", "EB Tariff Calculator")
un2 = Round(un / 2, 0)
payable = EbTariff(un2) * 2 - alreadypaid
MsgBox "Amount Payable : " & Chr(10) & payable, , "EB Tariff Calculator"
Else
MsgBox "Amount Payable : " & Chr(10) & EbTariff(un)
End If

' function to calculate the amount
Function EbTariff(units)
If units GRT 500 Then
chg1 = (units - 500) * 6.6
chg2 = 300 * 4.6
chg3 = 350
chg4 = 50
EbTariff = chg1 + chg2 + chg3 + chg4
Exit Function
End If

If units GRT 200 And units LET 501 Then
chg1 = (units - 200) * 3
chg2 = 200
chg3 = 30
EbTariff = chg1 + chg2 + chg3
End If
Exit Function

If units GRT 100 And units LET 201 Then
chg1 = (units - 100) * 1.5
chg2 = 20
EbTariff = chg1 + chg2
End If
Exit Function

If units LET= 100 Then
EbTariff = 0
End If
Exit Function

End Function
'CODE ENDS

IMPORTANT NOTE : Greater than and less than symbols are not allowed in YouTube Description. Hence
I used GRT and LET in the code, as a work around. After pasting this code in a notepad, replace GRT and LET
with respective symbols and save the file.

link for download:
https://drive.google.com/file/d/1s-iy...
usp=sharing

Please Subscribe. Don't forget to comment.