Attribute VB_Name = "PubFun"
Option Explicit

'#########################################################################
'將用戶輸入的距離參數轉換成vmove和hmove所需參數
Public Function GetDirFromDis(Dist As Long) As Integer
    If Dist >= 0 Then
        GetDirFromDis = 1
    Else
        GetDirFromDis = -1
    End If
End Function