Function PI() As Double
'**********************************************************
' PI()を返します
'**********************************************************
PI = Atn(1) * 4
End Function
Function PI() As Double
'**********************************************************
' PI()を返します
'**********************************************************
PI = Atn(1) * 4
End Function