Angle between two 2d lines

Does anyone have a function handy that will tell me the angle between two lines.

Ta.

Function Angle#(dx1,dy1,dx2,dy2)

return atan2(dy2,dx2)-atan2(dy1,dx1)

End function

Hope it is of some use :)

Thanks.