vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: Access 97 - String in Datum umwandeln 
Autor: srcdbgr
Datum: 08.05.07 08:30

z.B. so:
'Umwandlung eines DatumZeitStempels in ein Datumsfeld
Public Function ConvertDateTimeStampToDate(Datum As String) As Date
    'Deklarationen
    Dim strDatumZeit As String
    Dim strDatum As String
    Dim strDD As String
    Dim strMM As String
    Dim strYYYY As String
    Dim strZeit As String
    Dim strHH As String
    Dim strMI As String
    Dim strSS As String
 
    'benötigte Strings erstellen
    strDatum = Left(Datum, 8)
    strDD = Right(strDatum, 2)
    strMM = Mid(strDatum, 5, 2)
    strYYYY = Left(strDatum, 4)
    strZeit = Right(Datum, 6)
    strHH = Left(strZeit, 2)
    strMI = Mid(strZeit, 3, 2)
    strSS = Right(strZeit, 2)
 
    'erstellte Strings formatieren
    strDatum = strDD & "." & strMM & "." & strYYYY
    strZeit = strHH & ":" & strMI & ":" & strSS
 
    'Returnwert
    strDatumZeit = strDatum & " " & strZeit
    ConvertDateTimeStampToDate = CDate(strDatumZeit)
End Function
Aufruf über:
Dim meinDatum As Date
Dim meinDatumZeitStempel As String
 
meinDatumZeitStempel = CStr(meinRecordset.Fields("hier das Feld aus der DB" & _
  "einfügen").Value)
meinDatum = ConvertDateTimeStampToDate(meinDatumZeitStempel)
Das kann man auch kompakter schreiben, aber ich denke, so ist der Weg klarer.

Gruß,
Michael

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Access 97 - String in Datum umwandeln1.360MitchFH07.05.07 22:28
Re: Access 97 - String in Datum umwandeln723srcdbgr08.05.07 08:30

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel