værdien af pi

Du definerer en konstant med værdien 3.1415926787 (eller noget i den retning...)

Tja - ok. Det undrer mig bare at der ikke er en færdigstrikket funktion a la Math.pi() eller lign

Den findes heller ikke i VBA...

Men på den anden side skulle der så også genereres mange konstanter til brug inden for forskellige områder....

3.1415926535897932 (er forøvrigt en lidt mere præcis værdi!)

Som tipsen siger, det nemmeste er at definere Pi som en konstant (Const Pi=3.1415926535897932). Men hvis du virkelig har behov for at beregne Pi i dit VB program, kunne du evt. bruge denne funktion:


Private Function Pi() As Double
Dim x As Double
Pi = 3
x = 0.1
Do
    Select Case Sin(Pi + x)
        Case Is > 0
            Pi = Pi + x
        Case Is < 0
            x = x / 2
    End Select
    DoEvents
Loop Until x < 1.9E-16
End Function

Takker - det var sådan en ting jeg ledte efter  =o]

Hvis du er blevet bedt om at lave et program som kan beregne pi er det fint, men ellers giver ovenstående bare en mindre præcis approksimation til pi end den værdi jeg skrev ovenfor.