On Fri, 23 Aug 2002 14:41:51 +0200, "Jan Bang Madsen" <jbm@jbmsoft.dk>
wrote:
>Jørn jeg tror jeg har fundet en funktion som du har lavet som lige er det
>jeg mangler.
Det er nu ikke mig, men Lauritz Jensen, som for et års tid siden var
meget aktiv i denne gruppe. Æres den som æres bør
<URL:
http://groups.google.com/groups?hl=da&selm=1879jt0nj8ng3066tpe91bs1frm82c7u2p%404ax.com>
>Jeg håber du vil hjælpe mig med rette den til
>
>Function DateToSql(Value)
> DateToSql = "DateSerial(" & Year(Value) & ", " & _
> Month(Value) & ", " & _
> Day(Value) & ") + " & _
> "TimeSerial(" & Hour(Value) & ", " & _
> Minute(Value) & ", " & _
> Second(Value) & ")"
>End Function
>
>Jeg skal ikke bruge Now men en variable der hedder dato og der er kun dato
>og ikke klokkesket jeg skal bruge.
Det lyder underligt for mig.
*Værdien* i Dato/Tid-felter i fx en Access-database omfatter både dato
og tid - uanset at du måske har formatteret den til kun at *vise* dato
eller tid.
Derfor er der i mit hoved ingen grund til at ændre funktionen. - Men
du kan selvfølgelig have en grund, som jeg ikke har tænkt på :)
Hvis du alligevel vil ændre den, kan du enten sætte tiden til 0:00:00
(som databasen formentlig selv gør pr. default, hvis du kun indsætter
en dato) - det kunne se sådan ud:
Function DateToSql(Value)
DateToSql = "DateSerial(" & Year(Value) & ", " & _
Month(Value) & ", " & _
Day(Value) & ") + " & _
"TimeSerial(" & Hour(0) & ", " & _
Minute(0) & ", " & _
Second(0) & ")"
End Function
Eller du kan simpelthen skære TimeSerial-delen af:
Function DateToSql(Value)
DateToSql = "DateSerial(" & Year(Value) & ", " & _
Month(Value) & ", " & _
Day(Value) & ")"
End Function
>Jeg håber du kan hjælpe mig
Håber det har hjulpet dig på vej.
Good luck!
--
Jørn Andersen,
Brønshøj