EXCEL [Résolu]

Signaler
Messages postés
23
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
18 mai 2009
-
Messages postés
3
Date d'inscription
mardi 28 août 2007
Statut
Membre
Dernière intervention
26 mars 2010
-
Bonjour, j'ai une table sous forme d'excel (IRG.XLS) je voudrais bien reprendre cette table en (IRG.DB "paradox") a fin d'éviter de reprendre toute la saisie écrite et aussi d'avoir des connaissances en + sur delphi
MERCI

2 réponses

Messages postés
23
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
18 mai 2009

merci dominique.stock
c gnetil de votre part de me rappeler la fonction recherche
Messages postés
3
Date d'inscription
mardi 28 août 2007
Statut
Membre
Dernière intervention
26 mars 2010

Function irg(sal_imp As Long) As Currency
'
' Macro1 Macro
'
If sal_imp <= 15000 Then
irg = 0#
ElseIf sal_imp <= 22500 Then
irg = (sal_imp - 15000) * 0.2
ElseIf sal_imp <= 28750 Then
irg = 1500 + (sal_imp - 22500 + ((sal_imp - 22500) \ 5)) / 10
ElseIf sal_imp <= 30000 Then
irg = 2250 + (sal_imp - 28750) * 0.2
Else
irg = 2500 + (sal_imp - 30000) * 0.3
End If


'
End Function