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

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

Ajouter un commentaire Commentaires
fostier
Messages postés
1
Date d'inscription
vendredi 22 juillet 2011
Statut
Membre
Dernière intervention
22 juillet 2011

22 juil. 2011 à 17:20
comment faire pour l'utiliser merci d'avance
lcyril91
Messages postés
2
Date d'inscription
dimanche 7 mai 2006
Statut
Membre
Dernière intervention
26 janvier 2010

26 janv. 2010 à 22:06
serai posible davoir comme un logiciel a instaler ou exe ? comme un vrai logiciel merci de m aidez et de me l envoyer a lcyril29@hotmail.fr merci infiniment
lcyril91
Messages postés
2
Date d'inscription
dimanche 7 mai 2006
Statut
Membre
Dernière intervention
26 janvier 2010

26 janv. 2010 à 21:57
bonjour

jaimerai savoir commen faire pour afficher le logiciel ? et comment merci
Clo140251
Messages postés
1
Date d'inscription
dimanche 4 février 2007
Statut
Membre
Dernière intervention
9 septembre 2008

9 sept. 2008 à 18:41
Bravo pour cette application

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
nallno
Messages postés
14
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
10 décembre 2008

24 déc. 2007 à 17:51
c'est du brut , juste pour que ce soit correct, je préfère le C étant maintenant à 90% sous linux.

'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+
Afficher les 18 commentaires

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.