Funzione Left
Restituisce il numero di caratteri specificati partendo dall'estremo sinistro di una stringa.
Sintassi:
Left (Text As String, n As Long)
Valore restituito:
String
Parametri:
Testo: stringa di cui si desidera restituire i caratteri più a sinistra.
n: espressione numerica che specifica il numero di caratteri da restituire. Se n = 0, viene restituita una stringa di lunghezza zero. Il valore massimo consentito è 65535.
L'esempio seguente converte una data in formato AAAA.MM.GG nel formato MM/GG/AAAA.
Esempio:
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Inserite una data in formato internazionale 'AAAA-MM-GG'")
sUS_date = Mid(sInput, 6, 2)
sUS_date = sUS_date & "/"
sUS_date = sUS_date & Right(sInput, 2)
sUS_date = sUS_date & "/"
sUS_date = sUS_date & Left(sInput, 4)
MsgBox sUS_date
End Sub