FormatPercent [VBA]
ສົ່ງຄືນຂໍ້ຄວາມທີ່ນຳໃຊ້ຮູບແບບຕົວເລກໃຫ້ກັບນິພົດຕົວເລກ. ຈະມີເຄື່ອງໝາຍເປີເຊັນຕໍ່ທ້າຍຂໍ້ຄວາມທີ່ສົ່ງຄືນ.
ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.
FormatPercent( expression, [numDigitsAfterDecimal As Integer], [includeLeadingDigit As Integer], _
[useParensForNegativeNumbers As Integer], [groupDigits As Integer] ) As String
Sub TestFormatNumber
Const UseComputerRegionalSettings = -1
MsgBox FormatPercent(12.2, NumDigitsAfterDecimal:=2) ' 1220.00% ຫາກສ່ວນຕິດຕໍ່ຜູ້ໃຊ້ແມ່ນພາສາອັງກິດ
MsgBox FormatPercent("-,2", 2, IncludeLeadingDigit:=vbTrue) ' -20,00% ຫາກສ່ວນຕິດຕໍ່ຜູ້ໃຊ້ແມ່ນພາສາຝຣັ່ງ
MsgBox FormatPercent("-0.2", 2) ' -20.00% ສຳລັບ en-US, -0,00 ສຳລັບ fr-CA, de-AT ຫຼື pt-BR
MsgBox FormatPercent(-0.2, UseComputerRegionalSettings, UseParensForNegativeNumbers:=vbTrue) ' (20,00)% ຫາກເປັນ pt-BR
MsgBox FormatPercent("-0,2", UseComputerRegionalSettings, vbUseDefault, vbTrue) ' (20,00)% ຫາກເປັນພາສາເຢຍລະມັນ
MsgBox FormatPercent("-12345678", -1, vbUseDefault, vbUseDefault, GroupDigits:=vbTrue) ' -1 234 567 800,00% ສຳລັບ fr-BE
End Sub
