Function Reverse(Text As String) As String
Dim i As Integer
Dim StrNew As String
Dim strOld As String
strOld = Trim(Text)
For i = 1 To Len(strOld)
StrNew = Mid(strOld, i, 1) & StrNew
Next i
Reverse = StrNew
End Function
| HỖ TRỢ |
|---|
| 02516-544-809 1900-636-507 |
| Giờ làm việc |
| Sáng 07h30 đến 12h00 |
| Chiều 13h30 đến 17h00 |