Discussion :

[Attila54]

Bonjour,
dans mon appli, j'ai entre autre paramètres la date du jour du traitement appliqué.
Elle est sous la forme : JJ/MM/AAAA
donc

Code :

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

jourexamen = DateTime.Now.ToShortDateString

Voulant avoir une recopie de cette date mais sous la forme JJMMAAAA (dans les /), je n'arrive pas a trouver le bon paramètre pour l'afficher correctement.

Merci de vos suggestions

[BenoitM]

Je crois que ton bonheur est par ici et par là


mais j'ai pas tout compris si tu voulais à partir d'un string avoir une date où bien avoir un string formaté à partir d'une date

si c'est pour convertir le string en DateTime alors c'est DateTime.Parse ou DateTime.TryParse()

[Attila54]

je regarde les liens que tu me proposes et pour être plus clair je précise ma question.
Mon appli affiche une date sur un formulaire d'impression. Cette date est la date du jour sous forme JJ/MM/AAAA . J'aurai donc un affichage du genre "26/05/2012". Or j'ai besoin d'integrer cette date dans le nom d'enregistrement de mon formulaire

Code :

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

saveimage.Save("\\nas\mon_chemin\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & "-" & ma_fameuse_date.Text & ".jpeg", ImageFormat.Jpeg)

Si je la laisse telle quelle avec les /, j'ai a tous les coups une erreur GDI+

Je veux donc qu'une textbox recopie ma date sous la forme JJMMAAAA de maniere a remplacer ma_fameuse_date.Text par la nouvelle textbox (donc une textbox qui afficherait 26052012) et regler le souci du GDI+

Voila pour l'explication

[Invité]

Tu peux utiliser

Code :

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

DateTime.Now.ToShortDateString().Replace("/","-");

[meziantou]

Code :

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

date.ToString("ddMMyyyy");

[BenoitM]

Dans la fonction Save()

tu fais :

Code :

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

1
2
3
4
5
6
7
 
Dim myDate As DateTime 
If(DateTime.TryParse(ma_fameuse_date.Text,myDate)) Then
   MessageBox("Erreur Date non valide")
   Exit Sub
End
saveimage.Save("\\nas\mon_chemin\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & "-" & myDate.ToString("ddMMyyyy")  & ".jpeg", ImageFormat.Jpeg)

Tu peux aussi regarder ce lien see if a string is a valid file , ca permet de tester si le nom du fichier est valide (car la personne pourrait écrire des connerie dans le nom, prenom)

Le replace est plus simple mais faire un TryParse permet de vérifier que la date entrée est bien une date valide (si je tappe "coucou" dans la textbox l'application ne généra aucune erreur avec le Replace("/","")

[Attila54]

alors effectivement avec tryparse tout fonctionne bien, sauf qu'il ne veut pas

MessageBox("Erreur Date non valide")

car messagebox est un type et ne peut pas être utilisé en tant qu'expression ...........
par contre messagebox.show enleve l'erreur mais plus rien ne s'enregistre et j'ai le message d'erreur a chaque fois

[BenoitM]

MessageBox.Show()

[Attila54]

MessageBox.Show()

on s'est croisé, j'etais en train d'editer pour dire que le .show enlevait l'erreur mais .... plus d'enregistrement ....

[BenoitM]

on s'est croisé, j'etais en train d'editer pour dire que le .show enlevait l'erreur mais .... plus d'enregistrement ....

Mets tout le code :p

[Attila54]

ca me donne ca .....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Private Sub validation()
        Imprimer.Visible = False
        Quitter.Visible = False
        btnvalidate.Visible = False
        Dim myDate As DateTime
        Dim saveimage As Bitmap
        Dim p As New ClassImpression(Me)
        If (DateTime.TryParse(TxtDate.Text, myDate)) Then
            MessageBox.Show("Erreur Date non valide")
        End If
        saveimage = p.GetPreview
        saveimage.Save("\\nas\mon_chemin\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & "-" & myDate.ToString("ddMMyyyy") & ".jpeg", ImageFormat.Jpeg)
    End Sub

[BenoitM]

A part qu'il manque le Exit Sub dans le If

Je ne vois pas d'erreur

peut-etre en debug demandé d'affichier

Code :

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

"\\nas\mon_chemin\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & "-" & myDate.ToString("ddMMyyyy") & ".jpeg"

[shayw]

Salut

un petit test

Code :

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

1
2
3
4
5
6
 saveimage = p.GetPreview
Try
     saveimage.Save("\\nas\mon_chemin\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & "-" & myDate.ToString("ddMMyyyy") & ".jpeg", ImageFormat.Jpeg)
 Catch ex As Exception
      MessageBox.Show(ex.Message)
  End Try

[Attila54]

alors la je suis "flouté" .....
si je remets le exit sub, j'ai le messagebox et rien ne s'enregistre
si j'enlève le exit sub, j'ai toujours le messagebox MAIS l'enregistrement se fait bien et la date est bien conforme a ce que je veux .........
problème de gestion du messagebox ?

[Attila54]

je viens de tester shayW,
la j'ai le messagebox + Erreur GDI+

[shayw]

que dit l'erreur ?

[Attila54]

L'erreur dit que le conversion en JJMMAAAA ne s'est pas bien faite.
Ce n'est aps une erreur au sens propre mais une messagebox a l'execution en mode debug

[BenoitM]

Ah mais si tu as le messageBox c'est que la date est mal formaté et donc il ne sauve pas logique :p

[shayw]

c'est plutot

If Not (DateTime.TryParse(txtdate.text, mydate)) Then
MessageBox.Show("Erreur Date non valide")
exit sub
End If

donc

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
 Private Sub validation()
        Imprimer.Visible = False
        Quitter.Visible = False
        btnvalidate.Visible = False
        Dim myDate As DateTime
        Dim saveimage As Bitmap
        Dim p As New ClassImpression(Me)
        If Not (DateTime.TryParse(txtdate.text, mydate)) Then
            MessageBox.Show("Erreur Date non valide")
           exit sub
        End If 
       saveimage = p.GetPreview
  Try
     saveimage.Save("\\nas\mon_chemin\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & "-" & myDate.ToString("ddMMyyyy") & ".jpeg", ImageFormat.Jpeg)
 Catch ex As Exception
      MessageBox.Show(ex.Message)
  End Try  
  End Sub

[Attila54]

mais oui mais non benoitM car j'ai bien le fichier enregistré avec la bonne date et le bon format, mais j'ai juste le messagebox qui s'affiche toujours. Comme si je l'avais mal positionné dans la sub