title image


Smiley Re: Text in Datum umwandeln
vereinfacht so:



Public Function CIsoDate(ByVal pString As String) As Date



CIsoDate = CDate(Right(pString, 2) + "." + Mid(pString, 5, 2) + "." + Left(pString, 4))



End Function



cisodate("20060304") liefert Dir dann 04.03.2006



das ganze läßt sich jetzt noch erweitern. Abhängig von der Ländereinstellung musst Du ggf. Tag und Monat tauschen. Außerdem wäre eine Überprüfung auf sinnvolle Werte von pString sinnvoll.


Günter Mühldorfer
gmuehldorfer@cboden.de
Eine kostenlose .NET 2.0 Assembly zum Erstellen von Barcodes gibt es hier .

PS: wer einen Rechtschreibfehler findet, darf ihn behalten ;-)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: