Dim Date1 As Date Dim NewDate As Date Date1 = Now ' Date du trimestre en cours NewDate = CDate("01/" & _ CStr((3 * (Format(Date1, "q") - 1)) + 1) & _ "/" & Year(Date1)) ' Date prochain trimestre NewDate = DateAdd("q", 1, NewDate) ' jour précédent NewDate = DateAdd("d", -1, NewDate) MsgBox NewDate
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question