Information générale
Catégorie:
Codage, syntaxe et commandes
Thanks Jason!
It's perfect!
Max
>For first day of last month:
>Text1.Text = DateSerial(DatePart("YYYY", Date), DatePart("m", Date) - 1, 1)
>For last day of last month:
>Text1.Text = DateSerial(DatePart("YYYY", Date), DatePart("m", Date), 0)
>For first day of next month:
>Text1.Text = DateSerial(DatePart("YYYY", Date), DatePart("m", Date) + 1, 1)
>For last day of next month:
>Text1.Text = DateSerial(DatePart("YYYY", Date), DatePart("m", Date) + 2, 0)
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement