Rund ned

Kom nu jeg har virkelig brug for det

du kan bruge funktionen fix()

eller lave en int()

svar

Kan du ikke komme med et eksempel, jeg kan ikke få det til at virke.

Har fået det til at virke MEN den runder også op. Det kan jeg ikke bruge

Fuck jeg kom til at acceptere...

Er der ikke andre bud , jeg kan bare åbne et nyt spm hvis der er et godt svar. Så i kan få jeres points

bamig>> hvad er problemet med at bruge fix() ?

Det runder ned OG OP det skal KUN runde NED

Ellers var det godt nok

ellers burde du kunne bruge noget i retning af
FormatNumber(tal,0)

eller floor()

Virker ikke den afrunder også Talet

Den ved ikke hvad floor() er!!

MAn kan søge i en streng, men kan ikke lige huske hvordan.

Anyway her er en måde du kan gøre det på...

Private Sub Command1_Click()
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "," Then Exit For
Text2 = Left(Text1, i)
Next i

End Sub

Private Sub Form_Load()
Text1.Text = "95246,112259"
End Sub

- Mikker

bamig
int() og fix() runder begge ned !!!!!

Sub test()
  Dim x, y
  x = 8.8
  y = Int(x) 'giver 8
End Sub

Niels

Tak for eksemplet njh.