aieaieaie JE DEVIENS FOUS J VOUS ASSURE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

debutant néophite

> debutant néophite
> 
> Bon désolé de vous déranger messsieurs mesdames mais là j ai un trés gros pb sur lequel repose tout le reste de mon activité!....
> 
> En fait j aimerai qu'en fonction de l'entier que je saisie je puisse récupérer la date correspondante
> 
> 
> un ptit exemple:
> 
> si je tape 3 cela me renvoie 3 janvier 2003
> 
> autant l'inverse est facile a faire grace à la méthode dayofyear de l'objet datetime autant la je bloque
> 
> 
> Merci à ceux qui prendront un ptit peu de mleur temps pour m'aider

cs_dav72 · Answer

salut,
dans un nouveau projet dessine deux texboxs:
Text1 = dans lequel tu saisi le chiffre
Text2 = dans lequel va apparaitre la date

il faut aussi créer un bouton Command1 et recopier les lignes suivantes :

Private Sub Command1_Click()
  Text2 = CDate("31/12/2002") + CInt(Text1)
End Sub

lorsque tu execute ce code , si tu tapes 35 dans Text1
après tu cliques sur Command1 tu obtiens la date 
du 04/02/03 dans Text2

Aieaieaie JE DEVIENS FOUS J VOUS ASSURE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

1 réponse

Discussions similaires