Thema Datum  Von Nutzer Rating
Antwort
13.10.2015 11:27:44 Tim
NotSolved
Blau Berechnung des größten Teilers von x, welcher jedoch kleiner ist als y
 13.10.2015 11:55:50 BigBen
*****
Solved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
13.10.2015 11:55:50		 Views:
910		 Rating:
     
Antwort:
 Nein
Thema:
Berechnung des größten Teilers von x, welcher jedoch kleiner ist als y

Hallo,

das ist relativ einfach:

''' <summary>
''' Findet den größten Teiler einer angegebenen Zahl
''' </summary>
''' <parameters name="Value">Zahl von der ein Teoler gefunden werden soll</parameters>
''' <parameters name="MaxDivider">Größter zulässiger Teiler</parameters>
''' <returns>
''' Type: Integer
''' -1 = nicht gefunden
''' > 1 = größter Teiler
''' </returns>
Function findDivider(Value As Integer, MaxDivider As Integer) As Integer
    Dim Divider As Integer
    Divider = MaxDivider
    If Divider > 1 Then
        Do Until Value / Divider = Int(Value / Divider) Or Divider = 1
            Divider = Divider - 1
        Loop
        If Value / Divider = Int(Value / Divider) Then
            findDivider = Divider
        Else
            findDivider = -1
        End If
    Else
        findDivider = -1
    End If
End Function

Diese Funktion sucht nach einem Teiler beginnend vom Maximalen Teiler.

Falls kein Teiler gefunden werden kann, wird "-1" zurück geliefert.

VG, BigBen

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
13.10.2015 11:27:44 Tim
NotSolved
Blau Berechnung des größten Teilers von x, welcher jedoch kleiner ist als y
 13.10.2015 11:55:50 BigBen
*****
Solved