In VB.Net läufts. In VBA nicht :-/

[Rüttli (Gast)]

Hallo Leute,

Habe mir aus einem vorhanden Programm eine Funktion rausgeholt, welche 
unter VB.NET ohne Problem läuft.
Unter VBA in Excel funktioniert es nicht :-(

Folgenden Code in ein Modul verfrachet.
Konnte Ihn auch schon ausführen.
Aber: #WERT!

Public Function GetLogoAbs(ByVal F As Long, ByVal t As Long) As Double
       GetLogoAbs = 0
        Dim B070 As Integer
        Dim B062 As Integer

        Dim B071 As Integer
        Dim B072 As Integer
        Dim B073 As Integer
        Dim B074 As Integer
        Dim B075 As Integer
        Dim B076 As Integer
        Dim B077 As Integer
        Dim B078 As Integer
        Dim B079 As Integer
        Dim B080 As Integer
        Dim B081 As Integer
        Dim B082 As Integer
        
        B070 = Int(t * 10)
        B062 = Int(F * 10)

        B071 = ((B070 * 32443) / 970) + 4849
        B072 = ((B070 * B070) * 3233) / -31970
        B073 = B071 - B072
        B074 = (B070 * B070) / 10
        B075 = (B070 * B070) / 120
        B076 = ((B074 * B070) * 45) / 26020
        B077 = ((B075 * B075) * 26) / -10090
        B078 = B076 - B077
        B079 = B073 + B078
        B080 = B070 / 20
        B081 = B079 + (B080 * (362 / 32000))
        B082 = (B081 * B062) / 1000

        GetLogoAbs = B082 / 1000
        GetLogoAbs = FormatNumber(GetLogoAbs, 1)
    End Function

Ich weiss, die Funktion ist nicht das gelbe vom Ei.
Aber das wurde mal aus einer SPS Steuerung extrahiert.

Woran könnte es liegen?

[Peter II (Gast)]

Rüttli schrieb:
> Unter VBA in Excel funktioniert es nicht :-(

toll, und was geht nicht?

[Rüttli (Gast)]

Die Funktion wird vorher verlassen und gibt #WERT! zurück.
Bin jetzt nicht der VBA Profi. Darum fag ich ja hier.

[Toni Tester (Gast)]

Wie äußert sich das "läuft nicht"? Wird eine Exception geworfen, oder 
liefert sie "nur" nicht erwartungsgemäße Ergebnisse?
In letzterem Fall dürfte es sich wohl entweder um einen Über-/Unterlauf 
oder um einen Rundnungsfehler handeln.
Sind bei VB.Net die Bereichsgrenzen von Integers unterschiedlich? Bzw. 
erweitert VB.Net evtl. automatisch die Bereichsgrenzen entsprechend?

[Peter II (Gast)]

Rüttli schrieb:
> Die Funktion wird vorher verlassen und gibt #WERT! zurück.

dann debugge dich mal durch. Sehe kein Grund warum sie verlassen werden 
sollte.

[Toni Tester (Gast)]

Rüttli schrieb:
> Die Funktion wird vorher verlassen und gibt #WERT! zurück.

An welcher Stelle? Mit welchen Parametern?
Welche Werte haben die Variablen an der Stelle, an der abgebrochen wird?
=> Systematische Fehlersuche!

[MWS (Gast)]

Rüttli schrieb:
> FormatNumber

Wird in VBA halt fehlen.

> Unter VBA in Excel funktioniert es nicht :-(

Dort gibt's die Format-Funktion.

[Rufus Τ. F. (rufus)]

So unsäglich die VBA-Unterstützung des VB-Editors von Excel (und anderen 
Office-Produkten) auch sein mag, sie enthält einen Debugger, mit dem 
man so etwas im Einzelschrittbetrieb durchlaufen kann und sich die 
Inhalte von Variablen anzeigen lassen kann.

[Rüttli (Gast)]

In dieser Zeile springt er raus:
B072 = ((B070 * B070) * 3233) / -31970

Es wird kein Fehler ausgegeben.

Er erreicht Formatnumber erst gar nicht.

[doedel (Gast)]

ein Integer in VBA ist was anderes als ein Integer in VB.NET. Wenn Du 
die Parameter schon als LONG definierst und diese dann mit anderen 
Werten multiplizierst ... warum erwartest Du dann, dass das Ergebnis in 
Integer passt?

[Rüttli (Gast)]

doedel schrieb:
> ein Integer in VBA ist was anderes als ein Integer in VB.NET

Das ist ganz schlecht. Dann würde ja (auch WENN meine Funktion 
funktionieren würde) das Ergebniss verfälscht :-(

[jonasbiensack (Gast)]

VBA kann nur eine Anweisung pro Zeile! Also b = 5+5 aber nicht b = 
(5+5)*a*c;

Gruß J

[Rüttli (Gast)]

Es wird als erstes von zb. 34.5 auf Integerzahl 345 gewandelt.
Das kommt noch von der SPS Steuerung. Die hat eben mit diesem Format 
gearbeitet.
Die Wandlung funktioniert auch noch.

[Peter II (Gast)]

doedel schrieb:
> ein Integer in VBA ist was anderes als ein Integer in VB.NET.

wo hast du das her?

http://www.dotnetperls.com/integer
https://msdn.microsoft.com/de-de/library/06bkb8w2.aspx

scheint überall 32bit zu sein.

[doedel (Gast)]

und wenn wir mal nachrechnen und den kleinsten Wert für f = 1 nehmen:

dann wird B070 = 10

und wie groß ist dann ((B070 * B070) * 3233) / -31970? Nach meiner 
Rechnung 291.330 ... und jetzt schau mal in die Definition von Integer 
und frage Dich, was passiert, wenn Du diesen Wert B072 zuweisen willst.

[doedel (Gast)]

Peter II schrieb:
> doedel schrieb:
>> ein Integer in VBA ist was anderes als ein Integer in VB.NET.
>
> wo hast du das her?
>
> http://www.dotnetperls.com/integer
> https://msdn.microsoft.com/de-de/library/06bkb8w2.aspx
>
> scheint überall 32bit zu sein.

guckst Du Online-Hilfe von Excel: Integer variables are stored as 16-bit 
(2-byte) numbers ranging in value from -32,768 to 32,767. The 
type-declaration character for Integer is the percent sign (%).

[Rüttli (Gast)]

Warum funktioniert das dann im VB.Net?

Dort geht es ohne Probleme.

[doedel (Gast)]

Rüttli schrieb:
> doedel schrieb:
>> ein Integer in VBA ist was anderes als ein Integer in VB.NET
>
> Das ist ganz schlecht. Dann würde ja (auch WENN meine Funktion
> funktionieren würde) das Ergebniss verfälscht :-(

verfälscht wird da gar nichts ... Du musst nur statt Integer in VBA Long 
nehmen und alles wird gut.

[doedel (Gast)]

Rüttli schrieb:
> Warum funktioniert das dann im VB.Net?
>
> Dort geht es ohne Probleme.

Weil ein Integer in VB.NET eben nicht das gleiche ist wie ein Integer in 
VBA. Das versuche ich ja die ganze Zeit zu sagen!

[doedel (Gast)]

jonasbiensack schrieb:
> VBA kann nur eine Anweisung pro Zeile! Also b = 5+5 aber nicht b =
> (5+5)*a*c;
>
> Gruß J

Schmarrn ... natürlich geht das auch in VBA

[Rüttli (Gast)]

Habe jetzt long deklariert. Funktioniert.

Scheinbar ist ein Überlauf in VBA anders als in VB.net

[doedel (Gast)]

ein Überlauf ist ein Überlauf in VBA genauso wie in VB.NET. Wenn man die 
Programmierumgebung wechselt, muss man sich aber halt mit den 
Rahmenbedingungen wie z. B. den Datentyp-Definitionen vertraut machen.

[Michael A. (micha54)]

jonasbiensack schrieb:
> VBA kann nur eine Anweisung pro Zeile! Also b = 5+5 aber nicht b =
> (5+5)*a*c;

Aha. Und woher hast Du diese Weisheit ?

Weder VBA noch VB.NET haben was mit Bascom zu tun.

Zum Thema:
Leider hat der TO nicht geschrieben, mit welchen Programmversionen er 
arbeitet. Bei VBA wärs nicht ganz unwahrscheinlich, wenn integers nur 16 
bit haben. Aber das Zitat von doedel kommt mir auch wie aus dem letzten 
Jahrtausend vor.

Gruß,
Michael

[♪Geist (Gast)]

Probiere Mal die Werte mit Komma und nicht mit Punkt an die Funktion zu 
übergeben.