conversion de format de date

Version imprimable

29/05/2012, 10h39
Attila54

conversion de format de date

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:

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 :)
29/05/2012, 10h50
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()
29/05/2012, 11h10
Attila54

je regarde les liens que tu me proposes :P 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:

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 ;)
29/05/2012, 11h15
Invité

Tu peux utiliser

Code:

DateTime.Now.ToShortDateString().Replace("/","-");
29/05/2012, 11h16
meziantou

Code:

date.ToString("ddMMyyyy");

Dans la fonction Save()

tu fais :
Code:

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("/","")

29/05/2012, 11h39
Attila54

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

Citation:

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 :?
29/05/2012, 11h41
BenoitM

MessageBox.Show() :oops:
29/05/2012, 11h44
Attila54

Citation:

Envoyé par BenoitM

MessageBox.Show() :oops:

on s'est croisé, j'etais en train d'editer pour dire que le .show enlevait l'erreur mais .... plus d'enregistrement ....
29/05/2012, 11h46
BenoitM

Citation:

Envoyé par Attila54

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

ca me donne ca .....

Code:

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

29/05/2012, 12h01
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:

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

Salut

un petit test

Code:

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

29/05/2012, 12h15
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 ......... 8O8O8O
problème de gestion du messagebox ?
29/05/2012, 12h21
Attila54

je viens de tester shayW,
la j'ai le messagebox + Erreur GDI+
29/05/2012, 12h28
shayw

que dit l'erreur ?
29/05/2012, 12h33
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
29/05/2012, 13h04
BenoitM

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

c'est plutot

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

donc

Code:

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

29/05/2012, 13h14
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
29/05/2012, 13h15
BenoitM

Ah oui , donner du code à la va-vite c'est pas top :?

En faite c'est juste pour voir s'ils sont attentifs où s'ils ne font qu'un simple copier coller sans essayer de comprendre le code :mouarf:
29/05/2012, 13h20
Attila54

mouaichhhhhhh c'est bon, ca fonctionne impeccablement. C'etait effectivement un problème de syntaxe que j'avais .......
Un gros merci a vous 2 pour l'aide à la résolution du probleme 8-)8-)

par contre, je "dérésouds" le topic car avec cette histoire de formatage de date, j'ai du mal a transferer le fichier d'un rep a l'autre visiblement a cause de cette date

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub filemove()
        Dim myDate As DateTime
        Imprimer.Visible = False
        Quitter.Visible = False
        Buttonvalidate.Visible = False
        Try
            Dim FileSource As String
            Dim FileDestination As String
            FileSource = "\\nas\mon_repsource\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & myDate.ToString("ddMMyyyy") & ".jpeg"
            FileDestination = "\\nas\mon_repdestination\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & myDate.ToString("ddMMyyyy") & ".jpeg"
            If File.Exists(FileSource) = False Then
                MessageBox.Show("Fichier introuvable")
                Exit Sub
            End If
            If File.Exists(FileDestination) Then
                File.Delete(FileDestination)
            End If
            File.Move(FileSource, FileDestination)
        Catch ex As Exception
            MessageBox.Show(String.Format("The process failed: {0}", ex.ToString()))
        End Try
    End Sub

et paf, a chaque fois j'ai "fichier introuvable". alors que le fichier existe bien dans le rep source. Je pense que c'est du au

Citation:

& myDate.ToString("ddMMyyyy")

pourtant j'ai bien declare le mydate :cry:

29/05/2012, 14h33
shayw

Code:

Dim myDate As DateTime

tu ne lui assignes aucune valeur dans ton code
29/05/2012, 14h50
Attila54

mais sauf erreur de ma part, c'est la même valeur que dans la sub validation precedante puisque c'est ce même fichier image que je déplace d'un rep à l'autre ....
29/05/2012, 15h06
BenoitM

myDate est déclarée dans la Sub donc elle n'a une porté que dans celle-ci or aucune valeur n'est associée à cette variable

Il faut refaire le tryParse

Le mieux serait de passer en parametre à ta foncton filemove fileSource et fileDestination
29/05/2012, 15h08
-N4w4k-

Je serais toi je jetterais un coup d'oeil au cours sur la portée des variables.
29/05/2012, 15h45
shayw

en faite je n'ai pas compris pourquoi tu fais une conversion en date
c'est juste pour faire une concatenation pour le filename de ton fichier
puisque tu saisis la date avec DateTime.Now.ToShortDateString
donc tu as forcément une date valide
et ensuite tu peux écrire

Code:

txtdate.text = DateTime.Now.ToShortDateString.Replace("/", "")
29/05/2012, 15h54
Attila54

c'est fait nawak j'ai el cours et je le regarde depuis pas mal de temps .....
ceci dit c'est bon, tout fonctionne correctemetn cette fois ci, fallait remettre le tryParse comme tu l'as dit benoitM
Ce coup ci, repassage definitif en résolu et gros merci a tous
29/05/2012, 16h14
BenoitM

Faut surtout lui passer en parametre les nom des fichiers sources et destination ;)

Faut pas lire que la moitier du post :calim2:

euh shayw

Code:

txtdate.text = DateTime.Now.ToString("ddMMyyyy")

pas besoin de replace ;)