I have a database that has the birth date and age and I want to program the grade level the child is in. The grade level is determined by whether the child's birthday is before August 2nd or after August 1st. I am not familiar with all of the ways of determining dates in Sbasic but I have done these lines from Pre-K thru 12 to determine what grade. But, it is inaccurate when the new school year starts. The .dsr file is attached.

if @add and Age = 7 and Birthday <08/02/2011 then Grade = "2";
if @add and Age = 7 and Birthday >08/01/2011 then Grade = "1";

Can someone help me to determine the correct grade level when the new school year starts?
Thank you very much.
Bob Brandt
bjcbrandt@gmail.com

Hello,

If you are referring to the issue with the hardcoded year, 2011 in your example, you can fix that by changing those two lines to the lines directly below.

if @add and Age = 7 and Birthday < @ToDate("08/02/" + (@Year(@Date) - 7)) then Grade = "2";
if @add and Age = 7 and Birthday > @ToDate("08/01/" + (@Year(@Date) - 7)) then Grade = "1";
 

Also rather than having 2 lines for each grade you can write one routine that handles any age and any birthday.

Var vGrade as Int

If @Add Then
{
	//Calculate initial Grade
	vGrade = Age - 5
	If @ToDate(@Month(Birthday) + "/" + @DOM(Birthday) + "/" + @Year(@Date)) > @ToDate("08/01/" + @Year(@Date)) Then
	{
		//If their Birthday this year is greater than August 1st of this year, bump them down a Grade
		vGrade = vGrade - 1
	}

	If ((vGrade < 0) or (vGrade > 12)) Then
	{
		Clear(Grade)
	}
	Else If vGrade = 0 Then
	{
		Grade = "K"
	}
	Else
	{
		Grade = vGrade
	}
} 

-Ray