For Programmers: Free Programming Magazines  


Home > Archive > ASP > August 2005 > Jear function









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Jear function
Robert

2005-08-23, 6:55 pm

Hello, i have a function, thet show me the jears, from now until 5 jears
later.

That happens with this function:

Function JaarArray
Dim sJaar()

redim sJaar(Year(Date)+6-2005,2)
i=1
For p = 2005 to Year(Date)+5
sJaar(i,1) = (p)
sJaar(i,2) = (p)
i=i+1
next
JaarArray = sJaar
End function

Who can change this function, zo he do this:

He must show, all years, from 1950, until now, but now we are
in the year 2005, buth he must automaticly change 2005 to 2006, zo then i
can see
1950, until 2006..

Who kan help me with this function?



Bullschmidt

2005-08-23, 6:55 pm

Perhaps change this:

For p = 2005 to Year(Date)+5

To be this instead:

For p = 1950 to Year(Date) + 1

Best regards,
J. Paul Schmidt, Freelance ASP Web Developer
http://www.Bullschmidt.com
ASP Design Tips, ASP Web Database Demo, Free ASP Bar Chart Tool...

<<
Hello, i have a function, thet show me the jears, from now until 5 jears
later.

That happens with this function:

Function JaarArray
Dim sJaar()

redim sJaar(Year(Date)+6-2005,2)
i=1
For p = 2005 to Year(Date)+5
sJaar(i,1) = (p)
sJaar(i,2) = (p)
i=i+1
next
JaarArray = sJaar
End function

Who can change this function, zo he do this:

He must show, all years, from 1950, until now, but now we are
in the year 2005, buth he must automaticly change 2005 to 2006, zo then
i
can see
1950, until 2006..

Who kan help me with this function?[color=darkred]

*** Sent via Developersdex http://www.developersdex.com ***
Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com