Concaténation d'un entier et une date

Fermé
Signaler
Messages postés
19
Date d'inscription
mercredi 17 mars 2010
Statut
Membre
Dernière intervention
25 mars 2011
-
salut svp j'ai un probleme pour l'ajout d'un contrat .le probleme c que lorsque je veux ajouter le champ "contratid" je veux q'il soit sous cette forme:'1-2010' et ca incremente auomatiquement c'ad: 1 s'incremente et la date aussi .jé fais la concatenation mé c ma donnée ca:"0-2010" et reste bloqué la.voila le code que je l'écrit:
Dim x As Integer
'For x = 1 To Me.ContratidTextBox.Text
Dim d As Date
Dim y As VariantType
'x = Me.ContratidTextBox.Text
d = Date.Now
y = DatePart("yyyy", Date.Now)
ContratidTextBox.Text = (x & "-" & y).ToString
' Next
svp c tré urgent.merciiiiiiiiiiiiii d'avance