Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Neue Datumsangabe
Autor: Sifer
Datum: 08.07.03 18:42
Hallo !! Habe ein Problem in VBA. Scheint zwar nicht sehr schwer zu sein, aber ich komm nicht drauf. Ich habe eine datenbank in Acces. ich lese aus einem feld eine Datumsangabe in folgenden Format heraus: "08.07.03 18:38:00" Natürlich mache ich das für mehrere Zeilen. Nun das eigentlich Problem ist, Das für alle datensatzäe in der datenbank die in der Datumsangabe eine zeit von später als 21.30 uhr haben und früher als 00:00 uhr diese sollen das datum das darauffolgenden tages bekommen. und zum einen den tag in ein seperates feld "tag" schreiben und den Monat auch. Bsp.: Einlesewert: "07.05.03 22:22" Ausgabewert: Tag: 08.05.03 Monat: 05.03 habe den quelltext soweit geschrieben und veröffentliche ihn hier. hoffe mir kann jemand den rest geben. Vielen dank cu QUELLTEXT: Function tag_monat() Dim Datenbank As Database Dim TabelleTechInfo As Recordset Dim zeitpunkt As Date Dim Tag As Date Dim Monat As Date Set Datenbank = CurrentDb Set TabelleTechInfo = Datenbank.OpenRecordset("Techinfo", dbOpenTable) TabelleTechInfo.MoveFirst zeitpunkt = TabelleTechInfo!DATUM Tag = Format(zeitpunkt, "hh:mm:ss") Monat = Format(zeitpunkt, "dd.mm.yy") While Not TabelleTechInfo.EOF If ((zeitpunkt < "21:30:00") And (zeitpunkt > "00:00:00")) Then End If End Function

Neue Datumsangabe	502	Sifer	08.07.03 18:42
Re: Neue Datumsangabe	282	Dieter	08.07.03 21:49

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