q = Quotient[x = 1000, y = 9]

r = Mod[x, y]

q*y + r

Floor[(x/y)]

q = Quotient[x = -1000, y = 9]

r = Mod[x, y]

q*y + r

Floor[(x/y)]