Discussion :

[Attila54]

Bonjour,
Peut être aurais je du poster ce topic en section SQL mais dans le doute .....
Voila, mon appli se sert du string jourexamen defini sous cette forme :

Code :

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

1
2
3
 
Dim jourexamen As String
jourexamen = DateTime.Now.ToShortDateString

Il me met donc le date sous la forme jj/mm/aaaa et moi je la voudrais sous la forme mm/jj/aaaa ceci pour une facilite de tri

je n'arrive pas a trouver malgre pas mal de recherches la syntaxe qui me permettrait d'arriver a ce resultat

Peut être auriez vous une suggestion ?

Merci bien

[Attila54]

euh en fait j'ai essaye de faire

Code :

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

jourexamen = DateTime.Now.ToString("MM.dd.yyyy")

mais maintenant j'ai une messagebox erreur date

je voudrais juste que dans ma datagridview, ma colonne "Day" qui affiche

Code :

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

 .Columns("day").ValueType = GetType(DateTime)

me l'affiche en format MM.dd.yyyy

[Savak]

Bonjour,

Essaye avec le code ci-dessous :

Code :

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

1
2
3
        Dim jourexamen As Date = #3/15/2008#
        Dim culture As New CultureInfo("en-NZ")
        Console.WriteLine(jourexamen.ToString("d", culture))

N'oublie pas l'import de "System.Globalization"!

[Attila54]

en fait peut etre y a t'il une possibilité de faire autrement ......

Voila une capture de la form contenant la datagridWiew



Ce qui m'interesse est la possibilité de faire un tri dans la colonne Day (la seconde qui affiche la date du jour de l'enregistrement sous la forme dd/mm/yyyy).
Actuellement si je clique sur le haut de la colonne, j'ai un tri me donnant en premier les jours par ordre croissant ou decroissant alors que moi, je voudrais que le tri se fasse par mois croissant ou decroissant

je me demandais donc si il y avait un moyen de "parametrer" le type de tri depuis le datagridwiew

[Attila54]

Bon alors j'ai avancé .... un peu .....
en mettant

Code :

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

DateTime.Now.ToString("MM/dd/yyyy")

, j'ai effectivement le bon format de date affiché maintenant

Par contre, j'ai maintenant une erreur dans une sub :

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
 
Private Sub saveauto()
        Dim myDate As DateTime
        Dim saveimage As Bitmap
        Dim p As New ClassImpression(Me)
        If Not (DateTime.TryParse(TxtDate.Text, myDate)) Then
            MessageBox.Show("Date Error")
            Exit Sub
        End If
        saveimage = p.GetPreview
        Try
            saveimage.Save("\\rep\" & A.Text & "-" & B.Text & "-" & C.Text & "-" & D.Text & "-" & myDate.ToString("MMddyyyy") & ".jpeg", ImageFormat.Jpeg)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

avec :
jourexamen = DateTime.Now.ToString("MM/dd/yyyy")
TxtDate.Text = jourexamen

Elle se situe surement au niveau du TryParse.

- Si je le laisse, j'ai le message "Date Error" qui s'affiche et je sors de la sub sans enregistrer;
- Si je l'enlève pour test , l'enregistrement se fait bien, mais la partie

& myDate.ToString("MMddyyyy") & ".jpeg"

du document enregistré devient "01010001.jpeg" au lieu de "07262012.jpg" au cas précis.

Je ne comprends pas ou est l'erreur dans mon test ........

Merci de vos lumières

[Attila54]

Bon souci résolu par le changement suivant :

Code :

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

1
2
3
4
If Not DateTime.TryParseExact(TextBox1.Text, "MM/dd/yyyy", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, myDate) Then
            MessageBox.Show("Date Error")
            Exit Sub
        End If

en lieu et place de

Code :

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

1
2
3
4
 If Not (DateTime.TryParse(TxtDate.Text, myDate)) Then
            MessageBox.Show("Date Error")
            Exit Sub
        End If

Merci de votre soutien