Return to Answer

added 19 characters in body

Source Link

edited Mar 11, 2015 at 17:04

VBA (161 bytes)

Function t(s As String)
t = 0
For i = 2 To Len(s)
a = Left(LCase(s), i)
    If Asc(Right(a, 1)) <= Asc(Right(a, 2)) Then Exit Function
Next
t = 1
End Function

Compares ascii value with previous letter in lowercase, return 1 as true and 0 as false(false) when its value is smaller / equal and exit function

VBA (161 bytes)

Function t(s As String)
t = 0
For i = 2 To Len(s)
a = Left(LCase(s), i)
    If Asc(Right(a, 1)) <= Asc(Right(a, 2)) Then Exit Function
Next
t = 1
End Function

Compares ascii value with previous letter in lowercase, return 1 as true and 0 as false

VBA (161 bytes)

Function t(s As String)
t = 0
For i = 2 To Len(s)
a = Left(LCase(s), i)
    If Asc(Right(a, 1)) <= Asc(Right(a, 2)) Then Exit Function
Next
t = 1
End Function

Compares ascii value with previous letter in lowercase, return 0 (false) when its value is smaller / equal and exit function

Source Link

created Mar 11, 2015 at 16:58

Alex

VBA (161 bytes)

Function t(s As String)
t = 0
For i = 2 To Len(s)
a = Left(LCase(s), i)
    If Asc(Right(a, 1)) <= Asc(Right(a, 2)) Then Exit Function
Next
t = 1
End Function

Compares ascii value with previous letter in lowercase, return 1 as true and 0 as false