1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

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

Réponse 1 / 2
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
Réponse 2 / 2
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
Répondre Posez votre question