Left Function

αžαŸ’αžšαž‘αž”αŸ‹β€‹αž…αŸ†αž“αž½αž“β€‹αžαž½β€‹αž’αž€αŸ’αžŸαžšβ€‹αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž†αŸ’αžœαŸαž„β€‹αž”αŸ†αž•αž»αž αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹β€‹αž“αŸƒβ€‹αž€αž“αŸ’αžŸαŸ„αž˜β€‹αžαŸ’αžŸαŸ‚β€‹αž’αž€αŸ’αžŸαžšΒ αŸ”

Syntax:


Left (string As String, length As Long) As String

Return value:

αžαŸ’αžŸαŸ‚β€‹αž’αž€αŸ’αžŸαžš

Parameters:

string: Any string expression that you want to return the leftmost characters from.

length: Numeric expression that specifies the number of characters that you want to return. If length = 0, a zero-length string is returned. The maximum allowed value is 2,147,483,648.

αž§αž‘αžΆαž αžšαžŽαŸβ€‹αžŠαžΌαž…β€‹αžαžΆαž„β€‹αž€αŸ’αžšαŸ„αž˜ αž”αž˜αŸ’αž›αŸ‚αž„β€‹αž€αžΆαž›β€‹αž”αžšαž·αž…αŸ’αž†αŸαž‘β€‹αž€αŸ’αž“αž»αž„β€‹αž‘αŸ’αžšαž„αŸ‹αž‘αŸ’αžšαžΆαž™ YYYY.MM.DD αž‘αŸ…β€‹αž‡αžΆβ€‹αž‘αŸ’αžšαž„αŸ‹αž‘αŸ’αžšαžΆαž™ MM/DD/YYYYΒ αŸ”

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

Example:


Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
    sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")
    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

Please support us!