Formel um Sekunden in Taktrate zu ermitteln.

17/02/2009 - 20:45 von Klaus Braunert | Report spam
Hallo,

ich suche eine Möglichkeit eine Anzahl von Sekunden in eine Taktung
umzuwandeln.
Beispiel:
Takt 60/20, die Sekundenanzahl ist z.B. 123
Ergebnis müsste 140 sein, da der Takt über 60 Sekunden
ist und danach alle 20 Sekunden addiert wird.

Kann hier jemand helfen?

Viele Grüße an alle
 

Lesen sie die antworten

#1 Matthias Hübner
18/02/2009 - 10:26 | Warnen spam
Salut Klaus,

Klaus Braunert wrote:

Hallo,

ich suche eine Möglichkeit eine Anzahl von Sekunden in eine Taktung
umzuwandeln.
Beispiel:
Takt 60/20, die Sekundenanzahl ist z.B. 123
Ergebnis müsste 140 sein, da der Takt über 60 Sekunden
ist und danach alle 20 Sekunden addiert wird.



Dann geh doch mal schittweise vor:

dim grundtakt As Integer
Dim folgetakt As Integer
Dim sekunden As Integer
Dim anz_grund As Integer
Dim anz_folge As Integer
Dim hilf As Integer
Dim ergebnis As Integer

grundtakt = 60
folgetakt = 20

sekunden = 123
anz_grund = 0
anz_folge = 0

' Anteile Grundtakt bestimmen
'
if sekunden <= grundtakt then
anz_grund = 1 ' das bereitet sicher weiter keine Probleme
else
anz_grund = 1
hilf = sekunden - anz_grund * grundtakt
anz_folge = int(hilf/folgetakt)
if anz_folge * folgetakt < hilf Then
anz_folge = anz_folge + 1
End if
End if
ergebnis = anz_grund * grundtakt + anz_folge * folgetakt


Kann hier jemand helfen?



Das war doch jetzt nicht wirklich schwer. Du fàngst jetzt noch den Fall ab,
daß sekunden <= 0 ist und in der nàchsten Stunde paßt du besser auf!

Ähnliche fragen