Format für mehr als 24 Stunden - Versionsgeschichte

Josef Pötzl um 20:57, 18. Mär. 2011

Josef Pötzl — Fri, 18 Mar 2011 20:57:05 GMT

← Nächstältere Version		Version vom 20:57, 18. Mär. 2011
Zeile 28:		Zeile 28:
	End Function		End Function
	</source>		</source>
		+
		+	Modul
		+	{{websvn.draft\|path=text/StringTools.bas\|text=StringTools.bas}}
		+	Testklasse
		+	{{websvn.draft\|path=_test/text/StringToolsTests.cls\|text=StringToolsTests.cls}}

Josef Pötzl — Fri, 21 Jan 2011 14:32:36 GMT

← Nächstältere Version		Version vom 14:32, 21. Jan. 2011
Zeile 19:		Zeile 19:
	Else		Else
	FormatString = Replace(FormatString, "[hh]", "[h]", , , vbTextCompare)		FormatString = Replace(FormatString, "[hh]", "[h]", , , vbTextCompare)
-	FormatString = Replace(FormatString, "[h]", Replace(CStr(Hours), 0, "\0"), , , vbTextCompare)	+	FormatString = Replace(FormatString, "[h]", Replace(CStr(Hours), "0", "\0"), , , vbTextCompare)
	End If		End If
	End If		End If

Josef Pötzl — Fri, 21 Jan 2011 13:29:20 GMT

← Nächstältere Version		Version vom 13:29, 21. Jan. 2011
Zeile 3:		Zeile 3:
	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel nutzen.		Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel nutzen.

-	Beispiel: <code>Format(Timeserial(60,30,15), "[hh]:nn:ss")</code> ~~=> ''60:30:15''~~	+	Beispiel: <code>Format(Timeserial(60,30,15), "[hh]:nn:ss")</code>
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _

Josef Pötzl — Fri, 21 Jan 2011 13:29:02 GMT

← Nächstältere Version		Version vom 13:29, 21. Jan. 2011
Zeile 3:		Zeile 3:
	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel nutzen.		Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel nutzen.

-	Beispiel: <code>Format(~~CDate(Now~~(~~) - #1/1/2000#~~), "[hh]:nn:ss")</code>	+	Beispiel: <code>Format(Timeserial(60,30,15), "[hh]:nn:ss")</code> => ''60:30:15''
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _
Zeile 18:		Zeile 18:
	FormatString = Replace(FormatString, "[h]", "h", , , vbTextCompare)		FormatString = Replace(FormatString, "[h]", "h", , , vbTextCompare)
	Else		Else
-	FormatString = Replace(FormatString, "[hh]", ~~CStr(Hours)~~, , , vbTextCompare)	+	FormatString = Replace(FormatString, "[hh]", "[h]", , , vbTextCompare)
-	FormatString = Replace(FormatString, "[h]", CStr(Hours), , , vbTextCompare)	+	FormatString = Replace(FormatString, "[h]", Replace(CStr(Hours), 0, "\0"), , , vbTextCompare)
	End If		End If
	End If		End If

Josef Pötzl — Fri, 21 Jan 2011 13:22:51 GMT

← Nächstältere Version		Version vom 13:22, 21. Jan. 2011
Zeile 3:		Zeile 3:
	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel nutzen.		Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel nutzen.

-	Beispiel: <code>Format(~~Time~~(), "[hh]:nn:ss")</code>	+	Beispiel: <code>Format(CDate(Now() - #1/1/2000#), "[hh]:nn:ss")</code>
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _

Josef Pötzl — Fri, 21 Jan 2011 13:20:01 GMT

← Nächstältere Version		Version vom 13:20, 21. Jan. 2011
Zeile 1:		Zeile 1:
	[[Kategorie:Code-Schnipsel]]		[[Kategorie:Code-Schnipsel]]

-	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel (~~'''~~[h]~~'''~~) ~~nutzen.~~	+	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel nutzen.
		+
		+	Beispiel: <code>Format(Time(), "[hh]:nn:ss")</code>
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _

Josef Pötzl — Fri, 21 Jan 2011 13:18:52 GMT

← Nächstältere Version		Version vom 13:18, 21. Jan. 2011
Zeile 1:		Zeile 1:
	[[Kategorie:Code-Schnipsel]]		[[Kategorie:Code-Schnipsel]]

-	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel ('[h]') nutzen.	+	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel ('''[h]''') nutzen.
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _

Josef Pötzl — Fri, 21 Jan 2011 13:18:37 GMT

← Nächstältere Version		Version vom 13:18, 21. Jan. 2011
Zeile 1:		Zeile 1:
	[[Kategorie:Code-Schnipsel]]		[[Kategorie:Code-Schnipsel]]

-	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel (''[h]'') nutzen.	+	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel ('[h]') nutzen.
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _

Josef Pötzl — Fri, 21 Jan 2011 13:18:25 GMT

← Nächstältere Version		Version vom 13:18, 21. Jan. 2011
Zeile 1:		Zeile 1:
	[[Kategorie:Code-Schnipsel]]		[[Kategorie:Code-Schnipsel]]

-	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel ''[h]'' nutzen.	+	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel (''[h]'') nutzen.
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _

Josef Pötzl — Fri, 21 Jan 2011 13:18:05 GMT

← Nächstältere Version		Version vom 13:18, 21. Jan. 2011
Zeile 1:		Zeile 1:
	[[Kategorie:Code-Schnipsel]]		[[Kategorie:Code-Schnipsel]]

-	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel ''[hh]'' nutzen.	+	Für die formatierte Ausgabe eines Datum/Zeit-Wertes (Date-Datentyp) von mehr als 24 Stunden könnte man die Format-Funktion überschreiben und die Syntax von Excel ''[h]'' nutzen.
	<source>		<source>
	Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _		Public Function Format(ByVal Expression As Variant, Optional ByVal FormatString As Variant, _