---

Hej...

Jeg har en DB, hvor div. klokkeslæt er gemt i MS's eget dato-decimal-format.

For at omregne dette, har jeg lavet nedenstående funktion. Altså vil
0,2568875 give
et resultat på: 6:09, hvilket jo også er helt korrekt!!! 6:09 svarer jo også
til 6,15 i alm.
decimal-tal... Nu er mit problem så følgende: Hvordan for jeg lavet en lille
funktion, der
laver det omvendte af nedenstående: Altså omregner fra alm. deciamal 6,15
til MS's eget
dato-decimal-format: 0,2568875.


Function strKlokken(dblKlokken As Double)

If IsNull(dblKlokken) Or dblKlokken = 0 Then
strKlokken = "0:00"
Exit Function
End If

Dim dtoValue As Date
Dim strValue As String
Dim strMinutes As String

dtoValue = CDate(dblKlokken)
strValue = Format(DateDiff("h", CDate(0), dtoValue), "##,###") & ":"

strMinutes = Minute(dtoValue)
If Len(strMinutes) = 1 Then strMinutes = "0" & strMinutes

strKlokken = strValue & strMinutes

End Function



mvh.
Andreas

---

Andreas Slot-Henriksen skrev:

> Jeg har en DB, hvor div. klokkeslæt er gemt i MS's eget
> dato-decimal-format.

Hvad er grunden til at du ikke bruger normalt datoformat?


> For at omregne dette, har jeg lavet nedenstående funktion.
> Altså vil 0,2568875 give
> et resultat på: 6:09, hvilket jo også er helt korrekt!!! 6:09
> svarer jo også til 6,15 i alm. decimal-tal...

Jeg kender ikke det format du nævner, men det er svært at se
hvorfor 6,15 = 0,2568875.

Men hvis Cdate(dblValue) giver en dato, så kunne man vel forestille
sig at Cdbl(dateValue) giver en double - og at

   Cdbl( Cdate(dblValue) ) = dblValue
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> Hvad er grunden til at du ikke bruger normalt datoformat?
Jeg har lavet et tidsregistreringssystem. Pga. meget statistik osv.
valgte (pga. lethed) at lægge det i MS's tidsformat. ...og fordi
der i forvejen lå en del poster i samme format fra noget tidl.
registrering...!

> Jeg kender ikke det format du nævner, men det er svært at se
> hvorfor 6,15 = 0,2568875.
Heller ikke her - men du kan f.eks. i Excel prøve i celle A1 (format:
klokkeslæt) at skrive 6:09 (6,15 timer) og i B1 (format: decimal) at
skrive =A1 ...så vi du også her få værdien 0,2568875 !

> Men hvis Cdate(dblValue) giver en dato, så kunne man vel forestille
> sig at Cdbl(dateValue) giver en double - og at
> Cdbl( Cdate(dblValue) ) = dblValue
Det troede jeg nemlig også... men sådan "spiller klaveret" åbenbart slet
ikke ;o(


mvh.
Andreas Slot-Henriksen