Discussion :

[jadey]

bonjour tout le monde
Je ne sais pas si c'est le cas pour vous mes moi mon mshflexgrid il va pas bien du tout...
quand je lui donne un ADODB.RecordSet comme source de donnée

Code :

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

set mshflexgrid1.datasource= rs

et que le dit recordset contient des dates celles ci s'affichent bizarement :les jours à la place des mois et vice verça
exemple:
avec la date 15/05/2006 le resultat affiché sera 05/15/2006
vous conviendrez que c'est bien embêtant...
quelqu'una t'il deja eu ce prob?
je trouve bizzard que personne n'en ai parlé
quelle est la parade? sachant que
-j'ai deja essayé de mettre

Code :

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

day(mshflexgrid1.textmatrix(i,j)) & "/" & month(mshflexgrid1.textmatrix(i,j)) "/" year(mshflexgrid1.textmatrix(i,j))

certaines date sont corrigée mais pas toutes
-je ne peux pas travailler avec un datagrid ou encore un msflexgrid
merci pour toutes vos contributions

[Delbeke]

Ben c'est le format de base américain, mm/dd/yyyy, c'est pas un bug, c'est un défi lol

[jadey]

je me suis dis ça au debut mais le format americain c'est pas plutot yyyy/mm/dd ???
et si c'est un defi comme tu dis pk est-ce qu'en mettant:

Code :

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

day(mshflexgrid1.textmatrix(i,j)) & "/" & month(mshflexgrid1.textmatrix(i,j)) "/" year(mshflexgrid1.textmatrix(i,j))

ça ne marche toujours pas?

[ProgElecT]

?

Code :

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

Format(CDate(mshflexgrid1.textmatrix(i, j)), "dd/mm/yyyy")

[jadey]

je viens d'essayer:

Code :

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

Format(mshflexgrid1.textmatrix(i, j), "dd/mm/yyyy")

j'ai l'impression que les dates qui ont un jour inferieur à 13 ne sont pas converties, vous pouvez verifier chez vous svp

ProgElecT, à quoi sert:

Code :

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

Format(CDate(mshflexgrid1.textmatrix(i, j)), "dd/mm/yyyy")

[Delbeke]

ProgElecT, à quoi sert:

Code :

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

Format(CDate(mshflexgrid1.textmatrix(i, j)), "dd/mm/yyyy")

Essaye de faire la touche F1 sur les mots clefs que tu ne connais pas. je suis sur que l'aide en ligne en connait beaucoup plus que nous sur la question

[AlainTech]

je me suis dis ça au debut mais le format americain c'est pas plutot yyyy/mm/dd ???

Ca, c'est le format Japonais.

Le plus logique pour les tris!

[jadey]

hmm...toujours plaisant de recuperer de nouvelles infos, seulement ça ne repond pas à ma question

[mat.M]

hmm...toujours plaisant de recuperer de nouvelles infos, seulement ça ne repond pas à ma question

Oui mais ProgElect a donné ce qui semble être la seule possibilité avec l'instruction Format.
Donc consulter le MSDN sur cette fonction et les possibilités d'utilisation .
En ligne voir dans la section VB98/Visual Studio 98

[ProgElecT]

Bonsoir
la proposition de reponse à midi etait rapide et non verifiée, car il me semblait ne pas me poser de questions sur la manipulation de dates, par la suite je n'ai pas peu suivre avant ce soir.
Faire des essais avec les exemples (verifiés)

Code :

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

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
Private Sub Form_Load()
Dim MaDate As Date
'MaDate = Date
'ou
'MaDate = CDate("05/30/2006")
'Label1 = Format(CDate(MaDate), "dd/mm/yyyy")
' le resultat donne :  30/05/2006

'MaDate = CDate("2006/05/30")
'Label1 = Format(CDate(MaDate), "dd/mm/yyyy")
' le resultat donne :  30/05/2006

'MaDate = CDate("30/2006/05")
'Label1 = Format(CDate(MaDate), "dd/mm/yyyy")
' erreur d'éxécution '13' Type incompatible



'MaDate = CDate("09/06/2006") 'aujourd'hui
'Label1 = Format(CDate(MaDate), "mm/dd/yyyy")
'le resultat donne :  06/09/2006

MaDate = CDate("09/06/2006") 'aujourd'hui
Label1 = Format(CDate(MaDate), "dd/mm/yyyy")
'le resultat donne :  09/06/2006
End Sub

bien regarder la disposition des dd/mm/yyyy

Ma configuration pour XP est
Options régionales et linguistiques,
date courte 06/09/2006 soit jour/mois/année

Source MSDN

Pour ce qui concerne le séparateur de date (/), d'heure ( : ) et le littéral AM/PM, la sortie formatée réellement affichée par votre système dépend des paramètres régionaux avec lesquels le code s'exécute. Lorsque les heures et les dates sont affichées dans l'environnement de développement, ce sont les formats heure et date raccourcis des paramètres régionaux qui sont utilisés. Lorsqu'ils s'affichent par exécution du code, les formats heure et date raccourcis utilisés sont ceux des paramètres système, qui peuvent différer des paramètres régionaux.

[jadey]

priere de lire mon dernier post avant de repondre
croyez bien que j'ai lu et relu tout ce que vous avez dis tous soit dans l'MSDN soit dans la FAQ, je suis de plus en plus persuadé que c bien un bug et de taille

[ProgElecT]

priere de lire mon dernier post avant de repondre

Il m'arrive de me perdre dans le fils de la discution, mais là j'avai bien lu.

peu tu nous donner les exemples de dates non converties

[jadey]

je pense avoir compris pourquoi certaines sont converties et d'autre pas:
le MSHFLEGRID affiche par defaut les dates sous le format américain: mm/dd/yyyy, quand je force l'affichage avec l'instruction:
format(expression,"dd/mm/yyy") il ne convertie pas les dates qui devrait etre correcte sans conversion
exemple:
pour le 15/3/2003 le mshflexgrid affiche 3/15/2003 l'utilisation de la fonction format donne pour resultat 15/3/2003 (3/15/2003 n'est pas correcte sans conversion)
par contre pour la date 2/6/2006 le msflexgrid affiche 6/2/2006 et quand on force le format normal via la fonction format la conversion ne se fait pas parceque 6/2/2006 est une date valide sous le format normal
j'espere avoir été clair et si mon expliquation est correcte ça voudrait dire que c bel et bien un bug

[jadey]

une solution serait que mon application force (de maniere barbare j'en conviens) les parametres regionnaux en tout cas en ce qui concerne les dates, la question est comment faire? vous m'aideriez bcp en repondant a cette question

[ProgElecT]

Avec sa est ce que sa solutionnerait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Function ConverDate(LaDate As String)
Dim T As Integer
Dim Jr, Moi, Ann As String
Dim NumSep As Integer
NumSep = 0
 
For T = 1 To Len(LaDate)
 If Mid$(LaDate, T, 1) <> "/" Then
  If NumSep = 0 Then Jr = Jr + Mid$(LaDate, T, 1)
  If NumSep = 1 Then Moi = Moi + Mid$(LaDate, T, 1)
  If NumSep = 2 Then Ann = Ann + Mid$(LaDate, T, 1)
  Else
  NumSep = NumSep + 1
 End If
Next T
If Len(Jr) = 1 Then Jr = "0" & Jr
If Len(Moi) = 1 Then Moi = "0" & Moi
ConverDate = Format(Jr & "/" & Moi & "/" & Ann, "mm/dd/yyyy")
End Function
 
Private Sub Command1_Click()
Label1 = ""
Label1 = ConverDate(Text1)
End Sub

[Zaal]

Ayant deja rencontre ce probleme, je m'etais resolu a bidouiller mes dates a la main puisqu'effectivement quand le jour est inferieur a 13 le Format ne fonctionne pas. Bon courage

[jadey]

merci progelec mais je prefere ne pas avoir à "bidouiller" avec des algo
y'a pas d'aut soluce les gars???

[jadey]

c'est bien un BUG y'a surememnt un moyen d'y remedier???!!!

[AlainTech]

Je n'ai pas tout lu mais je suis persuadé que ce n'est pas un bug.

Essaye d'entourer tes chaines de dates de caractères #.

[said_elm]

c'est bien un BUG y'a surememnt un moyen d'y remedier???!!!

oui effectivement le pb se pose uniquement avec mshflexgrid; ma solution a ce pb est que je modifie dans la requete select : je convertie la date en sting via la fonction STR(champs_date). J'espere etre claire voici un exple:

Select Nom ,str(dateNais) as DateNais from Table1

ok bon courage