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 Sub
Private 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.