Convertion en date

Version imprimable

Convertion en date

Bonjour

J'aimerai convertir 20110811 en une date valide => 11/08/2011

j'ai fais ce code qui marche mais que je ne trouve pas très beau, et qui doit surtout être très lent. De plus il est dans une grosse boucle.
Avez vous une meilleure façon de faire?
Code:

1 2 3 4 Dim StrBonneDate As String = "/" & Strings.Left("20110824", 4) StrBonneDate = "/" & Strings.Mid("20110824", 5, 2) & StrBonneDate StrBonneDate = Strings.Right("20110824", 2) & StrBonneDate Dim BonneDate As Date = Date.Parse(StrBonneDate)
Merci

27/08/2011, 19h21
tomlev

Je ne pense pas que ce soit très lent, mais effectivement ce n'est pas optimal, et surtout ce n'est pas la façon la plus simple...

DateTime.Parse ne gère qu'un seul format de date, mais il y a aussi DateTime.ParseExact, où tu peux préciser le format de la date :

Code:

Dim BonneDate As Date = Date.ParseExact("20110824", "yyyyMMdd", Nothing)

yyyy = la date sur 4 chiffres
MM = le mois sur 2 chiffres
dd = le jour sur 2 chiffres

Voir ici pour plus de détails :
http://msdn.microsoft.com/fr-fr/library/8kb3ddd4.aspx
27/08/2011, 20h16
wikiele

salut

essaye ceci

Code:

Cdate(jour & "/" & mois & "/" & annee)

avec jour,mois,annee sont des Integer.

mais je ne comprends pas bien ce que vous voulez faire?
28/08/2011, 00h28
gilles_906

Merci de vos réponses à tous les deux

tomlev
C'est exactement ce que je cherchais, j'ai tourné un moment autour de cette instruction sans réussir

wikiele
CDate ne me convient pas car vu la mise en forme de depart que j'ai il ne l'accepte pas, et on revient a peu de choses prés a ce que j'ai fais.

mon but est d'envoyer cette date dans un champ de table access, elle doit donc être formaté correctement.
28/08/2011, 15h06
gilles_906

finalement j'ai toujours un soucis. :?

le jour et le mois sont a l'envers.

Code:

Dim BonneDate As Date = Date.ParseExact("20110811", "yyyyMMdd", CultureInfo.InstalledUICulture)

me renvoie comme date 08 11 2011 au lieu de 11 08 2011 pourtant la culture de mon ordi est bien sous forme dd MM yyyy

Auriez vous une idée du problème?
Merci

edit: J'ai rajouté ca pour que cela fonctionne mais je pense qu'il doit il y avoir mieux, je trouve que cela fait un peu bricole !!!

Code:

Dim StrBonneDate As String = BonneDate.ToString("dd/MM/yyyy")
28/08/2011, 18h19
tomlev

Citation:

Envoyé par gilles_906

Code:

Dim BonneDate As Date = Date.ParseExact("20110811", "yyyyMMdd", CultureInfo.InstalledUICulture)

me renvoie comme date 08 11 2011 au lieu de 11 08 2011 pourtant la culture de mon ordi est bien sous forme dd MM yyyy

Euh... pas chez moi ! Tu es sûr que tes options régionales sont correctes ?
Par contre d'habitude on utilise pas InstalledUICulture, mais CurrentCulture (ou Nothing, ça revient au même)

Mais de toutes façons, c'est juste la représentation sous forme de chaine qui est fausse, la date elle-même est forcément correcte avec ce code. Tu peux vérifier les propriétés Day/Month/Year si tu as un doute.

Et si tu veux utiliser cette date pour l'insérer dans une base de données, tu ne devrais pas passer par une chaine, mais par des requêtes paramétrées. Ca évitera ce genre de problème de format. Regarde cet article pour plus de détails (c'est du C#, mais le principe est le même en VB)
http://johannblais.developpez.com/tu...s-donnees/#LIV

merci de ta reponse

ben chez moi si :cry: (windows seven 64bits) et j'ai vérifié mes parametres regionaux.

Effectivement ma date passe dans une requete, de plus si je veux qu'elle soit correctement interprétée il faut qu'elle soit au format anglais, donc finalement c'est plutot pas mal ;)

Le pire c'est qu'en envoyant la date sous forme de date (format anglais) j'ai a l'arrivée dans la base access des dates a l'endroit et d'autre a l'envers, sans vraiment de logique.

Du coup je transforme en string ma date (format anglais) puis je l'a met dans ma requete entouré de # et plus de problemes.

Voila ce que donne ma requete j'avais simplifié pour poser ma question sur le forum mais elle est parametrée
Code:

1 2 3 4 5 6 'je transforme en date format anglais BonneDate = Date.ParseExact(DataTableOperation.Rows(i).Item(3), "yyyyMMdd", Nothing) StrBonneDate = BonneDate.ToString("MM/dd/yyyy") 'transforme en string requete = DataTableOperation.Rows(i).Item(1) & ", """ & DataTableOperation.Rows(i).Item(2) & """, " & "#" & StrBonneDate & "#" & ", " & DataTableOperation.Rows(i).Item(4) & ", " & DataTableOperation.Rows(i).Item(5) & ", " & Chr(34) & DataTableOperation.Rows(i).Item(6) & Chr(34) & ", " & Chr(34) & DataTableOperation.Rows(i).Item(7) & Chr(34) MyCommand.CommandText = "insert into " & TableAMettreAJour & ChampsDestination & " Values (" & requete & ")"

28/08/2011, 19h33
tomlev

Tu devrais vraiment utiliser des requêtes paramétrées comme je t'ai dit... si tu faisais ça, la question du format de la date ne se poserait même pas
28/08/2011, 20h04
gilles_906

elle est paramétrée ma requête puisque j'envoie StrBonneDate, pas la date et que StrBonneDate est entouré de #

non?
28/08/2011, 21h18
meziantou

Citation:

Envoyé par gilles_906

elle est paramétrée ma requête puisque j'envoie StrBonneDate, pas la date et que StrBonneDate est entouré de #

non?

ben non.

Regarde le lien de tomlev
http://johannblais.developpez.com/tu...s-donnees/#LIV
29/08/2011, 01h29
tomlev

Citation:

Envoyé par gilles_906

elle est paramétrée ma requête puisque j'envoie StrBonneDate, pas la date et que StrBonneDate est entouré de #

non?

Une requête paramétrée, ça veut dire que tu mets pas directement la valeur dans le texte de la requête, mais qu'à la place tu mets un paramètre (une sorte de variable si tu veux) dont tu précises la valeur séparément.

Lis le tuto que je t'ai indiqué, c'est pas très compliqué

Merci de ton aide j'ai réussi :D

Mais pas sans mal car ton tuto etait pour sql serveur et pas une base mdb

voila ce que j'ai fais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim cmdText As String = "INSERT INTO TOperationBanques(NumeroCompte, TRNTYPE, DTPOSTED, TRNAMT, FITID, NomOperation, StrMEMO) VALUES (?,?,?,?,?,?,?)"
        Dim Cmd As OleDbCommand = New OleDbCommand(cmdText, MyConnexion)
        Dim BonneDate As Date
 
 
        Try
            MyConnexion.Open()
 
            Cmd.CommandType = CommandType.Text ' The default is CommandType.Text
 
            With Cmd.Parameters
                .Add("@p1", OleDbType.Double).Value = 0
                .Add("@p2", OleDbType.VarChar).Value = ""
                .Add("@p3", OleDbType.Date).Value = 1 / 1 / 1900
                .Add("@p4", OleDbType.Double).Value = 0
                .Add("@p5", OleDbType.VarChar).Value = ""
                .Add("@p6", OleDbType.VarChar).Value = ""
                .Add("@p7", OleDbType.VarChar).Value = ""
            End With
 
            'boucle qui passe en revue la datatable et ajoute la ligne a la base de données .mdb
            For i = 0 To DataTableOperation.Rows.Count - 1
                'je transforme en date format anglais 
                BonneDate = Date.ParseExact(DataTableOperation.Rows(i).Item(3), "yyyyMMdd", Nothing)
 
 
                Cmd.Parameters("@p1").Value = DataTableOperation.Rows(i).Item(1)
                Cmd.Parameters("@p2").Value = DataTableOperation.Rows(i).Item(2)
                Cmd.Parameters("@p3").Value = BonneDate
                Cmd.Parameters("@p4").Value = Replace(DataTableOperation.Rows(i).Item(4), ".", ",")
                Cmd.Parameters("@p5").Value = DataTableOperation.Rows(i).Item(5)
                Cmd.Parameters("@p6").Value = DataTableOperation.Rows(i).Item(6)
                Cmd.Parameters("@p7").Value = DataTableOperation.Rows(i).Item(7)
 
                Cmd.ExecuteNonQuery()
Next

Il me reste maintenant a gerer les doublons car je viens de me rendre compte que mon systeme bancale de gestion des exceptions arretait la procedure a la premiere exception :(