Convert number of days into year, months and days

Question

0.00/5 (No votes)

See more:

i have my code below.i have been able to convert into years months and days.so i add them together to find the average.so if i have for example average = 396 my result should be 1 year, 1month and 6days dis is just and example..i want my output to be like this.

VB

Public Function NaturalLength(length  As integer) As Double
               
               'dim d as Date
               dim year As double
               dim month As double
               dim day  As double
               dim sum  as double
           

'if length =0
'Return String.Empty()
'end if

if length >365.25 then
year =length/ 365.25
length =length  Mod 365.25
length =year *365.25
year =cstr(Math.Floor (length/ 365.25))
year=CInt(fix(length))
'length  =(length  Mod 365.25 )
year = length

end if

if length>=31 And length<366 then
month=length/30.4375
length=length  Mod 30.4375
length=month * 30.4375
month=cstr(Math.Floor (length/30.4375))
month=CInt(fix(length))
'length  =(length  Mod 30.4375)
month=length

end if

if length<31 Then
day =length

end if

sum =(year + month +day)

return sum.tostring()

'return sum.tostring(year+"year" +month+"month"+day+"day")

End Function

in my expression text box i have

=code.NaturalLength(Fields!XXX.value)

i need help on this i try different calculation i got an error..my average looks ok now but to convert in years months and days i still not get into it.

thanks in advance

Posted 26-Nov-12 9:09am

menacy

Add a Solution

Comments

Gregory Gadow 26-Nov-12 15:44pm

I deleted my answer after copying your function and testing it in VS. Your problem seems to be with the algorithm itself.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CPallini · Answer 1 · 2012-11-26T10:04:00

If you really aren't happy with the TimeSpan[^] object, then you probably want something like:

VB

Public Sub NaturalLength(length As Integer, ByRef years As Integer, ByRef months As Integer, ByRef days As Integer)

  Dim remain As Double
  Dim amount As Double

  remain = CType(length, Double)
  amount = remain / 365.25
  years = Math.Truncate(amount)

  remain = remain - years * 365.25
  amount = remain / 30.4375
  months = Math.Truncate(amount)

  remain = remain - months * 30.4375
  days = Math.Truncate(remain)
End Sub

Sub Main() ' Just a test
  Dim length As Integer = 396
  Dim y, m, d As Integer
  NaturalLength(length, y, m, d)
  Console.WriteLine("Years: {0}, months: {0}, days = {0}", y, m, d)
End Sub

By the way:

Quote:
for example average = 396 my result should be 1 year, 1month and 6days

looks wrong to me.

wizardzz · Answer 2 · 2012-11-26T09:23:00

Solution 1

VB

sum =(year + month +day)

return sum.tostring()

What are you doing here? Just adding all these values into a double and returning that? It does not look like it can possibly return what you want as described here:

menacy wrote:
so if i have for example average = 396 my result should be 1 year, 1month and 6days dis is just and example..i want my output to be like this.

Looks like you are close to getting what you want, just think about what you want to do with the year, month, and day values you have calculated.

Posted 26-Nov-12 9:23am

wizardzz

Updated 26-Nov-12 9:25am

v2

Comments

menacy 26-Nov-12 15:39pm

hi Wizardzz,

thanks for your comment. i have im sorry i forgot to take average for my expression as code.Naturallength(avg(Fields!XXX.value)).As your question above i try to add years,months and days, and able to find the sum and average(nearest integer).. i add another function but it still not correct.please anyone can figure it out to me please:

Public Function GetCustomDate(ByVal days As Int32) As String
Dim objDate1 As DateTime = DateTime.Now()
Dim objDate2 As DateTime = objDate1.AddDays(-1 * days)
'This has to be modified as not correct.
Return "Years = " & (objDate1.Year - objDate2.Year) & " Months = " & (objDate1.Month - objDate2.Month) & " Days = " & (objDate1.Day - objDate2.Day)

End Function

the logic was not correct.if i had 61 days= 0years 2months 0days or 1096Days= 3years,0months,0days..

please help...

thanks in advance

Convert number of days into year, months and days

2 solutions

Solution 3

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us