title image


Smiley Re: Datumformat-String?
Hi,



erstmal weiß ich nicht welche DB (Access oder MySQL etc.) du benutzt.



Von dem Timestamp ausgegangen, hat er immer das selbe Format. Nun aus Unwissendheit habe ich als Variablentyp, den "Mülleimer der Variablen",

Variant in der Funktion benutzt.



Das Beispiel kannst du selber ausprobieren. Nimm eine Form mit einem Button und einem Textfeld.



Trage in das Textfeld den Timestamp ein.













Option Explicit



Private Sub cmdMach_Click()

    'Button cmdMach

    txtDB.Text = Wandeln(txtDB.Text)

    

End Sub



Private Function Wandeln(strTimestamp As Variant) As String



    Dim strYear As String

    Dim strMonth As String

    Dim strDay As String

    Dim strHour As String

    Dim strMinute As String

    Dim strSecond As String

    

    'hier wird es in seine Einzelteile zerlegt

    

    strYear = CStr(Mid$(strTimestamp, 1, 4))

    strMonth = CStr(Mid$(strTimestamp, 5, 2))

    strDay = CStr(Mid$(strTimestamp, 7, 2))

    strHour = CStr(Mid$(strTimestamp, 9, 2))

    strMinute = CStr(Mid$(strTimestamp, 11, 2))

    strSecond = CStr(Mid$(strTimestamp, 13, 2))

    

    'nun basteln wir den String so wie gewünscht zusammen

    Wandeln = strDay & "." & strMonth & "." & strYear & " " & strHour & ":" & strMinute & ":" & strSecond

    

End Function



Code eingefügt mit Syntaxhighlighter 2.5




. Have a nice day b-b

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: