Discussion :

[dwlapp]

Bonjour,

J'ai actuellement un problème embêtant voila mon bout de code :

Code :

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

1
2
3
4
 
Dim DateBatterie As Date = def._DateAchatBatterie      'def._DateAchatBatterie est un string ("20/09/2010")'
Dim DateDuJour As Date = Now.Date
Dim MoisRestant As Integer = DateDiff("m", DateBatterie, DateDuJour)

En local je n'ai aucun problème tout se passe correctement, puis en le mettant en ligne petite surprise :
Conversion from string "20/09/2010" to type 'Date' is not valid.

Je ne comprends pas pourquoi cela fonctionne en local et pas en ligne.
J'ai essayé de changer mon code avec du cdate ou du convert pour la convertir mais pas moyen.
En mode débogage en local il n'y a vraiment aucun problème.

Si une personne à une idée parce que la j'avoue...

Merci.

Cordialement

[katkiller]

Salut,

Alors c'est certainement une histoire de langue de ton serveur.

Pour parser une date regarde ici :

• Datetime.Parse
• Datetime.TryParse

Il y a vraiment plein de possibilité différente pour parser ta date.

• Changer la langue pour le parse
• Donner un format à la date

N'hésite pas si tu as des questions

[jopopmk]

Salut,

comme katkiller ... sauf que j'aurais parlé de "culture" plutôt que "langue"
et t'aurais envoyé vers DateTime.ParseExact qui permet de fournir un format en string.

Mais sinon tout pareil

[katkiller]

comme katkiller ... sauf que j'aurais parlé de "culture" plutôt que "langue"

Je préfère aussi le terme "culture"

[dwlapp]

Bonjour,

Tout d'abord merci de votre aide.

Alors j'ai testé vos trois solutions et toujours un soucis équivalent
Dernier test :

Code :

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

1
2
3
4
Dim provider As CultureInfo = CultureInfo.InvariantCulture
                Dim DateBatterie As Date = Date.ParseExact(def._DateAchatBatterie, "dd/mm/yyyy", provider)
                Dim DateDuJour As Date = Date.ParseExact(Now.Date, "dd/mm/yyyy", provider)
                Dim MoisRestant As Integer = DateDiff("m", DateBatterie, DateDuJour)

Erreur : String was not recognized as a valid DateTime.

Pour les deux autres tests proposés par katkiller même erreur que le début de la conversation.

Aie aie aie...

[dwlapp]

Bon vue que je ne suis pas patient pour le moment j'ai fait ceci (merci de ne pas rire )

Code :

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

1
2
3
4
5
6
7
8
9
10
      Dim jour As Integer = Left(def._DateAchatBatterie, 2)
                Dim ChaineMois As String = Left(def._DateAchatBatterie, 5)
                Dim mois As Integer = Right(ChaineMois, 2)
                Dim annee As Integer = Right(def._DateAchatBatterie, 4)
                Dim DateBatterie As Date = New Date
                DateBatterie = DateBatterie.AddDays(jour - 1)
                DateBatterie = DateBatterie.AddMonths(mois - 1)
                DateBatterie = DateBatterie.AddYears(annee - 1)
                Dim DateDuJour As Date = Now.Date
                Dim MoisRestant As Integer = DateDiff("m", DateBatterie, DateDuJour)

Je sais c'est du bricolage mais ça fonctionne.

[katkiller]

C'est le format de ta date qui n'est pas bon :

"mm" veut dire : "Minute, définie entre 00 et 59"

il faut utiliser "MM" pour les mois.

voir lien

[jopopmk]

Re,

attention dans ta chaîne de format tu utilises de 'm' (minuscule) qui correspondent à des minutes,
il faut utiliser des 'M' (majuscule) qui correspondent à des mois, exemple :

Code :

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

Dim someDate As Date = Date.ParseExact("31/12/2016", "dd/MM/yyyy", System.Globalization.CultureInfo.InvariantCulture)

Retente et tiens nous au jus

edit : katkiller a été plus rapide ^^

[dwlapp]

Oui je vais tenter de nouveau avec MM (idiot que je suis..)

[dwlapp]

Voila j'ai réussi grâce à vous.
Un grand merci.

Code exact :

Code :

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

1
2
3
Dim DateBatterie As Date = Date.ParseExact(def._DateAchatBatterie, "dd/MM/yyyy", System.Globalization.CultureInfo.InvariantCulture)
                Dim DateDuJour As Date = Now.Date
                Dim MoisRestant As Integer = DateDiff("m", DateBatterie, DateDuJour)