Zoeken…


Syntaxis

  • CBool (expressie)
  • CByte (expressie)
  • CChar (expressie)
  • CDate (expressie)
  • CDbl (expressie)
  • CDec (expressie)
  • CInt (expressie)
  • CLng (expressie)
  • CObj (expressie)
  • CSByte (expressie)
  • CShort (expressie)
  • CSng (expressie)
  • CStr (expressie)
  • CUInt (expressie)
  • CULng (expressie)
  • CUShort (expressie)

parameters

Functienaam Bereik voor expressie argument
CBool Elke geldige Char of String of numerieke uitdrukking
CByte 0 tot en met 255 (niet ondertekend); fractionele delen zijn afgerond.
CChar Elke geldige Char- of String-expressie; alleen het eerste teken van een tekenreeks wordt geconverteerd; waarde kan 0 tot 65535 zijn (niet ondertekend).

Tekst van het tekstvak converteren naar een geheel getal

Van MSDN

Gebruik de CInt-functie om conversies van elk ander gegevenstype naar een Integer-subtype te bieden. CInt forceert bijvoorbeeld gehele getallen wanneer normaal, valuta-, enkele- of dubbele precisie-rekenkunde zou voorkomen.

Ervan uitgaande dat u 1 knop en 2 tekstvak hebt. Als u typt op textbox1.text 5.5 en op textbox2.text 10 .

Als u deze code heeft:

Dim result = textbox1.text + textbox2.text
MsgBox("Result: " & result)
'It will output
5.510

Om de waarden van de 2 tekstvakken toe te voegen, moet u hun waarden naar Int omzetten met behulp van de CInt(expression) .

Dim result = CInt(textbox1.text) + CInt(textbox2.text)
MsgBox("Result: " & result)
'It will output
16

Opmerking: Wanneer het fractionele deel van een waarde precies 0,5 is, rondt de functie CInt af naar het dichtstbijzijnde even getal. Bijvoorbeeld 0,5 ronden naar 0 , terwijl 1,5 ronden naar 2 en 3,5 ronden naar 4 . Het doel van afronden op het dichtstbijzijnde even getal is om een afwijking te compenseren die zich zou kunnen ophopen wanneer veel getallen bij elkaar worden opgeteld.



Modified text is an extract of the original Stack Overflow Documentation
Licentie onder CC BY-SA 3.0
Niet aangesloten bij Stack Overflow