Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic calcul de paiement

calcul de paiement

5 réponses
Avatar
Flex
bonjour tout le monde
Dans mon soft de devis facture que j'esaie de faire je suis confronté à un
petit problème de calcul
en fait je m'en mele les pinceaux dans mon code. je m'explique:
dans ma form de facturation j'ai une frame dans laquelle j'ai:
1 textbox: txtNbJours
1 textbox: txtPaiementLe
1 combobox: cboPaiement
1 DTPicker: DTPicker1

dans ma combo j'ai 3item:
Immédiat/Fin de mois/Fin de décade
et DTPicker 1 est a la date d'aujourd'hui 26/11/04
les 2textbox son vides et sont controlés par un UpDown (de 1à31 pour
txtPaiementLe et de 1à365 pour txtNbJours)
j'appelle cet etat l'état initial

ce que je veux faire c'est:
à partir de etat initial:
1)si l'utilisateur met cboPaiement égal à "fin de mois" ou "fin de decade"
alors
dtpicker passe à 30/11/04

2)sil'utilisateur met cboPaiement égal à "Immédiat"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

3)sil'utilisateur met cboPaiement égal à "Fin de mois"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

mais txtPaiementLe égal à 30 ou 31 met le dtpicker1 à 30/11/04
si on ajoute alors txtNbJours égal à 1,..,4,5,......,35,36 alors
dtpicker passe à30/11/04,....,30/11/04,
30/01/05,...........30/01/05,28/02/05
ainsi de suite

4)sil'utilisateur met cboPaiement égal à "Fin de décade"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à10/12/04 ou 10/12/04 ou....ou20/12/04

dans ce dernier cas si
si on ajoute alors txtNbJours égal à 1,..,22,23,......,53,54alors
dtpicker passe à
20/12/04,....,20/12/04,20/01/05,...........20/01/05,20/02/05 ainsi de suite

je n'arrive pas à m'en sortir donc si quelqu'un veut m'aider, je suis
preneur.
Merci
j'espère que j'aurai resussi à expliquer mon problème
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LE TROLL
Salut,

Je ne sais pas si j'ai tout compris (je suis un Troll), est-ce que c'est
un problème de date, à savoir que par exemple ta fin de mois d'octobre est
"30" au lieu de "31" ???
----------------

"Flex" a écrit dans le message de news:

bonjour tout le monde
Dans mon soft de devis facture que j'esaie de faire je suis confronté à un
petit problème de calcul
en fait je m'en mele les pinceaux dans mon code. je m'explique:
dans ma form de facturation j'ai une frame dans laquelle j'ai:
1 textbox: txtNbJours
1 textbox: txtPaiementLe
1 combobox: cboPaiement
1 DTPicker: DTPicker1

dans ma combo j'ai 3item:
Immédiat/Fin de mois/Fin de décade
et DTPicker 1 est a la date d'aujourd'hui 26/11/04
les 2textbox son vides et sont controlés par un UpDown (de 1à31 pour
txtPaiementLe et de 1à365 pour txtNbJours)
j'appelle cet etat l'état initial

ce que je veux faire c'est:
à partir de etat initial:
1)si l'utilisateur met cboPaiement égal à "fin de mois" ou "fin de
decade" alors
dtpicker passe à 30/11/04

2)sil'utilisateur met cboPaiement égal à "Immédiat"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

3)sil'utilisateur met cboPaiement égal à "Fin de mois"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

mais txtPaiementLe égal à 30 ou 31 met le dtpicker1 à 30/11/04
si on ajoute alors txtNbJours égal à 1,..,4,5,......,35,36 alors
dtpicker passe à30/11/04,....,30/11/04,
30/01/05,...........30/01/05,28/02/05
ainsi de suite

4)sil'utilisateur met cboPaiement égal à "Fin de décade"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à10/12/04 ou 10/12/04 ou....ou20/12/04

dans ce dernier cas si
si on ajoute alors txtNbJours égal à 1,..,22,23,......,53,54alors
dtpicker passe à
20/12/04,....,20/12/04,20/01/05,...........20/01/05,20/02/05 ainsi de
suite

je n'arrive pas à m'en sortir donc si quelqu'un veut m'aider, je suis
preneur.
Merci
j'espère que j'aurai resussi à expliquer mon problème




Avatar
Flex
En fait c'est plus un problème de programmation.
Ce que je n'arrive pas à faire, c'est quand je programme l'évènement change
d'un textbox (txtPaiementLe par ex) comment faire pour que dtpicker change
en conséquence, avec toutes mes contraintes.


"LE TROLL" <le a écrit dans le message de news:

Salut,

Je ne sais pas si j'ai tout compris (je suis un Troll), est-ce que
c'est un problème de date, à savoir que par exemple ta fin de mois
d'octobre est "30" au lieu de "31" ???
----------------

"Flex" a écrit dans le message de news:

bonjour tout le monde
Dans mon soft de devis facture que j'esaie de faire je suis confronté à
un petit problème de calcul
en fait je m'en mele les pinceaux dans mon code. je m'explique:
dans ma form de facturation j'ai une frame dans laquelle j'ai:
1 textbox: txtNbJours
1 textbox: txtPaiementLe
1 combobox: cboPaiement
1 DTPicker: DTPicker1

dans ma combo j'ai 3item:
Immédiat/Fin de mois/Fin de décade
et DTPicker 1 est a la date d'aujourd'hui 26/11/04
les 2textbox son vides et sont controlés par un UpDown (de 1à31 pour
txtPaiementLe et de 1à365 pour txtNbJours)
j'appelle cet etat l'état initial

ce que je veux faire c'est:
à partir de etat initial:
1)si l'utilisateur met cboPaiement égal à "fin de mois" ou "fin de
decade" alors
dtpicker passe à 30/11/04

2)sil'utilisateur met cboPaiement égal à "Immédiat"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

3)sil'utilisateur met cboPaiement égal à "Fin de mois"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

mais txtPaiementLe égal à 30 ou 31 met le dtpicker1 à 30/11/04
si on ajoute alors txtNbJours égal à 1,..,4,5,......,35,36 alors
dtpicker passe à30/11/04,....,30/11/04,
30/01/05,...........30/01/05,28/02/05
ainsi de suite

4)sil'utilisateur met cboPaiement égal à "Fin de décade"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à10/12/04 ou 10/12/04 ou....ou20/12/04

dans ce dernier cas si
si on ajoute alors txtNbJours égal à 1,..,22,23,......,53,54alors
dtpicker passe à
20/12/04,....,20/12/04,20/01/05,...........20/01/05,20/02/05 ainsi de
suite

je n'arrive pas à m'en sortir donc si quelqu'un veut m'aider, je suis
preneur.
Merci
j'espère que j'aurai resussi à expliquer mon problème








Avatar
LE TROLL
re-salut, tiens, par exemple:
Dim i As Long
'
Sub Form_Load()
i = 1
Text2 = i
End Sub
'
Sub Text1_Change()
i = i + 1 ' a faire sin change
Text2 = i ' affiche cha,gement texte 2
End Sub

Et bien, quand on change dans text1, ça change réellement dans text2 (i)...
------------

Cependant, si c'est pour un choix, il faut utiliser une ListBox ou 1
ComboBox, le mieux étant de valider par un bouton d'ailleurs (y compris ton
textBox (son problème est qu'on peut saisir n'importe quoi, à moins de tout
piéger)...
-+-*-*-*-*-


"Flex" a écrit dans le message de news:

En fait c'est plus un problème de programmation.
Ce que je n'arrive pas à faire, c'est quand je programme l'évènement
change d'un textbox (txtPaiementLe par ex) comment faire pour que dtpicker
change en conséquence, avec toutes mes contraintes.


"LE TROLL" <le a écrit dans le message de news:

Salut,

Je ne sais pas si j'ai tout compris (je suis un Troll), est-ce que
c'est un problème de date, à savoir que par exemple ta fin de mois
d'octobre est "30" au lieu de "31" ???
----------------

"Flex" a écrit dans le message de news:

bonjour tout le monde
Dans mon soft de devis facture que j'esaie de faire je suis confronté à
un petit problème de calcul
en fait je m'en mele les pinceaux dans mon code. je m'explique:
dans ma form de facturation j'ai une frame dans laquelle j'ai:
1 textbox: txtNbJours
1 textbox: txtPaiementLe
1 combobox: cboPaiement
1 DTPicker: DTPicker1

dans ma combo j'ai 3item:
Immédiat/Fin de mois/Fin de décade
et DTPicker 1 est a la date d'aujourd'hui 26/11/04
les 2textbox son vides et sont controlés par un UpDown (de 1à31 pour
txtPaiementLe et de 1à365 pour txtNbJours)
j'appelle cet etat l'état initial

ce que je veux faire c'est:
à partir de etat initial:
1)si l'utilisateur met cboPaiement égal à "fin de mois" ou "fin de
decade" alors
dtpicker passe à 30/11/04

2)sil'utilisateur met cboPaiement égal à "Immédiat"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

3)sil'utilisateur met cboPaiement égal à "Fin de mois"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

mais txtPaiementLe égal à 30 ou 31 met le dtpicker1 à 30/11/04
si on ajoute alors txtNbJours égal à 1,..,4,5,......,35,36 alors
dtpicker passe à30/11/04,....,30/11/04,
30/01/05,...........30/01/05,28/02/05
ainsi de suite

4)sil'utilisateur met cboPaiement égal à "Fin de décade"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à10/12/04 ou 10/12/04 ou....ou20/12/04

dans ce dernier cas si
si on ajoute alors txtNbJours égal à 1,..,22,23,......,53,54alors
dtpicker passe à
20/12/04,....,20/12/04,20/01/05,...........20/01/05,20/02/05 ainsi de
suite

je n'arrive pas à m'en sortir donc si quelqu'un veut m'aider, je suis
preneur.
Merci
j'espère que j'aurai resussi à expliquer mon problème












Avatar
Flex
Merci
jca je sais faire. J'ai pas tres bien compris comment sa pouvait m'aider
avec maon dtpicker1.
Merci quand même. je continue à chercher.

"LE TROLL" <le a écrit dans le message de news:

re-salut, tiens, par exemple:
Dim i As Long
'
Sub Form_Load()
i = 1
Text2 = i
End Sub
'
Sub Text1_Change()
i = i + 1 ' a faire sin change
Text2 = i ' affiche cha,gement texte 2
End Sub

Et bien, quand on change dans text1, ça change réellement dans text2
(i)...
------------

Cependant, si c'est pour un choix, il faut utiliser une ListBox ou 1
ComboBox, le mieux étant de valider par un bouton d'ailleurs (y compris
ton textBox (son problème est qu'on peut saisir n'importe quoi, à moins de
tout piéger)...
-+-*-*-*-*-


"Flex" a écrit dans le message de news:

En fait c'est plus un problème de programmation.
Ce que je n'arrive pas à faire, c'est quand je programme l'évènement
change d'un textbox (txtPaiementLe par ex) comment faire pour que
dtpicker change en conséquence, avec toutes mes contraintes.


"LE TROLL" <le a écrit dans le message de news:

Salut,

Je ne sais pas si j'ai tout compris (je suis un Troll), est-ce que
c'est un problème de date, à savoir que par exemple ta fin de mois
d'octobre est "30" au lieu de "31" ???
----------------

"Flex" a écrit dans le message de news:

bonjour tout le monde
Dans mon soft de devis facture que j'esaie de faire je suis confronté à
un petit problème de calcul
en fait je m'en mele les pinceaux dans mon code. je m'explique:
dans ma form de facturation j'ai une frame dans laquelle j'ai:
1 textbox: txtNbJours
1 textbox: txtPaiementLe
1 combobox: cboPaiement
1 DTPicker: DTPicker1

dans ma combo j'ai 3item:
Immédiat/Fin de mois/Fin de décade
et DTPicker 1 est a la date d'aujourd'hui 26/11/04
les 2textbox son vides et sont controlés par un UpDown (de 1à31 pour
txtPaiementLe et de 1à365 pour txtNbJours)
j'appelle cet etat l'état initial

ce que je veux faire c'est:
à partir de etat initial:
1)si l'utilisateur met cboPaiement égal à "fin de mois" ou "fin de
decade" alors
dtpicker passe à 30/11/04

2)sil'utilisateur met cboPaiement égal à "Immédiat"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

3)sil'utilisateur met cboPaiement égal à "Fin de mois"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

mais txtPaiementLe égal à 30 ou 31 met le dtpicker1 à 30/11/04
si on ajoute alors txtNbJours égal à 1,..,4,5,......,35,36 alors
dtpicker passe à30/11/04,....,30/11/04,
30/01/05,...........30/01/05,28/02/05
ainsi de suite

4)sil'utilisateur met cboPaiement égal à "Fin de décade"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à10/12/04 ou 10/12/04 ou....ou20/12/04

dans ce dernier cas si
si on ajoute alors txtNbJours égal à 1,..,22,23,......,53,54alors
dtpicker passe à
20/12/04,....,20/12/04,20/01/05,...........20/01/05,20/02/05 ainsi de
suite

je n'arrive pas à m'en sortir donc si quelqu'un veut m'aider, je suis
preneur.
Merci
j'espère que j'aurai resussi à expliquer mon problème
















Avatar
Daniel AUBRY
Salut,
le controle DPTicker à une propriété .Value qui est la date.
Il suffit si tu saisi dans un TextBox : 12 de dire
DPTicker.value=DPTicker.value + cint(MaTextBox.text)

DPTicker se mettra à jour tout seul.
Personnellement je préfère mettre le changement des autres controles
sur l'événement KeyPress du TextBox plutôt que sur Change.
Question d'habitude.

Dany
"Flex" a écrit dans le message de news:
%
Merci
jca je sais faire. J'ai pas tres bien compris comment sa pouvait m'aider
avec maon dtpicker1.
Merci quand même. je continue à chercher.

"LE TROLL" <le a écrit dans le message de news:

re-salut, tiens, par exemple:
Dim i As Long
'
Sub Form_Load()
i = 1
Text2 = i
End Sub
'
Sub Text1_Change()
i = i + 1 ' a faire sin change
Text2 = i ' affiche cha,gement texte 2
End Sub

Et bien, quand on change dans text1, ça change réellement dans text2
(i)...
------------

Cependant, si c'est pour un choix, il faut utiliser une ListBox ou 1
ComboBox, le mieux étant de valider par un bouton d'ailleurs (y compris
ton textBox (son problème est qu'on peut saisir n'importe quoi, à moins
de tout piéger)...
-+-*-*-*-*-


"Flex" a écrit dans le message de news:

En fait c'est plus un problème de programmation.
Ce que je n'arrive pas à faire, c'est quand je programme l'évènement
change d'un textbox (txtPaiementLe par ex) comment faire pour que
dtpicker change en conséquence, avec toutes mes contraintes.


"LE TROLL" <le a écrit dans le message de news:

Salut,

Je ne sais pas si j'ai tout compris (je suis un Troll), est-ce que
c'est un problème de date, à savoir que par exemple ta fin de mois
d'octobre est "30" au lieu de "31" ???
----------------

"Flex" a écrit dans le message de news:

bonjour tout le monde
Dans mon soft de devis facture que j'esaie de faire je suis confronté
à un petit problème de calcul
en fait je m'en mele les pinceaux dans mon code. je m'explique:
dans ma form de facturation j'ai une frame dans laquelle j'ai:
1 textbox: txtNbJours
1 textbox: txtPaiementLe
1 combobox: cboPaiement
1 DTPicker: DTPicker1

dans ma combo j'ai 3item:
Immédiat/Fin de mois/Fin de décade
et DTPicker 1 est a la date d'aujourd'hui 26/11/04
les 2textbox son vides et sont controlés par un UpDown (de 1à31 pour
txtPaiementLe et de 1à365 pour txtNbJours)
j'appelle cet etat l'état initial

ce que je veux faire c'est:
à partir de etat initial:
1)si l'utilisateur met cboPaiement égal à "fin de mois" ou "fin de
decade" alors
dtpicker passe à 30/11/04

2)sil'utilisateur met cboPaiement égal à "Immédiat"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

3)sil'utilisateur met cboPaiement égal à "Fin de mois"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à01/12/04 ou 02/12/04 ou....ou 18/12/04

mais txtPaiementLe égal à 30 ou 31 met le dtpicker1 à 30/11/04
si on ajoute alors txtNbJours égal à 1,..,4,5,......,35,36 alors
dtpicker passe à30/11/04,....,30/11/04,
30/01/05,...........30/01/05,28/02/05
ainsi de suite

4)sil'utilisateur met cboPaiement égal à "Fin de décade"
et txtPaiementLe égal à 1 ou 2 ou...ou 18 alors
dtpicker passe à10/12/04 ou 10/12/04 ou....ou20/12/04

dans ce dernier cas si
si on ajoute alors txtNbJours égal à 1,..,22,23,......,53,54alors
dtpicker passe à
20/12/04,....,20/12/04,20/01/05,...........20/01/05,20/02/05 ainsi de
suite

je n'arrive pas à m'en sortir donc si quelqu'un veut m'aider, je suis
preneur.
Merci
j'espère que j'aurai resussi à expliquer mon problème