OpenOffice.info

Verfasst: **Mi, 29.10.2014 20:21**

Kein richtiges Problem, nur eine Frage, ob es eleganter geht. Beim Versuch, die Summe: (Zelle mit Stundenangabe + Zeitvariable) ebenfalls als Stunden ([H]:MM) auszugeben, suchte ich die einfachste Lösung und habe es so gelöst:

Code: Alles auswählen

Zeitfeld=Sheet0.getCellByPosition(0,0)
Zeitdifferenz=0.333333333
Hilfszelle=Sheet4.getCellByPosition(1,1) ' formatiert als [H]:MM
Hilfszelle.value=Zeitfeld.value+Zeitdifferenz
msgbox("Stundenzahl: " + Hilfszelle.string + "h")

Inhalt von Zeitfeld soll nicht angetastet werden. Direkt Zeitfeld.value+Zeitdifferenz wunschgemäß formatiert in der msgbox-Anweisung hab ich nicht hinbekommen.

_________________
Moderation: Thema von OOo Calc nach OOo Basic und Java verschoben, wo alle Themen zur individuellen Programmierung hingehören.—lorbass, Moderator

Verfasst: **Mi, 29.10.2014 20:30**

Hallo

Code: Alles auswählen

msgbox format(zeitfeld.Value + 0.333333333 , "[hh]:mm \h")

Karolus

Verfasst: **Do, 30.10.2014 22:09**

Danke, funktioniert hier leider nicht. (OO 1.1.5, da ich mich noch für keine aktuelle Version so richtig erwärmen konnte.)

Verfasst: **Do, 30.10.2014 23:12**

Dann rechne es mittels Operatoren aus:

Code: Alles auswählen

a = ((zeitfeld.Value + 0.333333333) + 0.33)*24
b = INT(a)
Msgbox b & ":" & INT((a - b)*60) & " h"

meinethalben substituiere auch noch das INT(), z.B.:

Code: Alles auswählen

a = ((zeitfeld.Value + 0.333333333) + 0.33)*24
For i = 0 To a
	b = i
Next i
For i = 0 To (a - b)*60
	c = i
Next i
Msgbox b & ":" & c & " h"

Gruß
Stephan

OpenOffice.info

Zahl in msgbox formatieren - eleganter?

Zahl in msgbox formatieren - eleganter?

Re: Zahl in msgbox formatieren - eleganter?

Re: Zahl in msgbox formatieren - eleganter?

Re: Zahl in msgbox formatieren - eleganter?