Thema Datum  Von Nutzer Rating
Antwort
20.01.2020 09:49:00 BastiB
NotSolved
20.01.2020 10:18:45 Torsten
NotSolved
20.01.2020 10:53:01 Gast68272
NotSolved
20.01.2020 11:04:48 Torsten
NotSolved
20.01.2020 11:37:53 BastiB
NotSolved
Blau Multiplikation von Zeit mit Zahlenwert
20.01.2020 11:57:24 Torsten
Solved
22.01.2020 07:57:16 BastiB
NotSolved
22.01.2020 08:02:54 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Torsten
Datum:
20.01.2020 11:57:24
Views:
480
Rating: Antwort:
 Nein
Thema:
Multiplikation von Zeit mit Zahlenwert

Hallo Basti,

Problem hier ist, dass die Zeit als Text (String) vorliegt. Diese muss zuerst in ein Datum(Zeitwert) umgewandelt werden und diesen kann man dann in eine Dezimalzahl umwandeln, mit der man rechnen kann. Koennte man auch in einer Tabelle machen, muss man aber nicht. Alles mit Variablen:

Sub Start()

  Dim t As String
  Dim dblT As Double, Ergebis As Double
  Dim datT As Date

  laufZeit = Now + TimeValue("00:00:01")

  t = Format(Time - aktZeit - pausTime, "hh:mm:ss")
  datT = CDate(t)   'Umwandlung des Srings in ein Datum
  dblT = CDbl(datT) 'Umwandlung des Datums in eine Dezimalzahl
  Ergebnis = dblT * 200 / 3600  'Berechnung

  Unsinn_Calc.TextBox1.Value = t
  Unsinn_Calc.TextBox3.Value = Ergebnis     'Ausgabe in einer weiteren Textbox

  Application.OnTime laufZeit, "Start"

End Sub

ich denke mal, so sollte es funktionieren.

Habe hier mal als Ausgabe eine neue Textbox3 gewaehlt. Kannst du ja noch aendern. Das EURO zeichen musst du dann irgendwie mit einem Label hinzufuegen oder so.

Gruss Torsten


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
20.01.2020 09:49:00 BastiB
NotSolved
20.01.2020 10:18:45 Torsten
NotSolved
20.01.2020 10:53:01 Gast68272
NotSolved
20.01.2020 11:04:48 Torsten
NotSolved
20.01.2020 11:37:53 BastiB
NotSolved
Blau Multiplikation von Zeit mit Zahlenwert
20.01.2020 11:57:24 Torsten
Solved
22.01.2020 07:57:16 BastiB
NotSolved
22.01.2020 08:02:54 Torsten
NotSolved