ຟັງຊັນ StrComp

ປຽບທຽບສອງຂໍ້ຄວາມ ແລະ ສົ່ງຄືນຄ່າຕົວເລກຖ້ວນທີ່ສະແດງເຖິງຜົນຂອງການປຽບທຽບ.

StrComp (ຂໍ້ຄວາມ1 ເປັນ String, ຂໍ້ຄວາມ2 ເປັນ String[, ປຽບທຽບ ເປັນ Integer]) ເປັນ Integer

ຂໍ້ຄວາມ1: ນິພົດຂໍ້ຄວາມໃດໆ

ຂໍ້ຄວາມ2: ນິພົດຂໍ້ຄວາມໃດໆ

ປຽບທຽບ: ພາລາມິເຕີທາງເລືອກນີ້ກຳນົດວິທີການປຽບທຽບ. ຖ້າ Compare = 1, ການປຽບທຽບຈະຈຳແນກຕົວພິມໃຫຍ່-ນ້ອຍ. ຖ້າ Compare = 0, ຈະບໍ່ມີການແບ່ງແຍກລະຫວ່າງຕົວອັກສອນພິມໃຫຍ່ ແລະ ພິມນ້ອຍ.

Integer

• ຖ້າ ຂໍ້ຄວາມ1 < ຂໍ້ຄວາມ2 ຟັງຊັນຈະສົ່ງຄືນ -1

• ຖ້າ ຂໍ້ຄວາມ1 = ຂໍ້ຄວາມ2 ຟັງຊັນຈະສົ່ງຄືນ 0

• ຖ້າ ຂໍ້ຄວາມ1 > ຂໍ້ຄວາມ2 ຟັງຊັນຈະສົ່ງຄືນ 1

Sub ExampleStrComp
Dim iVar As Single
Dim sVar As String
    iVar = 123.123
    sVar = Str$(iVar)
    MsgBox strcomp(sVar , Str$(iVar),1)
End Sub