Zahl in msgbox formatieren - eleganter?

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zahl in msgbox formatieren - eleganter?

Re: Zahl in msgbox formatieren - eleganter?

von Stephan » 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

Re: Zahl in msgbox formatieren - eleganter?

von Carsten01 » 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.)

Re: Zahl in msgbox formatieren - eleganter?

von Karolus » Mi, 29.10.2014 20:30

Hallo

Code: Alles auswählen

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

Zahl in msgbox formatieren - eleganter?

von Carsten01 » 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

Nach oben