German Konvertierung Zeit und Datum in String

Discussion in 'German Forum' started by Holger.D, May 9, 2008.

  1. Holger.D

    Holger.D New Member Licensed User

    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 ... :sign0085:
     
  2. klaus

    klaus Expert Licensed User

    Hier eine Lösung

    Code:
    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
     
    Last edited: May 9, 2008
  3. specci48

    specci48 Well-Known Member Licensed User

    Hallo ihr beiden,

    @klaus: warum denn so kompliziert :confused: :sign0013:

    Meine Lösung wäre
    Code:
    DateFormat("yymmdd")
    TimeFormat(
    "HHmm")
    txtVorgNr = 
    "PR" & Date(Now) & Time(Now)

    Viele Grüße

    specci48
     
  4. klaus

    klaus Expert Licensed User

    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.
     
    RauchG likes this.
  5. specci48

    specci48 Well-Known Member Licensed User

    :):):)
     
  6. Holger.D

    Holger.D New Member Licensed User

    Prima

    Danke für die schnelle Antwort
    :sign0060:
     
  7. arnold steger

    arnold steger Member Licensed User

    Hallo, ich bekomme diesen Code irgendwie nicht hin.
    Habe eine txt Datei mit mehreren Zeilen.
    Ich müsste den Zeitunterschied zwischen Zeit von Zeile 1 mit der Zeit von Zeile 2 ausgeben
    Beispiel:
    xxx,xxx,xxx,20150723_210101,xxx,xxx,xxx,
    ...
    xxx,xxx,xxx,20150723_220101,xxx,xxx,xxx,

    Ich dachte mir in der Art es zu schaffen, hänge aber am aufsplitten

    Code:
    Dim ZeitStart,ZeitEnde,ZeitDiff As Long
            
    Dim ZeitTemp1()As String =Regex.Split(",",listtemp.Get(1))
                ZeitStart=
    DateTime.DateTimeParse(ZeitTemp1(3),ZeitTemp1(3))
            
    Dim ZeitTemp2()As String =Regex.Split(",",listtemp.Get(listtemp.Size-1))
                ZeitEnde=
    DateTime.DateTimeParse(ZeitTemp2(3),ZeitTemp2(3))
    Ich bitte um eure Hilfe...
     
  8. MaFu

    MaFu Well-Known Member Licensed User

    Probier mal so:
    Code:
    Dim ZeitStart,ZeitEnde,ZeitDiff As Long
    DateTime.DateFormat = "yyyyMMdd"
    DateTime.TimeFormat = "HHmmss"
    Dim ZeitTemp1() As String = Regex.Split(",",listtemp.Get(1))
    Dim DT1() As String = Regex.Split("_",ZeitTemp1(3))
    ZeitStart=
    DateTime.DateTimeParse(DT1(0),DT1(1))
    Dim ZeitTemp2() As String = Regex.Split(",",listtemp.Get(listtemp.Size-1))
    Dim DT2() As String = Regex.Split("_",ZeitTemp2(3))
    ZeitEnde=
    DateTime.DateTimeParse(DT2(0),DT2(1))
     
    arnold steger likes this.
  9. KMatle

    KMatle Expert Licensed User

    Code:
    Form1.Show
    :D:D:D
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice