Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Sekundengenau
Autor: Denyo
Datum: 12.11.01 15:03
Wer kann mir helfen. Ich will, dass KostenE.Text Sekundengenau ausgegeben wird! Stimmt was mit dem Mod Befehl nicht? Private Sub StartB_Click() Dim Dauer1 As Variant Dim Sekundenk As Currency Dim Gesamt As Currency Start = Now StartB.Enabled = False StopB.Enabled = True GGehalt = GGehalt * I Do Until StopB.Enabled = False Halt = Now Dauer = DateDiff("s", Start, Halt) DauerE.Text = Format$(TimeSerial(0, 0, Dauer), "hh:nn:ss") Sekundenk = GGehalt / 331 / 24 / 60 / 60 Dauer1 = Dauer If Dauer1 Mod 60 <> 0 Then Dauer1 = Dauer1 60 + 1# Else Dauer1 = Dauer1 60 End If If Dauer1 <= 0 Then KostenE.Text = "0" Else Gesamt = Sekundenk * Dauer1 - Sekundenk KostenE.Text = Format(Gesamt, "#0") DoEvents End If Loop End Sub

Sekundengenau	130	Denyo	12.11.01 15:03
Re: Sekundengenau	185	Dieter	12.11.01 15:19
Dan	29	Denyo	12.11.01 15:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen