Olá a todos.
Necessitei desta função, partilho o código e exemplo.
Abraço
Necessitei desta função, partilho o código e exemplo.
- Código:
Function fncStr2Html(strConverter) As String
' Autor ..: Alvaro Teixeira (ahteixeira)
' Para ...: MaximoAccess.com
' Data ...: 03-10-2018
' Função .: fncStr2Html
' Obs ....: Converter texto para Código Numerico em HTML
Dim i%, sTmp$
i = Len(strConverter & "")
If i > 0 Then
For i = 1 To i
sTmp = sTmp & "" & Asc(Mid(strConverter, i, 1)) & ";"
Next
End If
fncStr2Html = sTmp
End Function
Abraço
- Anexos
- Converter_str2html.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (20 Kb) Baixado 7 vez(es)
Última edição por ahteixeira em 9/3/2022, 20:14, editado 1 vez(es) (Motivo da edição : Repor anexo do exemplo)