Getting sprite from Spritesheet

[tslusny]

Nevermind, fixed it. Correctly it should look like this:

```

Public Function GetSprite(ByVal Sprite As Long, ByVal Spritesheet As Long)

Dim firstsprite As Long

If Sprite <= 8 Then

GetSprite = Sprite

Exit Function

Else

firstsprite = 8 * (Spritesheet - 1)

GetSprite = Sprite - firstsprite

End If

End Function
```

Hello all  Ik that i should know this, but i really do not like maths 

So what i am trying to do?

This is my function:

```

Public Function GetSpriteFromSpritesheet(ByVal Sprite As Long, ByVal Spritesheet As Long)

If Sprite <= 8 Then

GetSpriteFromSpritesheet = Sprite

Exit Function

Else

GetSpriteFromSpritesheet = Sprite / Spritesheet

End If

End Function

```

**Example values passed into:**

Sprite: 256

Spritesheet: 32

Result is: 8

This above value is perfectly correct, but when i put for example this:

Sprite: 255

Spritesheet: 32

Result is: 7,96875

This above value should be 7 and not 7,96875.

**What i am doing wrong?**

[Matt]

Are you sure its 7,96875 and not 7.96875?

[cheatking]

> Are you sure its 7,96875 and not 7.96875?

Some countries use , instead of .

Truncate the value for a quick fix.

[tslusny]

Nevermind, fixed it. Correctly it should look like this:

```

Public Function GetSprite(ByVal Sprite As Long, ByVal Spritesheet As Long)

Dim firstsprite As Long

If Sprite <= 8 Then

GetSprite = Sprite

Exit Function

Else

firstsprite = 8 * (Spritesheet - 1)

GetSprite = Sprite - firstsprite

End If

End Function
```