Calculateur d'interêts entre deux dates

Soyez le premier à donner votre avis sur cette source.

Vue 11 223 fois - Téléchargée 925 fois

Description

Bonjour à tous,
Etant débutant,je me suis souvent cassé la tête pour calculer un écart en jour entre deux dates,les constantes,function,arrondir mes résultats etc...
Ayant créé ce source pour un autre logiciel que j'utilise en Base de données,j'en ai fait une copie allégée
il explique comment calculer les jours entre deux dates,l'utilisation d'une constante, et arrondir les chiffres
et quelques calculs...
Il n'a pas de prétention mais si il peut donner des idées et aider les débutants ce sera toujours bon
Les conseils et critiques sont les bienvenues

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
53
Date d'inscription
samedi 27 mars 2004
Statut
Membre
Dernière intervention
1 août 2006

Hello,
le prog a été fait sur Delphi 7, mais comme j'ai installé la version d'évaluation de Delphi 2005 architecte (que je vais retirer, licence trop chère et inutile vu mon niveau)les unités ont maintenant l'apparence des unités Delphi 2005 (Pourquoi???) d'où peut être la confusion de Florenth
En tout cas la méthode DaysBetween()fonctionne bien et est plus légère d'utilisation que ma première méthode

Merci à tous et bonne prog
DGPat
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
4
Florenth

Puisque Japee ne te répond pas, je vais le faire à sa place :

L'unité DateUtils n'existe pas dans Delphi 4

Ken@vo
Messages postés
53
Date d'inscription
samedi 27 mars 2004
Statut
Membre
Dernière intervention
1 août 2006

Suite aux conseils de Florenth, le code a été modifié pour l'utilisation de DaysBetween()et j'ai supprimé les Chr(44) et Chr(46) pour plus de compréhension
Messages postés
53
Date d'inscription
samedi 27 mars 2004
Statut
Membre
Dernière intervention
1 août 2006

Bonjour Florenth,
Merci de tes suggestions,je ne connaissais pas la méthode DaysBetween(),je vais essayer avec pour voir comment ca fonctionne, pour le reste c'est une question de goût,ca fait toujours plaisir d'avoir un commentaire et en plus j'ai appris quelque chose
Bonne prog
Trois petites suggestions:
- Chr(46) et Chr(44) peuvent être remplacés par '.' et ',' . C'est plus simple à comprendre. (Heuresement que tu as bien commenté sinon je n'aurais pas compris tout de suite).

- Il existe une fonction DaysBetween() déclarée dans l'unité DateUtils qui reprend exactement la même chose que ta procédure NombreDeJours(). Pourquoi ré-inventer la roue ? A moins que dans les versions inférieures à la 6, cela n'existe pas (Japee ??)

- J'aime bien tes labels plats et blancs. Je pensais que c'étaient des Edits. Pourquoi ne pas les remplacer par justement des TEdits avec ReadOnly := True ? C'est plus joli. (Mais bon, on s'en fiche comme tout le reste de mes commentaires puisque ton prog marche !!)

C'est un bon code, bien documenté, écrit dans les règles de l'art (je parle de l'indentation).
Belle démonstration de FloatToStrF() dont j'avais presque oublié l'existence.

9/10.

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.