Segui il video qui sotto per vedere come installare il nostro sito come web app sulla tua schermata principale.
Nota: Questa funzionalità potrebbe non essere disponibile in alcuni browser.
Una conferma: questi sono i prezzi che verranno applicati ai consumi di Luglio, giusto?***Citazione integrale rimossa: è sufficiente il link all'originale (la freccia qui sopra). nll***
Function accisekwh(kwh As Double, gg As Integer) As Double
If kwh = 0 Or gg = 0 Then
accisekwh = 0
Else
kwhpq = kwh / gg ' kwh consumati al giorno
esenti = 150 ' numero kwh esenti da accise
s1 = 220 ' soglia oltre il quale l'esenzione viene tolta progressivamente
s2 = 370 ' limite oltre il quale non esiste esenzione
pqg0 = esenti * 12 / 365
pqg1 = s1 * 12 / 365
pqg2 = s2 * 12 / 365
nonesenti = 0
accisekwh = 0
If kwhpq > pqg2 Then ' superati i 370 mese non esiste esenzione
accisekwh = kwhpq
ElseIf kwhpq > pqg1 Then 'superati i 220
accisekwh = kwhpq - pqg1
nonesenti = accisekwh
kwhpq = pqg1
End If
If kwhpq If kwhpq < pqg0 Then
accisekwh = 0
Else
accisekwh = accisekwh + kwhpq - pqg0
End If
End If
'accisekwh = Int(((accisekwh + nonesenti) * gg) + 0.94)
accisekwh = ((accisekwh + nonesenti) * gg)
End If
End Function
ti scrivo quello che penso ma non è detto che sia la tua soluzione.... per il ripensamento