Enlever 1 jour à une date en Textbox

néné06 · 27 Février 2010

Bonsoir le Forum

J'ai cette formule qui me donne en tb60 la date de tb50+ la valeur de Combobox8.

TB60.Text = Format(TB50.Text, "dd/mm/") & (Format(TB50.Text, "yyyy") + (ComboBox8.ListIndex + 1))

Mais je recherche la façon d'enlever 1 jour à tb60 afin de formater des années de jour à jour.

exemple:
01/02/2010 au 31/01/2011

Avec tous mes remerciements

Néné06

soenda · 27 Février 2010

Re : Enlever 1 jour à une date en Textbox

Bonsoir le fil, néné06

A adapter

Code:

If IsDate(TextBox1) Then TextBox1 = CStr(CDate(Format(TextBox1, "dd/mm")) - 1)

A plus

néné06 · 27 Février 2010

Re : Enlever 1 jour à une date en Textbox

Bonsoir Soenda

J'ai adapté le code comme ceci

If IsDate(TB50) Then TB60.Text = CStr(CDate(Format(TB50.Text, "dd/mm")) - 1)
TB60.Text = Format(TB60.Text, "dd/mm/") & (Format(TB60.Text, "yyyy") + (ComboBox8.ListIndex + 1))

cela est OK

Merci et bonne soirée

Néné06

Enlever 1 jour à une date en Textbox

néné06

XLDnaute Accro

soenda

XLDnaute Accro

néné06

XLDnaute Accro

Discussions similaires

Enlever 1 jour à une date en Textbox

néné06

XLDnaute Accro

soenda

XLDnaute Accro

néné06

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency