erreur d'execution 13

Question

Quand je suis dans ma classe "Clsreservations" il s'arrête à 
vddp = vnewvalue et me mets erreur 13 "Type incompatible"
Je vois que vnewvalue à bien la nouvelle valeur que j'ai encodé mais vdrp est de format 0:00:00
Pourtant j'ai déclaré vdrp comme date et non comme timer!

Option Explicit
Dim vidreserv As Integer
Dim vdrp As Date
Dim vdestination As String
Dim vddp As Date
Dim vhdp As Timer
Dim vhrp As Timer
Dim vidins As Integer
Dim vidmemb As Integer
Dim vidaeronef As String
Dim vidtp As Integer

Public Property Get idreservation() As Variant
idrservation = vidreserv
End Property

Public Property Let idreservation(ByVal vNewValue As Variant)
vidreserv = vNewValue
End Property

Public Property Get dateretourp() As Variant
dateretourp = vdrp
End Property

Public Property Let dateretourp(ByVal vNewValue As Variant)
vdrp = vNewValue
End Property

cs_lea75 · Answer

Bonsoir,
Je cherche ou j'aurais pu mettre un format heure mais je ne trouve pas.
Peut-être que je me plante compètement,mon erreur n'est pas là!
Est ce que je dois mettre un format date?
Merci

cs_liquide · Answer

peut etre il y a une erreur sur le vNewValue as variant
passe le "as date"
puisque tu as Dim vdrp As Date
et tu l'assignes a "vdrp = vNewValue"

Bonne prog, poele_a_frire@hotmail.com
liquide

cs_lea75 · Answer

J'ai trouvé j'avais oublié de mettre des "/" entre mes jours, mois,années.

Erreur d'execution 13

3 réponses

Discussions similaires