Formatierung bei benutzerdef. Fkt.
27.07.2005 11:52:06
Dieter
ich habe mir eine benutzerdefinierte Funktion geschrieben, die die typischen SQL-Sekunden in ein Datum umwandelt.
Function sek1970todate(sek As Long) As Date
' Berechnen der Sekunden (z.B. aus SQL) in ein Datum
' 25569 = Abstand zwischen 01.01.1970 und 01.01.1900 in Tagen
' 86400 = Sekunden eines Tages
Dim ergebnis As Double
ergebnis = 25569 + sek / 86400
sek1970todate = ergebnis
End Function
Wie schaffe ich es, daß das Ergebnis auch gleich als Datum angezeigt wird? Bis jetzt erhalte ich nur die Standardformatierung (also z.B. 38553,67752) und muß dann noch formatieren.
Gruß
Dieter
Anzeige