fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Vergleich Divisionen

Uploader:	MOD
Datum/Zeit:	17.05.2010 18:39:44

/'

Vorteil Int() mit normaler Division gegenüber Integerdivision!?

'/

Dim As Double s1, s2, e1, e2

Dim As Integer a1, a2

Dim As Integer i1, i2



s1 = Timer

For i1 = 1 To 1000000000

    a1 = (40\2)*3

Next

e1 = Timer - s1



s2 = Timer

For i2 = 1 To 1000000000

    a2 = Int(40/2)*3

Next

e2 = Timer - s2



Print a1, a2

Print

Print "Backslash: " & e1

Print "Funktion:  " & e2

Print

If e1 > e2 Then

    Print "Vorteil Funktion:  " & e1 - e2

ElseIf e1 < e2 Then

    Print "Vorteil Backslash: " & e2 - e1

Else

    Print "Gleich"

EndIf



Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.