Discussion :

[inforlab]

Bonjour,


Je suis nouveau sur le forum, et en programmation également.

J'aimerais pouvoir extraire les informations de la date et heure par ex:

6/02/2007 10:08:56 ---> affichage 060220071008

Dim Reference As String
Dim dt As String
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim f As String

dt = System.DateTime.Now
a = Mid(dt, 1, 2)
If a < 10 Then
a = "0" + a
End If
b = Mid(dt, 3, 2)
c = Mid(dt, 6, 4)
d = Mid(dt, 11, 2)
If d < 10 Then
d = "0" + d
End If
f = Mid(dt, 15, 2)
If f < 10 Then
f = "0" + f
End If
Reference = a + b + c + d + f
ajout.tb_reference.Text = Reference

Mais j'ai toujours une erreur lorsque les minutes sont < à 10 par exemple10:08

En fait l'affichage de l'heure se fait sans les "0" ...... 10:8 et donc le système doit verifier la condition avec une chaine "8:" et non pas 08 .

Si quelqu'un a un moyen plus simple je suis preneur ou sinon un solution à ce problème.

Merci d'avance, j'espère que tout ceci est lisible.

Inforlab

[bidou]

par exemple

Code :

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

1
2
3
4
5
6
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As DateTime = DateTime.Now
        Dim strDT As String
        strDT = Format(dt.Day, "00") + Format(dt.Month, "00") + dt.Year.ToString + Format(dt.Hour, "00") + Format(dt.Minute, "00")
        Me.Text = strDT
    End Sub

[inforlab]

Merci à toi

inforlab