a partir du 31/06/2013
Dim toto As Date, an As Integer, dateref As Date toto = CDate("30/05/2013") an = Year(toto) dateref = DateSerial(Year(toto), 6, 30) MsgBox IIf(toto > dateref, "année " & an & "-" & an + 1, "année " & an - 1 & "-" & an)
Dim coucou As Date, trimestre As Integer coucou = CDate("02/07/2013") trimestre = DatePart("q", coucou) an = Year(coucou) MsgBox IIf(trimestre > 2, "année " & an & "-" & an + 1, "année " & an - 1 & "-" & an)
XXxx = (Year(Date)) date1.Value = Date Dim Année As String If (date1.Value > 30 / 6 / XXxx) Then date2.Value = (Year(Date)) & "_" & (Year(Date)) + 1 Année = date2.Value ElseIf (date1.Value < 30 / 6 / XXxx) Then date2.Value = (Year(Date)) - 1 & "_" & (Year(Date)) Année = date2.Value End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question