Solved: Compute Months And Days From Decimal Value...

[Wolfgang]

Dear All?

I have this decimal value: 1.711061088 meaning 1 year plus .711061088 of that year?

Now, is it possible to compute that value into months and days such as 1 year plus x-months plus x-days?

Thank you,

Wolfgang

[Bob Phillips]

Wolfgang, the problem is starting from where. For instance, 30 days after 1st Jan is 30th Jan, 30 days past 1st Feb is 3rd Mar. This code will add it to the 1st Jan of this year, but assumes the year has 365 days

Dim nTime As Double
Dim dte As Date
nTime = 1.711061088
dte = DateSerial(Year(Date), 1, 1) + nTime * 365
MsgBox dte

Sorry about the linebreaks (lack of), VBAX is just not playing for me at the moment.

[Norie]

Wolfgang

What year does 1 actually represent?

[Wolfgang]

Hi Bob...

Thank you very much for your idea...I will give it a try...

Best,
Wolfgang

[Wolfgang]

Hi Norie...

The 1 represents the current year...and the stuff which follows represent the remaining months and days...

Best,
Wolfgang

[Wolfgang]

Hi Bob,

"Don't Let Me Be Misunderstood"...I wasn't too specific with my problem...

The number 1.711061088 actually represents a difference between two dates so, 1 designates One Year and the rest is the fraction of that year...

The result should be a breakdown of a year...

If I'm not totally mistaken .711061088 equals the end of August???!!!

Best,
Wolfgang

[Bob Phillips]

It comes out as 16th Sep for me, which is whta displays.

[Wolfgang]

Hi Bob...

That's what I meant by "End Of August"....

Thank you very much,
Wolfgang