Convertion date

[BRUNO62]

Bonjour,

Je souhaite convertir une date dans la textbox7 en trimestre ds la textbox 8
TextBox7.Value = Now()
TextBox7.Value = Format(TextBox7, "dd/mm/yyyy")

TextBox8.Value = Format(TextBox7, "mm") * 1 / 3
TextBox8.Value = Format(TextBox8, "0")
Le résultat n'est pas toujours précis
Avez vous une idée
Merci
A+

 

[phlaurent55]

Re : Convertion date

Bonjour Bruno,

remplace toutes les lignes de code

TextBox7.Value = Now()
TextBox7.Value = Format(TextBox7, "dd/mm/yyyy")

TextBox8.Value = Format(TextBox7, "mm") * 1 / 3
TextBox8.Value = Format(TextBox8, "0")

par ceci:

TextBox8.Value = Int((Format(Now, "mm") - 1) / 3) + 1

à+
Philippe

 

[BRUNO62]

Bonsoir phlaurent55,

C'est tellement plus simple.
Grand Merci.
A+

 

[mapomme]

Re : Convertion date

Bonjour Bruno62, phlaurent55

Encore plus court ( 'q' comme 'quarter'):

TextBox8 = Format(Now(), "q")

ou

TextBox8 = Format(CDate(TextBox7), "q")