Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - da stringa a data
Forum - Visual Basic 6 - da stringa a data

Avatar
webb (Normal User)
Newbie


Messaggi: 5
Iscritto: 06/09/2008

Segnala al moderatore
Postato alle 17:11
Lunedì, 15/09/2008
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...

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 17:24
Lunedì, 15/09/2008
non potresti prendere la data del sistema?

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 17:26
Lunedì, 15/09/2008
Testo quotato

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.

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 17:35
Lunedì, 15/09/2008
Nel codice che segue text1 è la textbox dove scrivi ad esempio 21041994 e text2 e la textbox dove apparirà 21/04/1994:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. If Len(Text1.Text) = 8 Then 'se la text1.text è formata da 8 caratteri
  3. 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
  4. Else
  5. End If
  6. End Sub


:k:

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 18:03
Lunedì, 15/09/2008
Testo quotato

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:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. If Len(Text1.Text) = 8 Then 'se la text1.text è formata da 8 caratteri
  3. 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
  4. Else
  5. End If
  6. End Sub


:k:


funxiona ;)

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 19:41
Lunedì, 15/09/2008
Testo quotato

Postato originariamente da fabi3194:
funxiona ;)


Ci mancherebbe altro :D

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 20:12
Lunedì, 15/09/2008
Testo quotato

Postato originariamente da ruggy94:

Testo quotato

Postato originariamente da fabi3194:
funxiona ;)


Ci mancherebbe altro :D


XD

PM Quote