optionbutton determiner une date a partir calendar

ktran · 17 Octobre 2009

Bonjour a tous,

l idee est que quand je click sur l optionbutton 30 days, VBA me donne la date voulue est l exporte dans la textbox "Maturity Date.

ex. click 30 days, a partir calendar1, nous sommes le 17/10/09 + 30 jours =
16/11/2009 et si ca tombe un samedi ou dimanche, alors decaler au vendredi

une idee de ce qui coince ?

mon code :

Private Sub OptionButton1_Click()
Dim LDate As Date
LDate = DateAdd("d", 30, "Calendar1.Value")
TxtMaturity_Date.Value = LDate
End Sub

Pierrot93 · 17 Octobre 2009

Re : optionbutton determiner une date a partir calendar

Bonjour ktran

essaye peut être le code ci-dessous :

Code:

Dim d As Date
d = DateAdd("d", 30, Calendar1.Value)
TextBox1.Value = Format(IIf(Weekday(d, vbMonday) > 5, IIf(Weekday(d, vbMonday) = 6, DateAdd("d", -1, d), _
    DateAdd("d", -2, d)), d), "dddd d mmm yyyy")

bonne journée
@+

ktran · 17 Octobre 2009

Re : optionbutton determiner une date a partir calendar

Pierrot93 à dit:
Bonjour ktran

essaye peut être le code ci-dessous :

Code:

Dim d As Date d = DateAdd("d", 30, Calendar1.Value) TextBox1.Value = Format(IIf(Weekday(d, vbMonday) > 5, IIf(Weekday(d, vbMonday) = 6, DateAdd("d", -1, d), _ DateAdd("d", -2, d)), d), "dddd d mmm yyyy")

bonne journée
@+

merci Pierrot93 pour le code.

optionbutton determiner une date a partir calendar

ktran

Guest

Pièces jointes

Pierrot93

XLDnaute Barbatruc

ktran

Guest

Discussions similaires

optionbutton determiner une date a partir calendar

ktran

Guest

Pièces jointes

Pierrot93

XLDnaute Barbatruc

ktran

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency