Public Function Capital(strInput As String) As String ''Devuelve un texto con la primera letra en mayusculas y todas las siguientes en minúsculas.
Dim strOutput As String
If strInput <> "" Then
strOutput = String.UCase(String.Mid(strInput, 1, 1))
strOutput &= String.LCase(String.Mid(strInput, 2, String.len(strInput) - 1))
Else
strOutput = ""
Endif
Return strOutput
End
Dim strOutput As String
If strInput <> "" Then
strOutput = String.UCase(String.Mid(strInput, 1, 1))
strOutput &= String.LCase(String.Mid(strInput, 2, String.len(strInput) - 1))
Else
strOutput = ""
Endif
Return strOutput
End
Hice un ejemplo para apreciar las diferencias.
| ejemplo-capitalizacion-0.0.1.tar.gz | ||
| Descripción: |  Descargar |
|
| Nombre del archivo: | ejemplo-capitalizacion-0.0.1.tar.gz | |
| Tamaño: | 11.37 KB | |
| Descargado: | 27 veces | |
| ejemplo-capitalizacion-0.0.1.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | ejemplo-capitalizacion-0.0.1.tar.gz | |
| Tamaño: | 11.37 KB | |
| Descargado: | 27 veces | |
| ejemplo-capitalizacion-0.0.1.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | ejemplo-capitalizacion-0.0.1.tar.gz | |
| Tamaño: | 11.37 KB | |
| Descargado: | 27 veces | |
