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