Contrôleur facture edf
Soyez le premier à donner votre avis sur cette source.
Vue 37 119 fois - Téléchargée 3 177 fois
Description
La confiance n' exclut pas le contrôle!
Ce programme peut:
1. Obtenir une estimation AVANT de recevoir la facture
2. Contrôler une facture reçue
3. Contrôler sa consommation
4. Obtenir des stats supplémentaires qui ne figurent pas sur la facture
L' explication finale est sur le Label63.
Ce programme peut:
1. Obtenir une estimation AVANT de recevoir la facture
2. Contrôler une facture reçue
3. Contrôler sa consommation
4. Obtenir des stats supplémentaires qui ne figurent pas sur la facture
Source / Exemple :
Seulement 115 lignes de code, que je ne poste pas parce que ce ne sont que des calculs simples sur des pourcentages. Ce prog a été conçu en 2001, il y avait besoin de rapidité de développement mais aucun besoin de performance donc il a été écrit en VB6 plutôt qu'en C++ ou en assembleur! Les résultats sont carrés: ils collent EXACTEMENT à la facture, au dixième d' euro près.
Conclusion :
L' explication finale est sur le Label63.
Codes Sources
A voir également
- Flashcode edf
- Flash code edf - Meilleures réponses
- Edf flashcode - Meilleures réponses
- Visual Basic / VB.NET : Ménager son cpu, son dégagement thermique, et sa facture d'edf - Guide
- Visual Basic / VB.NET : Capture des trames de téléinformation des compteurs edf (&eacu - Guide
- Edf ejp l observatoire - Guide
- Edf ejp observatoire - Guide
- Controleur facture EDF ✓ - Forum - Visual Basic 6
22 juil. 2011 à 17:20
26 janv. 2010 à 22:06
26 janv. 2010 à 21:57
jaimerai savoir commen faire pour afficher le logiciel ? et comment merci
9 sept. 2008 à 18:41
Juste un petit point à améliorer :
Il faut utiliser l'année commerciale de 360 jours (12 mois de 30 jours).
La fonction DateDiffComm fait très bien ce calcul
Private Function DateDiffComm(d1 As Date, d2 As Date) As Integer
Dim a As Integer, m As Integer, j As Integer
a = Year(d2) - Year(d1)
m = Month(d2) - Month(d1)
j = Day(d2) - Day(d1)
DateDiffComm = a * 360 + m * 30 + j
iDate = DateDiffComm
End Function
'Stats qui ne figurent pas sur la facture
DateDiffComm CDate(DTDu.Value), CDate(DTAu.Value)
Bravo quand même
Cordialement
24 déc. 2007 à 17:51
'TVA
TauxTVA = CDbl(Txt(10))
'Label42 = TauxTVA & "%"
'Label43 = TauxTVA & "%"
Label55 = TauxTVA & "%"
'TVA sur abonnement
Label25 = Format(Label12 * Txt(9) / 100, "##,##0.00")
'TVA sur consommation
Label26 = Format((CDbl(Label13) + CDbl(Label61)) * TauxTVA / 100, "##,##0.00")
'TVA sur taxe municipale
' on peut faire plus clair (nettement) avec des totaux intermédiaires :
Label42 = "Tx mix"
Label43 = "Tx mix"
Label27 = Format(((CDbl(Label13) + CDbl(Label61)) * 80 / 100 * 8 / 100 * TauxTVA / 100) + (Label12 * 0.8 * 0.08 * Txt(9) / 100), "##,##0.00")
'TVA sur taxe départementale
'comme quoi : on a pas de pétrole mais des idées alors...
Label29 = Format((CDbl(Label13) + CDbl(Label61)) * 80 / 100 * 4 / 100 * TauxTVA / 100 + Label12 * 0.8 * 0.04 * Txt(9) / 100, "##,##0.00")
'total TVA
Label28 = CDbl(Label25) + CDbl(Label26) + CDbl(Label27) + CDbl(Label29)
nb : moi j'aurais bien laissé la possibilité de saisir du négatif car 2 fois par an j'ai un avoir, mais bon.
D'ailleurs c'est le versement des avoir qu'il faut verifier j'attend 57 euro depuis 2 mois!!
A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.