title image


Smiley Re: Datum-Umwandlung
In ein öffentliches Modul:



Public Function VB_CTime(ByVal dblSec As Double) As Variant

' dblSec = vergangene Sekunden seit 1.1.1970

Dim vStart As Variant



' Fehlerbehandlung abschalten, falls

' dblSec außerhalb des Gültigkeitbereichs

On Error Resume Next

vStart = DateSerial(1970, 1, 1)

VB_CTime = DateAdd("s", dblSec, vStart)

' Fehlerbehandlung wieder einschalten

On Error GoTo 0

End Function



Dann neue Spalte in der Abfrage und aufrufen mit



Datum: VB_CTime([deindatumsfeld])



Aus 1143543580 wird 28.03.2006 10:59:40

Gruß Kay aus Hamburg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: