Skip to content

Instantly share code, notes, and snippets.

@asynxc

asynxc/rtcRightCharBstr

Created September 28, 2016 21:03
Show Gist options
  • Save asynxc/1d8fe4e9514e85d95b760b0ac3b44cee to your computer and use it in GitHub Desktop.
Save asynxc/1d8fe4e9514e85d95b760b0ac3b44cee to your computer and use it in GitHub Desktop.
Download ZIP
Raw
rtcRightCharBstr
'Right$() Alternative Function
'MSVBVM60.rtcRightCharBstr
Public Declare Function rtcRightCharBstr Lib "MSVBVM60" (ByVal sStr As String, ByVal iLen As Integer) As String
Public Function Alternative_Right(ByVal sStr As String, ByVal iLen As Integer)
Alternative_Right = StrConv(rtcRightCharBstr(StrConv(sStr, vbUnicode), iLen), vbFromUnicode)
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment