PB de dateRésolu

Question

Bonjour a tous,

voila, j'ai un pb au niveau d'une date et la je dois avouer que j'y comprends rien. Je veux afficher la date du 1er jour du mois en cours, pour ça j'utilise

Dim date as Date
date = CDate("01/" & Month(Date) & "/" & Year(Date))
MsgBox date

et la, vb me sors erreur13 : type imcompatible.

Le truc, c est que j'ai deja utiliser la fonction CDate dans un autre prog, avec la meme synthaxe et ça marchait nickel. Si quelqun a une explication...

merci d'avance,

++, Antoine.

cs_lermite222 · Accepted Answer

bonjour,
tu peut éventuellement essayé cette formule
Dim MyDate
    MyDate = DateSerial(Year(Now), Month(Now), 1)
'le now peu être remplacé par le mois et l'année.
A+
louis

jrivet · Answer

Salut,
Marche nickel chez moi (sauf que j'ai du remplacer le nom de la variable car Date est un mot réservé et il ne le veut pas à la déclaration.

Dim MaDate As Date
MaDate = CDate("01/" & Month(Date) & "/" & Year(Date))
MsgBox MaDate, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

cs_antonio75 · Answer

meme en changeant la variable, tjs erreur13, j y comprends vraiment rien.

cs_Nicko11 · Answer

salut
a ta place j'eviterai ce genre de chose

dim date as date  (le meme nom)

de plus, cette donnée doit elle forcément etre de type date ?

Dim ma_date as string
date = "01/" & Month(Date) & "/" & Year(Date)
MsgBox date

cs_Nicko11 · Answer

Date est donc bien un mot reservé (voir l'aide normalement), donc inutilisable pour la déclaration.

jrivet · Answer

Salut,
Es tu bien sous VB6 ou alors sous VBA (Word, Excel, ACCESS)

@+: Ju£i?n
Pensez: Réponse acceptée

cs_antonio75 · Answer

j'avais essayé avec string mais meme resultat

cs_antonio75 · Answer

Je suis sous VB6

cs_Nicko11 · Answer

oui en plus je fais n'importe quoi (un peu fatigué)

Dim ma_date as string
ma_date = "01/" & Month(Date) & "/" & Year(Date)
MsgBox ma_date

cs_Nicko11 · Answer

Perso, j'ai fais ca, et ca marche nickel sous VBA 

Dim ma_date As String
ma_date = "01/" & Format(Month(Date), "00") & "/" & Year(Date)
MsgBox ma_date

la méthode format, c'est pour avoir le mois sur 2 caracteres

cs_Nicko11 · Answer

Je viens d'essayé cela aussi et c'est nickel

Dim ma_date As Date
ma_date = CDate("01/" & Format(Month(Date), "00") & "/" & Year(Date))
MsgBox ma_date

cs_MPi · Answer

Et avec ce que Nicko11 vient de mettre, tu pourrais y aller avec
MsgBox CDate(ma_date)

MPi

cs_antonio75 · Answer

non tjs pas, y a pas une référence à ajouter?

cs_MPi · Answer

Oups.... mal lu,
j'avais l'impression que ma_date était de type String... : (

MPi

cs_MPi · Answer

Si tu fais Msgbox(Date),
quel est le format de la date dans le message ?

MPi

cs_antonio75 · Answer

en fait le message s'affiche pas, j'ai erreur13. J'ai retrouvé mon ancien prog, et j'ai utilisé la meme synthaxe, les memes references et la ca marche.

cs_Nicko11 · Answer

Non MPI, tu ne t'es pas trompé, j'ai fais les 2 :

Dim ma_date As Date
ma_date = CDate("01/" & Format(Month(Date), "00") & "/" & Year(Date))
MsgBox ma_date

Dim ma_date As String
ma_date = "01/" & Format(Month(Date), "00") & "/" & Year(Date)
MsgBox ma_date

et les 2 fonctionnent

cs_Nicko11 · Answer

Pour les références, j'ai tout enlever et ca marche. Je pose la question (ca parait super bete mais bon) car je comprend pas d'ou cela vient :

1) Post ton code, on sait jamais

2) l'erreur pointe bien sur la ligne avec CDate.

cs_antonio75 · Answer

et pourquoi ca deconne chez moi ???!!!

cs_antonio75 · Answer

l'erreur pointe bien sur CDate et pour le code, j'ai tt eppuré et il reste plus que les 3 lignes que j ai posté au debut

PB de date

31 réponses

Votre réponse

Discussions similaires