3392 connectés

FORUM HardWare.fr

Programmation

[VB] pb de date

Recherche :

Dernière réponse
Sujet : [VB] pb de date
VB HELP	c bon g trouvé ! :)

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

VB HELP

c bon g trouvé !

:)

VB HELP

Autre pb :

Quand je copie une date d'une cellule vers une autre lorsque le jours est inferieur a 12, il y a une inversion entre le jour et le mois.

Exemple :

20/01/2001 reste bien 20/01/2001
mais
10/01/2001 deviens 01/10/2001 ( inversion du jour et du mois )

WTF ?

PS : :kaola: hihi

VB HELP

CA marche !!!!!
:jap: :jap: :jap:

Merci bcp !!

EnJoY !

:hello:

VB HELP

ca a l'air de marcher !!!

j'ai fait comme ca en fait :

DateReunion = WSReunion.Cells(LigneReunion, 5).Value
DateReunion = CDate(DateReunion)

:jap: el scorcho :jap:

VB HELP

je vais tester CDate !

Loom the Gloom

El Scorcho a écrit a écrit :

Il faut utiliser "CDate" pour convertir une chaine en date :
DateReunion = CDate(WSReunion.Cells(1, 5).Value)

certes je n'y avais pas pensé !!

Loom the Gloom

ben si tu fais un format sur la date que tu récupères avec cells, ça ne marche pas ??

ou bien ptet que le paramètre de format doit obligatoirement etre une date ?

au pire (je dis bien au pire paske ça fouette comm méthode), tu crée une méthode qui te converti ta string contenant la date en une date ...

ms bon !!

El Scorcho

Il faut utiliser "CDate" pour convertir une chaine en date :
DateReunion = CDate(WSReunion.Cells(1, 5).Value)

VB HELP

comme ca ?! je vais essayer

DateReunion = Format(Date, WSReunion.Cells(1, 5).Value)

VB HELP

Loom the Gloom a écrit a écrit :

ben si tu utilises aussi format, ça ne marche pas ??

comment ca ??
:??:

Loom the Gloom

ben si tu utilises aussi format, ça ne marche pas ??

VB HELP

J'aimerai récuperer une date dans une cellule puis la comparer avec la date d'aujourd'hui. Il y a ca dans la cellule (1,5) : 20/12/2001.

Dim DateReunion, DateNow As Date

DateNow = Format(Date, "dd/mm/yyyy" )
DateReunion = WSReunion.Cells(1, 5).Value

If DateReunion < DateNow Then
MsgBox ("J'aime le sucre" )
End If

Mais le probleme est que la date que je recupere est converti en string : "20/12/2001" du coup le if par en sucette. :sweat:
QQ1 pourai me guider ?
:??:

HELP !
:jap:

PS : si ca peux aider voila les variables locales :
DateReunion : "20/12/2001" : Variant/String
DateNow : #10/06/2002# : Date