La cosa é molto semplice:
Private Sub Command1_Click()
If Len(Text1) = 8 Then Text1 = Format(Text1, "&&/&&/&&&&")
End Sub
Praticamente nella text1 metti la data nel formato GGMMYYYY, e lui la fa diventare GG/MM/YYYY
Ciao
La cosa é molto semplice:
Private Sub Command1_Click()
If Len(Text1) = 8 Then Text1 = Format(Text1, "&&/&&/&&&&")
End Sub
Praticamente nella text1 metti la data nel formato GGMMYYYY, e lui la fa diventare GG/MM/YYYY
Ciao
Cerco ombrello vecchio, nuovo, moderno o antidiluviano; purché protegga da una pioggia che vien giù come Dio la manda. Fate presto che ho l’acqua alla gola. (Noè)
C# programming and other stuffs
Permessi di invio
Rispondi quotando