Visual Basic 6 - da stringa a data

15/09/08 15:11

ciao ragazzi come faccio trasformate una stringa in una data..
in una text_box metto ad esempio questra stringa di valori 12092008 e volgio che la stampa sia 12/09/2008 ho provato con cstr ma il risultato non è quello desiderato..
help please...

aaa

15/09/08 15:24

non potresti prendere la data del sistema?

15/09/08 15:26

ruggy94

Postato originariamente da fabi3194:

non potresti prendere la data del sistema?

Credo che non c'entri niente con quello che vuole fare...
Comunque tu devi considerare di aggiungere un "/" dopo il secondo carattere e dopo il quarto. Ora faccio delle prove di codice e riposto.

aaa

15/09/08 15:35

ruggy94

Nel codice che segue text1 è la textbox dove scrivi ad esempio 21041994 e text2 e la textbox dove apparirà 21/04/1994:

Private Sub Command1_Click()
If Len(Text1.Text) = 8 Then 'se la text1.text è formata da 8 caratteri
Text2.Text = Mid(Text1.Text, 1, 2) & "/" & Mid(Text1.Text, 3, 2) & "/" & Mid(Text1.Text, 5, 4) 'prende i primi 2 caratteri della text1, poi aggiunge un /, poi prende il terzo e quarto carattere della text1, poi aggiunge un / e poi scrive gli ultimi quattro caratteri della text1
Else
End If
End Sub

aaa

15/09/08 16:03

Postato originariamente da ruggy94:

Nel codice che segue text1 è la textbox dove scrivi ad esempio 21041994 e text2 e la textbox dove apparirà 21/04/1994:

Private Sub Command1_Click()
If Len(Text1.Text) = 8 Then 'se la text1.text è formata da 8 caratteri
Text2.Text = Mid(Text1.Text, 1, 2) & "/" & Mid(Text1.Text, 3, 2) & "/" & Mid(Text1.Text, 5, 4) 'prende i primi 2 caratteri della text1, poi aggiunge un /, poi prende il terzo e quarto carattere della text1, poi aggiunge un / e poi scrive gli ultimi quattro caratteri della text1
Else
End If
End Sub