Enlever 1 jour à une date en Textbox

[néné06]

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]

Re : Enlever 1 jour à une date en Textbox

Bonsoir le fil, néné06

A adapter

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

A plus

 

[néné06]

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