Sekunden und Millisekunden zusammensetzen. Wie?

[Accenter]

Wie bekomm ich es hin, dass ich 2 Variablen zusammenbaue in folgendem Format:

Variable1 sind meine Sekunden.
Variable2 sind meine Millisekunden

Beispiel:
Variable1 = 3 Sekunden
Variable2 = 215 Millisekunden

Ich möchte das in einer Variablen als Egebnis zusammengesetz haben:

3,215 Sekunden

[hardware.bas]

In EINER Variable geht das schlecht, da das Uhrzeitformat so wie wirs
kennen, keinem reinen Zahlencode entspricht. Man könnte höchstens
folgenden Umweg nutzen:
Gesamtsekundenzahl = Minutenzahl * 60
Gesamtsekundenzahl = Gesamtsekundenzahl + Sekundenzahl
und Rückrechnung wäre z.B.:
Minutenzahl = Gesamtsekundenzahl/60
Zwischenvariable = Minutenzahl * 60
Sekundenzahl = Gesamtsekundenzahl - Zwischenvariable
VG Micha

[Sauerbruch]

Wenn Du die zusammengesetzte Variable als "Sekunde" darstellen möchtest, brauchst Du einen Variablentypen mit "Fließkomma" - also entweder Single oder Double.

Eine Lösungsmöglichkeit wäre diese hier:



Dim Sekunden As Byte
Dim Millisekunden As Word
Dim Ergebnis As Single


Ergebnis = Millisekunden
Ergebnis = Ergebnis / 1000
Ergebnis = Ergebnis + Sekunden

[Accenter]

Super, danke! Genau das was ich gesucht habe.

[PICture]

Hallo!

@ Accenter

Wäre es nicht einfacher: "dim sekunden als single" und dann die Variable in ms eingeben z.B. für 3,215 Sekunden = 3215 ms ?

MfG

[Accenter]

Wäre einfacher aber meine Programmstruktur ist anders. Müsste einiges ändern damit das direkt in ms ginge.

[PicNick]

Ich weiss nicht, was du dann mit der zusammengesetzen Variable tun wirst

Wenn's nur für's Display ist, geht es auch so



Dim Outpt As String * 20

Dim Sek As Word
Dim Msek As Word

Sek = 3
Msek = 215

Outpt = Str(sek) + "," + Str(msek)

Print Outpt

[Accenter]

Muss leider auch damit rechnen.