Member Avatar for goboxe

Hi,

I am looking at functions that convert standard date to Julian data and vice versa.

I tried to search the forum, but found nothing.

Thanks,
G

  • 3 Contributors
  • 2 Replies
  • 117 Views
  • 4 Years Discussion Span
  • Latest Post Latest Post by tratak
Member Avatar for tratak

use this:

dim jd as Double ' julian day
dim mDate as date ' your date
mdate = Now()
jd = mdate.ToOADate
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.