Julian til normal dato

foelgende skulle goere det:

function cvt(jd)
  a = jd + 32044
  b = (4 * a + 3) \ 146097
  c = a - (146097 * b) \ 4
  d = (4 * c + 3) \ 1461
  e = c - (1461 * d) \ 4
  m = (5 * e + 2) \ 153
  daypart = e - (153 * m + 2) \ 5 + 1
  monthpart = m + 3 - 12 * (m \ 10)
  yearpart = 100 * b + d - 4800 + m \ 10
  cvt = cstr(daypart) & "-" & cstr(monthpart) & "-" & cstr(yearpart)
end function

cvt(2454855) returnerer "23-1-2009"

hvad er et Julian dato  og hvor bruges det

Antal dage side 1. januar 4713 f.kr..

Jeg har ikke den fjerneste anelse om hvad spørger skal bruge det til.

http://en.wikipedia.org/wiki/Julian_date har detaljerne

Arne_V - Tusind takker!
Det er jo perfekt :) - Smid et svar

kommer her

Og for dem der undrer sig over formlen, så står den på:
  http://www.tondering.dk/claus/cal/node3.html#SECTION003161000000000000000

Tak :)