Millä käskyllä string -tyyppinen muuttuja (joka sisältää
ainoastaan numero-merkkejä) muunnetaan integer tyyppiseksi,
vaikkapa 'luku'-muuttujaan?
Val-funktiolla.
CInt:llä Integer:ksi, CLng:lla pitkäksi kokonaisluvuksi (Long). Muita vastaavia CSng, CDbl jne...
Private Sub Command1_Click()
Dim abu As String
Dim i As Integer
Dim l As Long
Dim s As Single
Dim d As Double
abu = 12.5
If IsNumeric(abu) Then
If InStr(1, abu, ",") > 0 Then
s = CSng(abu)
d = CDbl(abu)
MsgBox s & "/" & d
Else
i = CInt(abu)
l = CLng(abu)
MsgBox i & "/" & l
End If
Else
MsgBox abu & " ei ole luku."
End If
End SubPrivate Sub Form_Load() Dim i As Integer 'numeraalinen muuttuja Dim g As String ' Stringgimuuttuja g = "1" 'Stringgimuuttujan arvo asetetaan "1" i = Val(g) 'I on g muunnettuna integeriksi i = i + 1 'Lisätään 1 iihin MsgBox i 'tulostetaan i End Sub
Aihe on jo aika vanha, joten et voi enää vastata siihen.