Discussion :

[zooffy]

Bonjour tout le monde.

Ai je le droit de poser un truc de débutant ?
Bon, on va dire que oui ! ! !

En fait, j'ai jamais fait ça et je trouve pas d'exemple.

Je monte une Sub avec un parametre qiu fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Optional ByVal OldEnd As Date =

et bien sûr il veut un truc aprés le = puisqu'il faut metre une valeur par défaut sur les Optional.

Sauf que si je mets :

"01/01/1900"

il me dit

Une conversion de 'String' en 'Date' ne peut pas avoir lieu dans une expression constante.

Ouaip, moi je veux bien, mais je lui mets quoi pour lui dire que la valeur par défaut c'est le 1° Janvier 1900 ?

Et donc là, je sèche, j'ai toujours des soucis avec les dates.

Merci pour votre aide.

[Philippe Vialatte]

ca fait un moment que j'ai plus fait de VB, mais peut-etre :

Optional ByVal OldEnd As Date = new DateTime(1900, 1, 1)

[zooffy]

Merci Philippe, ça faisait longtemps que je ne t'avais croisé, toujours un plaisir.

En fait, dans entretemps, j'avasi essayé ça et il me dit :

Une expression constante est requise.

Et il me dit ça sur tous les essais que je fait pour créer une date.

Et je suis coincé parce qu'il faut que je mette une date par défaut, sinon, le restant de la Procédure ne fonctionne pas.

C'est vrai que les dates c'est pourri !!!

Merci pour ton aide

[lutecefalco]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub Toto(Optional ByVal mydate As Date = #1/1/1900#)
    End Sub

Avec le format MM/dd/yyyy

[zooffy]

Merci LuteceFalco

Ben les # fallait y penser !

Merci, ça marche super bien.

Je suppose que, ensuite, si je veux modifier le format de date, je dois jouer avec la culture au sein de procédure ?

[lutecefalco]

Merci LuteceFalco

Ben les # fallait y penser !

Merci, ça marche super bien.

Je suppose que, ensuite, si je veux modifier le format de date, je dois jouer avec la culture au sein de procédure ?

Hmm, je pense que tu peux pas modifier le format à ce niveau là

[zooffy]

Merci, je me débrouillerais quand j'en serais à la version multilingue.

[Philippe Vialatte]

après, un plan B, c'est d'avoir une date nullable, comme ca, eventuellement, on te passe null, et tu testes si ta date à une valeur, si elle n'en a pas, tu crées ta date à ce moment la

[zooffy]

Merci pour le plan B.
Question subsidiaire : comment on fait une date nullable ?
hi hi hi , je suis vraiment pas doué. Je comprends bien ce que cela peut-être juste par le nom, mais je n'ai jamais vu un truc comme ça ou alors, je ne m'en suis pas rendu compte.

[Philippe Vialatte]

rhalala, ca me rappelle le travail

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim t as Nullable(Of DateTime)

Tu peux tester si c'est null, ou tu peux faire T.HasValue pour voir si c'est nul oupas

[zooffy]

Merci beaucoup