Coder une date

[Laurent]

Bonjour à tout le forum,

Voici mon problème, je voudrais pouvoir mettre dans une textbox un code composé d'éléments de dates.
Par exemple pour aujourd'hui, nous sommes le 16/06/2004, c'est le 168ème jour de l'année.
Mon code du jour est 4168 (4 pour l'année et 168 pour le numéro du jour).

Est-il possible de générer automatiquement ce code en VBA pour l'insérer dans un formulaire?

Merci d'avance et bonne journée à tous

Laurent

 

[Lord Nelson]

Salut Laurent,

Voici une solution possible :

TextBox1.Text = CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)) + 1)

A+
Horatio

 

[Ti]

Voilà une fonction qui fait ça :

la valeur renvoyée est au format texte, il serait simple de la mettre au format numérique en convertissant cette valeur avec la fonction Val

Function DateCodee$(DateRef As Date)
'Ti
DateCodee = Year(DateRef) Mod 1000 & _
DateDiff("d", DateSerial(Year(DateRef), 1, 1), DateRef) + 1
End Function

Sub Test()
Dim D As Date
D = Now
MsgBox DateCodee(D)
End Sub

 

[Laurent]

Rebonjour au forum,

Merci à vous Horatio et Ti, vos solutions fonctionnent parfaitement, merci beaucoup. j'ai choisi la solution la plus courte mais les deux sont utilisables.

Encore merci d'avoir répondu aussi vite

@++

Laurent