Sletning af sidste 3 cifre

Eksempel:

        Dim a
        Dim ud
        a = 82231
        ud = a.ToString.Substring(0, 2) + "," + a.ToString().Substring(2, 1)
        MsgBox(ud)

/theSurfer

Svar.

/theSurfer

Nok bedre at definere typen af variablerne også:

        Dim a As Integer
        Dim ud As String
        a = 82231
        ud = a.ToString().Substring(0, 2) + "," + a.ToString().Substring(2, 1)
        MsgBox(ud)

Hmm.. den accepter også "ToString" i stedet for "ToString()"..

/theSurfer

cool mange tak for det hurtige svar :D

Det var så lidt.. takker for points, og god aften :-)

/theSurfer

Jeg ville nok anse følgende metode for værende mere korrekt, men det er et spørgsmål om smag. Nedenstående kode giver dig tallet 82,2 ligesom thesurfers kode, men i en Double variabel - dvs. stadig som et egentligt tal og ikke som tekst (der er en forskel :) Desuden fjerner koden de 2 sidste cifre i tallet og gør det 3. sidste til første decimal, hvorimod theSurfers kode benytter de tre første cifre. I dette tilfælde vil begge fremgangsmetoder give samme resultat, men ikke så snart der er tale om et tal med flere eller færre cifre.

Eksempelvis med tallet 123456 vil thesurfers kode give 12,3 hvor nedenstående vil give 123,4. Så det er også et spørgsmål om, hvilket resultat du gerne vil have.

  Dim tal1 As Int32 = 82231
  Dim tal2 As Double = ((tal1 \ 100) / 10)
  MessageBox.Show(tal2)

Først laves heltalsdivision med 100, så de to sidste cifre bliver fjernet og derefter normal division med 10 for at få det ønskede resultat.