Bonjour,
je viens de créer une fonction en VBA Excel qui prends comme argument une date de base et retourne la première quinzaine du mois de la date en argument.
Exemple :
Date de base = 21/03/2011
Quinzaine retournée = Du 01/03/2011 au 15/03/2011
Mon problème c’est que je veux que la quinzaine retournée soit de la forme :
Du 01/03/11 au 15/03/11
Merci d'avance pour vos réponses et suggestions.
Function quinzaine(BaseDate As Date) As String
Dim debut As Date
Dim fin As Date
debut = DateSerial(Year(BaseDate), Month(BaseDate), 1)
debut = Format(debut, "dd/mm/yy")
fin = DateSerial(Year(debut), Month(debut), 15)
fin = Format(fin, "dd/mm/yy")
quinzaine = "Du " & debut & " au " & fin
End Function
je viens de créer une fonction en VBA Excel qui prends comme argument une date de base et retourne la première quinzaine du mois de la date en argument.
Exemple :
Date de base = 21/03/2011
Quinzaine retournée = Du 01/03/2011 au 15/03/2011
Mon problème c’est que je veux que la quinzaine retournée soit de la forme :
Du 01/03/11 au 15/03/11
Merci d'avance pour vos réponses et suggestions.
Function quinzaine(BaseDate As Date) As String
Dim debut As Date
Dim fin As Date
debut = DateSerial(Year(BaseDate), Month(BaseDate), 1)
debut = Format(debut, "dd/mm/yy")
fin = DateSerial(Year(debut), Month(debut), 15)
fin = Format(fin, "dd/mm/yy")
quinzaine = "Du " & debut & " au " & fin
End Function