Konvertierung Zeit und Datum in String

[Holger.D]

Hallo, ich bin verzweifelt auf der Suche nach einem Stück Coding, dass mir in einem String ein Prefix, ein Datum und die Zeit speichert, das Datum im Format Jahr+Monat+Tag

Bsp: Prefix = "PR" und Datum = 31.05.08 und Zeit = 13:03

Daraus soll werden: PR + 080531 + 1303 also PR0805311303

Ich hatte dazu verschiedene Ansätze:

Dim txtVorgNr
txtVorgNr = "PR" & (DateY & DateM & DateD) & Time

oder

DateFormat ("yymmdd")
txtVorgNr = "PR" & (Date(Now)) & Time

Leider aber gibt es hier immer Fehler. Auch finde ich keinen Befehl, der ein Datum in eine Zeichenkette umwandelt.

Was geht ist die Befehlszeile: txtVorgNr = "PR" & Now

Das ist mir aber zu kryptisch

Danke für eure Hilfe ...

[klaus]

Hier eine Lösung

Sub App_Start
	
  Form1.Show
  
  txtVorgNr=DatumZeit

End Sub

Sub DatumZeit
  Dim tx,txt
	
  tx=SubString(DateY,2,2)
  txt="PR"&tx
  
  tx=DateM
  If StrLength(tx)=1 Then  ' ergänzt mit einer 0 falls nötig
    tx="0"&tx
  End If
  txt=txt&tx

  tx=DateD
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx

  tx=TimeH
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx
 
  tx=TimeM
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx

  Return txt
End Sub

Mit Besten Grüssen

[specci48]

Hallo ihr beiden,

@klaus: warum denn so kompliziert

Meine Lösung wäre

DateFormat("yymmdd")
TimeFormat("HHmm")
txtVorgNr = "PR" & Date(Now) & Time(Now)

Viele Grüße

specci48

[klaus]

Hallo specci48

Vollkommen einverstanden !

In meiner Gegend gibt es ein Sprichwort das sagt:
Warum einfach machen wenn es auch kompliziert geht ? !

Spass beiseite, Deine Lösung gefällt mir auch besser.

Grüsse.

[specci48]

Originally Posted by klaus

Warum einfach machen wenn es auch kompliziert geht ? !

[Holger.D]

Danke für die schnelle Antwort