Date vers string

Question

Bonjour j'ai une variable as String que j'aimerais convertir en Date. Je me suis inform&#233;e sur le site et il me semble que c'est CDate mais rien ne fonctionne sur mon programme. &#199;a me marque &#224; l'endroit apropri&#233;e une date du genre "1905-06-27" au lieu de "2005-12-15". J'aimerais savoir si vous voyez un probl&#232;me &#224; mon algorithme. Merci
 
Public Type TScore
    strNom As String
    DtmTemps As Date
    IntScore As Integer
End Type


Public Nombre(1 To 100) As TScore
Public Table(1 To 100) As TScore
Public tampon As TScore


Public intNbRecords As Integer


Public NomFichier As String
Public NomFichierDefaut As String

-----------------------------------------------------------------------------
Private Sub Construire(ligne, nb)


Dim intChamp As Integer
Dim x As Integer
Dim nom As String, Temps As String, score As String
intChamp = 0


For x = 1 To Len(ligne)
        If Mid(ligne, x, 1) = "," Then
            intChamp = intChamp + 1
            x = x + 1
        Else
            Select Case intChamp
                Case 0
                    nom = nom & Mid(ligne, x, 1)
                Case 1
                    Temps = Temps & Mid(ligne, x, 1)
                Case 2
                    score = score & Mid(ligne, x, 1)
            End Select
        End If
Next
    Nombre(nb).DtmTemps = CDate(Temps)
    Nombre(nb).strNom = nom
    Nombre(nb).IntScore = Val(score)
    
End Sub
--------------------------------------------------------

Gobillot · Answer

et il y a quoi dans ligne ?

sinon &#224; part qu'il y a s&#251;rement mieux (split, Instr) &#231;a marche

    Construire "Daniel, 15/12/2005, 123", 0


Daniel

Date vers string

1 réponse

Discussions similaires