Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: String in Datum umwandeln (Dieter müsste wissen wie das geht)
Autor: Noti
Datum: 03.05.03 10:33
hallo vb__, probiers mal mit folgenden Code: Option Explicit Private Type MyDate MyDatum As Date myZeit As Date End Type Private Function MakeDate(sDatum As String) As MyDate Dim Tmp As String, Datum As String, Monat As Byte, XI As Integer Datum = sDatum MakeDate.myZeit = CDate(Mid$(sDatum, 18, 8)) Datum = Format(Mid$(Datum, 6, 11)) Datum = Replace(Datum, " ", ".") Monat = 0 Select Case Mid$(Datum, 4, 3) Case "Jan" Monat = 1 Case "Feb" Monat = 2 Case "Mar" Monat = 3 Case "Apr" Monat = 4 Case "Mai" Monat = 5 Case "Jun" Monat = 6 Case "Jul" Monat = 7 Case "Aug" Monat = 8 Case "Sep" Monat = 9 Case "Oct" Monat = 10 Case "Nov" Monat = 11 Case "Dec" Monat = 11 End Select If Monat = 0 Then MsgBox "übergebenes Datum entspricht nicht dem def. Format !" MakeDate.MyDatum = #1/1/1980# MakeDate.myZeit = #12:00:00 AM# Else Datum = Replace(Datum, Mid$(Datum, 4, 3), Format(Monat, "00")) MakeDate.MyDatum = CDate(Datum) End If End Function Private Sub Form_Load() Dim Datum As MyDate Datum = MakeDate("Fri, 28 Mar 2003 16:26:34 GMT") End Sub mfg. Noti

String in Datum umwandeln (Dieter müsste wissen wie das geht...	1.197	vb__	02.05.03 21:32
Re: String in Datum umwandeln (Dieter müsste wissen wie das ...	618	Dieter	02.05.03 21:53
Re: String in Datum umwandeln (Dieter müsste wissen wie das ...	679	Noti	03.05.03 10:33
Re: String in Datum umwandeln (Dieter müsste wissen wie das ...	559	vb__	03.05.03 11:43

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übersicht

Suchen