Thema Datum  Von Nutzer Rating
Antwort
15.03.2021 14:05:41 hellofriend
NotSolved
15.03.2021 15:32:58 ralf_b
NotSolved
Rot Finds raus und
15.03.2021 16:02:38 Gaschd'
NotSolved
15.03.2021 16:25:48 hellofriend
NotSolved

Ansicht des Beitrags:
Von:
Gaschd'
Datum:
15.03.2021 16:02:38
Views:
91
Rating: Antwort:
  Ja
Thema:
Finds raus und
Option Explicit
'
Const mc_count As Long = 10 ^ 9
'


Sub MissOderVergiss()
    
    Debug.Print "implizit: " & getTimeImpli()
    Debug.Print "explizit: " & getTimeExpli()
    
End Sub

Function getTimeImpli() As Variant

    Dim i               As Long
    Dim t               As Variant
    Dim k               As Integer
    Dim q               As Double
    
    k = 432
    t = Timer
    
    For i = 0 To mc_count
        q = k
    Next i
    
    getTimeImpli = (Timer - t) & "/sek"
    
    
End Function

Function getTimeExpli() As Variant

    Dim i               As Long
    Dim t               As Variant
    Dim k               As Integer
    Dim q               As Double
    
    k = 432
    t = Timer
    
    For i = 0 To mc_count
        q = CDbl(k)
    Next i
    
    getTimeExpli = (Timer - t) & "/sek"

    
    
End Function


Ergebnis:

implizit: 16,26563/sek
explizit: 15,91016/sek
 


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
15.03.2021 14:05:41 hellofriend
NotSolved
15.03.2021 15:32:58 ralf_b
NotSolved
Rot Finds raus und
15.03.2021 16:02:38 Gaschd'
NotSolved
15.03.2021 16:25:48 hellofriend
NotSolved