[VB.NET] Come estrarre i numeri a destra della virgola

[SirJo]

Non ho capito una cosa, stiamo parlando di numeri o di stringhe ??
Nel tuo post continui a parlare di numeri, ma con Left e Right tratti le stringhe, non i numeri.
Per estrarre la parte intera o la parte decimale dei numeri ci sono delle funzioni specifiche già pronte, guardati la classe Math e lì trovi tutto, se invece sono stringhe devi prima capire dove è la virgola (usando il metodo IndexOf) e poi puoi estrarre le varie parti senza problema.

Sergio

[ggaamm]

Ciao SirJo, si tratta di numeri, infatti del numero 3487,149876 devo estrarre i primi tre di sinistra (348) e i primi due di destra (76), ci sono altri casi come il numero 34,23 per il quale devo estrarre il 34 ed il 23, oppure il numero 1,234 in cui devo estrarre l'1 ed il 34, ect....
Comunque ho dato una sbirciata alle funzioni Math ma non mi sembra che ci sia nulla, forse parzialmente riesce a fare qualcosa la funzione "Truncate" ma c'è il discorso della virgola.
Fammi sapere.

[SirJo]

Ciao SirJo, si tratta di numeri, infatti del numero 3487,149876 devo estrarre i primi tre di sinistra (348) e i primi due di destra (76), ci sono altri casi come il numero 34,23 per il quale devo estrarre il 34 ed il 23, oppure il numero 1,234 in cui devo estrarre l'1 ed il 34, ect....
Comunque ho dato una sbirciata alle funzioni Math ma non mi sembra che ci sia nulla, forse parzialmente riesce a fare qualcosa la funzione "Truncate" ma c'è il discorso della virgola.
Fammi sapere.

ecco qui:

       Dim NumDbl As Double = 12.345

        MsgBox("Parte intera: " & Math.Floor(NumDbl).ToString & vbCrLf & _
               "Parte frazionaria: " & (NumDbl - Math.Floor(NumDbl)).ToString)

[optime]

dai, "non mi funziona" non vuol dire niente sii più preciso, grassie

[torn24]

Ciao non conosco vb.net , conosco un po vb6, mi sembra che sia sensato in vb.net usare i metodi della classe string, e non le funzioni ereditate da vb6, posto una possibile soluzione.

Module VBModule
 
    Sub Main()
        dim numero as double=3487.149876
        dim strnumero as string =convert.tostring(numero)
        dim  destra as string
        dim sinistra as string
        dim pos as integer 
        pos=strnumero.indexof(".")
        console.writeline(pos)
        destra=strnumero.substring(0,pos)'prelevo una sottostringa da inizio al carattere . 
        if destra.length >3 then ' se la lunghezza è maggiore di 3 prelevo i primi tre 
            destra=destra.substring(0,3)
        end if 
        sinistra=strnumero.substring(pos+1)' prelevo tutta la stringa dal punto a fine stringa 
        if sinistra.length>5 then ' se la lunghezza è maggiore di 5 prelevo gli ultimi 2 
            sinistra=sinistra.substring(sinistra.length-2)
        end if       
        console.writeline(destra)
        console.writeline(sinistra)
        
    End Sub
  
End Module

[keiji68]

prova così.
devi fare i controlli neccessari al tuo caso.

        Dim num As String()

        num = TextBox1.Text.Split(","c)

        Label1.Text = num(0).Substring(0, 3)
        Label2.Text = num(1).Substring(num(1).Length - 2)

ciao