Thema Datum  Von Nutzer Rating
Antwort
11.01.2022 15:41:31 Flyinggancho
NotSolved
Blau Function mit Point als Rückgabewert
 11.01.2022 16:05:45 Mase
NotSolved
11.01.2022 16:20:15 volti
NotSolved
11.01.2022 18:26:18 Flyinggancho
NotSolved
11.01.2022 18:39:12 volti
NotSolved
11.01.2022 20:42:48 Flyinggancho
Solved

Ansicht des Beitrags:
Von:
Mase		 Datum:
11.01.2022 16:05:45		 Views:
862		 Rating:
     
Antwort:
  Ja
Thema:
Function mit Point als Rückgabewert		 
Option Explicit

Type Point
    x As Double
    y As Double
End Type

Sub main()
    
    '*** Entweder
    Dim p As Point
    
    p = XYPoint(1, 2, 3, 4)

    Debug.Print p.x
    Debug.Print p.y
    
    '*** Oder
    Debug.Print XYPoint(1, 2, 3, 4).x
    Debug.Print XYPoint(1, 2, 3, 4).y
    
End Sub


Function XYPoint(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Point
    
    Dim vh As Double, vg As Double
    
    
    vh = x1 * x2
    vg = y1 + y2
    
    XYPoint.x = vh
    XYPoint.y = vg
    
    
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.01.2022 15:41:31 Flyinggancho
NotSolved
Blau Function mit Point als Rückgabewert
 11.01.2022 16:05:45 Mase
NotSolved
11.01.2022 16:20:15 volti
NotSolved
11.01.2022 18:26:18 Flyinggancho
NotSolved
11.01.2022 18:39:12 volti
NotSolved
11.01.2022 20:42:48 Flyinggancho
Solved