Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA - ARCTAN in Grad statt Bogenmaß

1,792 views
Skip to first unread message

Uli

unread,
May 26, 2010, 4:46:13 AM5/26/10
to
Hi NG,

ich würde gerne in VBS den Ausdruck a

a = (Atn(Z / x))

in Grad und nicht Bogenmaß erhalten. Irgendwie finde ich in der Hilfe keinen
Befehl - den es garantiert gibt - um das Ergebnis in Grad statt Bogenmaß zu
erhalten. Über einen hilfreichen Tip wäre ich sehr dankbar!!!

In diesem Sinne ...
BESTEN DANK IM VORAUS
beste Grüße
Uli


Peter Schleif

unread,
May 26, 2010, 5:14:25 AM5/26/10
to
Uli schrieb am 26.05.2010 10:46 Uhr:
>
> ich würde gerne in VBS den Ausdruck a
>
> a = (Atn(Z / x))
>
> in Grad und nicht Bogenmaß erhalten.
> Über einen hilfreichen Tip wäre ich sehr dankbar!!!

Der hilfreiche Trick lautet: In der Schule aufpassen. :-)

a = Atn(Z/x) * 180 / 3.1415926

Peter

Uli

unread,
May 26, 2010, 5:28:22 AM5/26/10
to

"Peter Schleif" <peter....@gmx.de> schrieb im Newsbeitrag
news:htioph$a22$1...@news.albasani.net...

ups ... ja, besten Dank. Habe sogar aufgepasst, aber ich dachte, es gibt
eine direkte Möglichkeit (Befehl) für diese Umrechnung!
:-(

Aber trotzdem besten Dank!!!
;-)


Andreas Killer

unread,
May 26, 2010, 6:05:13 AM5/26/10
to
On 26 Mai, 10:46, "Uli" <nur....@gmx.net> wrote:

> a = (Atn(Z / x))
>
> in Grad und nicht Bogenmaß erhalten. Irgendwie finde ich in der Hilfe keinen

Ich hätte da auch einen Vorschlag.

Andreas.

Function Pi() As Double
'Gibt die Zahl Pi zurück
Pi = Atn(1) * 4
End Function

Function Rad(ByVal X As Double) As Double
'Wandelt Grad in Radiant
Rad = X * Pi / 180
End Function

Function Grad(ByVal X As Double) As Double
'Wandelt Radiant in Grad
Grad = X * 180 / Pi
End Function

Peter Schleif

unread,
May 26, 2010, 6:13:05 AM5/26/10
to
Uli schrieb am 26.05.2010 11:28 Uhr:
>
> aber ich dachte, es gibt
> eine direkte Möglichkeit (Befehl) für diese Umrechnung!

Lohnt sich wohl nicht, weil's so einfach ist. Aber Andreas hat ja schon
die selbst gebauten Funktionen gepostet.

Peter

0 new messages