Problème de formatage des dates et heure dans une mshflexgrid

Salut à tous,

Dans mon application j'ai lié un mshflexgrid à une base de données contenant des champs date et heure.

Le problème survient lorsque j'appelle les données de ma base dans le mshflexgrid: les données date et heure prennent un format autre que celui de la base.

Ex: pour 27/10/2007 dans la base j'obtient 2007/10/27
et pour l'heure je ne réussi pas à déchiffrer le contenu du mshflexgrid.

comment procéder pour avoir un format ordinaire: 15/04/2007 ou 15:45:22 ?

Citation:

---

Envoyé par Virtualité

Salut à tous,

Dans mon application j'ai lié un mshflexgrid à une base de données contenant des champs date et heure.

Le problème survient lorsque j'appelle les données de ma base dans le mshflexgrid: les données date et heure prennent un format autre que celui de la base.

Ex: pour 27/10/2007 dans la base j'obtient 2007/10/27
et pour l'heure je ne réussi pas à déchiffrer le contenu du mshflexgrid.

comment procéder pour avoir un format ordinaire: 15/04/2007 ou 15:45:22 ?

---

Bonjour,
J'ai excatement le même soucis, si quelqu'un a une solution...

Avec quoi, et comment est rempli le mshflexgrid?

Bonsoir,
C'est une question posée à a mainte et mainte reprise, il faut lire l'heure et/ou la date en string et la retranscrire avec format.
A+

Citation:

---

Envoyé par LeForestier

Bonsoir,
C'est une question posée à a mainte et mainte reprise, il faut lire l'heure et/ou la date en string et la retranscrire avec format.
A+

---

Bonjour a tous,
ok pour la commande format, mais qui induit le fait de remplir l'objet "a la main" avec la methode additem et non pas indiquer
Set MSHFlexgrid.datasource = Mon_Recordset
pour qu'il se remplisse de lui même
c'est bien cela?

au fait pour moi, c'est une bdd access 2000
Recordset ADO
Sinon je crois qu'il y a la clause SQL "CAST", mais pas supporté par Access a priori...

si d'autre solution je suis preneur :D
@+

Bonjour,
Pas testé, mais cà devrait fonctionné,
Après avoir incorporé ton recordset, en supposant que tes dates/heures sont dans une même colonne, la parcourrir et modifié comme dit plus haut.
A+
Edit:
Bon.. là j'ai testé et cà fonctionne bien

Code:

---

1 2 3 4 5 6 7

Private Sub Command1_Click() For i = 1 To 15 MSHFlexGrid1.TextMatrix(i, 1) = Format(MSHFlexGrid1.TextMatrix(i, 1), _ "dd/mm/yyyy") Next i   End Sub

---

Au fait je connecte VB à MS Access par la méthode ADO (j'utilise les requêtes).
Pour renseigner mon Mshflexgrid je fais:

Code:

---

Set MSHFlexgrid1.DataSource=Req

---

Et quelque soit le format de ma date et heure dans la base il me retourne autre chose.

Je vais essayer ta méthode pour voir.

Bonjour,
J'ai testé la solution proposée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

If cn.State = adStateClosed Then StringBDRAPiX = "C:\RAPiX\RAPiX.mdb" cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StringBDRAPiX & ";Mode=ReadWrite;Persist Security Info=False" End If With rs .ActiveConnection = cn .CursorLocation = adUseServer .CursorType = adOpenKeyset .LockType = adLockBatchOptimistic .Source = "SELECT TUN_Name, Identification, Date_Tunnel, Statut_CTX FROM Histo WHERE Direction = 'MajSIL' AND Date_Tunnel BETWEEN #" & DatDebut & "# AND #" & DatFin & "# ORDER BY Date_Tunnel" .Open End With Set MSHFlexGrid1.DataSource = rs With MSHFlexGrid1 .RowSel = 1 For i = 1 To .Rows .TextMatrix(i, 2) = Format(.TextMatrix(i, 2), "dd/mm/yyyy hh:nn:ss") Next i End With Exit Sub

---

la commande Format fonctionne bien pour l'heure (sinon j'obtiens 01:00:00 PM pour 13:00:00)
parcontre pour la date elle reste toujours au format mm/dd/yyyy.

Etant donné que je voulais utiliser mshflexgrid uniquement pour sa compatibilité avec ADO, je crois que je vais finallement utiliser un recordset DAO et un msflexgrid (d'ailleur le msflexgrid me donne une date au format souhaité ;) )

Merci d'avoir pris du temps pour notre probleme

@+

Faut pas se décourragés aussi vite :P
Je croyai que tu n'avais que la date...

Code:

---

1 2 3 4 5 6 7

Private Sub Command1_Click() Dim Tx As String Tx = MSHFlexGrid1.TextMatrix(1, 2) Tx = Format(Left(Tx, 10), "dd/mm/yyyy") & " " _ & Format(Mid(Tx, 12), "hh:mm:ss") MSHFlexGrid1.TextMatrix(1, 1) = Tx End Sub

---

J'ai mis une variable pour être plus clair mais tu peu tout faire sur une seule ligne.
A+

Merci pour l'astuce.
Voila comment je l'ai implémenté dans mon code:

Code:

---

1 2 3 4 5 6 7

Dim StringX As String For i = 1 To .Rows StringX = .TextMatrix(i, 2) StringX = Format(Left(StringX, 10), "dd/mm/yyyy") & " " & Format(Mid(StringX, 12), "hh:nn:ss") .TextMatrix(i, 2) = StringX Next i

---

Je pense avoir respecter tes indications.

Pour l'heure pas de probleme sa marche nickel
Mais voila, le résultat est un peut bizarre pour la partie date
ex:
Mes date sont le 11/11/2007, 12/11/2007, 13/11/2007 et le 14/11/2007 (format dd/mm/yyyy)
ce qui devient avec le formalisme anglais (mm/dd/yyyy)
11/11/2007, 11/12/2007, 11/13/2007 et 11/14/2007

Le soucis est que 11/11/2007 et 11/12/2007 sont des date possible dans le format dd/mm/yyyy, donc la commande Format ne change pas mon format de date.
Parcontre comme 11/13/2007 et 11/14/2007 n'est pas possible avec le format dd/mm/yyyy, alors la commande format fait bien son job et je retrouve le résultat escompté

sinon il me reste la solution de refabriquer ma date au format souhaité du genre:

Code:

---

1 2 3 4 5 6

For i = 1 To .Rows StringX = .TextMatrix(i, 2) StringX = Mid(StringX, 4, 2) & "/" & Left(StringX, 2) & "/" & Mid(StringX, 7, 4) & " " & Format(Mid(StringX, 12), "hh:nn:ss") .TextMatrix(i, 2) = StringX Next i

---

sa fonctionne, mais sa fait un peu bricolo...:?

@+

Bonsoir,

essaye d'utiliser les fonctions Day, Month et Year

Citation:

---

Envoyé par ucfoutu

Bonsoir,

essaye d'utiliser les fonctions Day, Month et Year

---

Bonsoir,
il me semble que les fonctions Day, Month et Year sont en lecture seule.
ex: j'utilise la date 10/11/2007 (format dd/mm/yyyy)
Dans mon MSHFlexgrid elle est affichée 11/10/2007 (donc mm/dd/yyyy)
MSHFlexGrid1.TextMatrix(i, 2) représente la cellule de MSHflexgrid qui contient ma date

Code:

---

1 2 3 4 5 6 7 8

Dim StrDay As String Dim StrMonth As String Dim StrYear As String   StrDay = Day(MSHFlexGrid1.TextMatrix(i, 2)) StrMonth = Month(MSHFlexGrid1.TextMatrix(i, 2)) StrYear = Year(MSHFlexGrid1.TextMatrix(i, 2))

---

Résultat
StrDay= 11
StrMonth = 10
StrYear = 2007

Même résultat que la fonction Format

Mais je ne suis pas sur que ce soit la ou tu voulais en venir....

@+

Citation:

---

il me semble que les fonctions Day, Month et Year sont en lecture seule.

---

euh...
une fonction n'est par définition ni en lecture ni en écriture. Une fonction retourne une valeur.

Dans ton affaire, et à condition (bien évidemment) que toutes les dates importées soient toujours au même format (autrement ce serait du poker javanais), il suffit d'inverser month et day, de dire par exemple que jour = Month(ladate) et que mois = Day(ladate) puis d'utiliser jour et mois, non ?

Oui, désolé pour la connerie, c'était simplement dans le sens ou Day, Month, Year me retroune une valeur.

J'ai essayé par acquis de conscience t'as proposition.
Mais comme je le pensais j'ai le même résultat que ce que donne la fonction format
ex:
Prenons les dates 12/11/2007 et 13/11/2007 (dd/mm/yyyy).
Cela devient 11/12/2007 et 11/13/2007 (mm/dd/yyyy) dans mon MSHFlexGrid

si par exemple je fais quelques chose du genre:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() With MSHFlexGrid1 For i = 1 To .Rows .TextMatrix(i, 2) = Day(.TextMatrix(i, 2)) & "/" & Month(.TextMatrix(i, 2)) & "/" & Year(.TextMatrix(i, 2)) Next i End With Exit Sub

---

Résultat:
dans la cellule contenant "11/12/2007" le résultat reste "11/12/2007" car c'est un date plausible au format "dd/mm/yyy"
par contre dans la cellule contenant "11/13/2007 le résultat deveint "13/11/2007" (étant donné que le mois n°13 n'existe pas, la il est bien obligé de faire quelque chose)
J'ai surtout l'impression que le controle MSHFlexGrid est un controle qui a mal été porté vers la version francaise de vb. :?

Dons la seule solution que je connaisse à l'heure actuelle est soit d'utiliser des fonction comme Mid ou alors de changer d'objet....

c'est pour cela que je suis passé par un Recordset DAO et un MSFlexGrid et la j'ai pas de soucis la date est directement affiché au bon format sans que j'ai besoin de faire quoi que ce soit.

@+

Je ne comprends plus (celà devient de plus en plus embrouillé).

Une autre fois, on ne peut partir en poker javanais et tout raisonnement n'est possible que si le format de la date à transformer est toujours le même.

Exemple (ici l'on part de dates en mm/jj/aaaa que l'on veut transformer en jj/mm/aaaa)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Command1_Click() Dim ladate As String ladate = "12/31/2001" MsgBox transdate(ladate) ladate = "03/11/1999" MsgBox transdate(ladate) End Sub   Private Function transdate(ld As String) As String transdate = DateValue(Mid(ld, 4, 2) & "/" & Val(ld) & "/" & Year(ld)) End Function

---

et ce sera toujours vrai

si je voulais faire le contraire (passer de jj/mm/aaaa à mm/jj/aaaa, le principe serait toujours le même !
à toi d'en profiter, dan,s un sens comme dans l'autre (depuis et vers ta base)

Bon, je ne sais pas si une solution t'intèresse toujours, quoi qu'il en soit en voici une qui cette fois est imparable et qui se base sur l'aiguillage donné par Ucfoutu...:P

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'Pour le test j'ai mis les dates de 11/01/2007 à 11/15/2007 'Le résultat retourné est bien De 01/11/2007 à 15/11/2007 Private Sub Command1_Click() Dim Tx As String, TB As String Dim i As Integer For i = 1 To 15 Tx = MSHFlexGrid1.TextMatrix(i, 2) : TB = Left(Tx, 2) Mid(Tx, 1) = Mid(Tx, 4, 2): Mid(Tx, 4, 2) = TB MSHFlexGrid1.TextMatrix(i, 1) = Tx & Format(Mid(Tx, 12), "hh:mm:ss") Next 'Et pour être certain que la date peu être employée correctement... MSHFlexGrid1.TextMatrix(2, 1) = Month(Tx) ' Donne bien 11 End Sub

---

A+
Edit: Désolé Ucfoutu, tu a été beaucoup plus rapide que moi (le facteur).:P
Edit2: J'ai aussi constaté que quel que soit le type de date, la fonction Month(Tx) donne toujours le nombre du milieu, à savoir 11/01/2007 renvoi 1 et pour 01/11/2007 renvoi 11.

Bonjour, Leforestier;

Tu n'as surtout pas à t'excuser (de quoi, d'ailleurs ... on est tous là pour apporter des idées).

Ton effort me conduit par exemple à apporter un petit cadeau polyvalent , que seuls les plus futés (dont toi, nul doute) sauront capter (je ne veux même pas le commenter...il faut prendre au vol ...). Il n'est qu'un modeste jeu de mots et abus de vb ...;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Command1_Click() Dim ladate As String ladate = "31/12/2001" 'on part d'une française MsgBox trans(ladate, "dd/mm/yyyy", "mm/dd/yyyy") MsgBox trans(ladate, "dd/mm/yyyy", "yyyy/mm/dd") ladate = "11/30/1999" ' on part d'une anglaise MsgBox trans(ladate, "mm/dd/yyyy", "dd/mm/yyyy") MsgBox trans(ladate, "mm/dd/yyyy", "yyyy/mm/dd") ladate = "1998/03/08" 'on part d'une américaine MsgBox trans(ladate, "yyyy/mm/dd", "dd/mm/yyyy") MsgBox trans(ladate, "yyyy/mm/dd", "mm/dd/yyyy") End Sub   Private Function trans(ld As String, format_entree As String, format_sortie As String) As String If format_entree = "dd/mm/yyyy" Then jour = 1: mois = 4: annee = 7 ElseIf format_entree = "mm/dd/yyyy" Then jour = 4: mois = 1: annee = 7 ElseIf format_entree = "yyyy/mm/dd" Then jour = 9: mois = 6: annee = 1 End If trans = Format(DateSerial(Val(Mid(ld, annee)), Val(Mid(ld, mois)), Val(Mid(ld, jour))), format_sortie) End Function

---

Citation:

---

Envoyé par ucfoutu

Une autre fois, on ne peut partir en poker javanais et tout raisonnement n'est possible que si le format de la date à transformer est toujours le même.

---

mon champs Date de ma base access est digne d'un vrai champs date ainsi que les données qu'il contient :D

Citation:

---

Envoyé par LeForestier

Bon, je ne sais pas si une solution t'intèresse toujours, quoi qu'il en soit en voici une qui cette fois est imparable et qui se base sur l'aiguillage donné par Ucfoutu...:P

---

la solution m'interesse toujours :D

Pour ce qui est de la fabrication de la date avec des fonctions du genre Mid, nous l'avions déja proposer plus haut, et c'est la seule solution viable que j'ai pour continuer a me servir du MSHFlexGrid.

J'ai fait un essai complémentaire cette fois avec DAO et un MSFlexgrid avec la meme requete sur la meme base et la meme table avec les memes criteres.
Les dates affichées dans MSFlexGrid sont dès le départ au format souhaité :D


j'essaye de changer le format de date de la meme façon que dans le MSHFlexGrid mais cette fois ci avec les fonctions Format ou Day, Month et Year.
Cela fonctionne parfaitement je peux changer le format comme de j'en ai envie, et cela marche au poil :yaisse2:

Alors, si la même manip fonctionne pour MSFlexgrid et pas pour le MSHFlexGrid, n'y aurait-il pas un probleme avec le controle lui même?

Merci pour vos solutions ;)

@+

Bonjour a tous,
Pour ma par j'ai retenu la solution utilisant la fonction Mid
Je sais pas si nous avons apporté une solution a Virtualité qui a ouvert ce post ... en tout cas, merci a tous pour le temps passé pour mon probleme!

@+

Salut,

tout d'abord je vous présente mes excuses pour mon absence.
Au fait mon PC avait pris un coup donc je devais le remettre sur pied
avant de cntinuer la programmation.
Dieu merci ça marche maintenant.