Loop problems calculating working hours

[angrymeeow]

Ok here goes...

I'm trying to calculate the number of working days hours minutes etc. between two dates. I've written a formula that should give me this results in seconds (cause I need to do a little formatting some where else). My problem is my test data has roughly two days between them and when I run my report I get an error saying that the loop executed more then the allowed number of times. Can anyone see what I am doing wrong?

Data:
  StartDate = 2/11/2005 04:15:00 PM
  EndDate = 2/13/2005 06:44:42 PM

dateTimeVar start:= {Table.STARTDATE};
dateTimeVar end:= {Table.ENDDATE};

numbervar tsecs:= DateDiff("s",start, end); //The total difference between start and end

//strip out time and add start and end of working day
dateTimeVar startdate:= DateTime (Date(start), Time (07, 00, 00));
dateTimeVar enddate:= DateTime (Date(start), Time (19, 00, 00));

numbervar numsats:= DateDiff("ww", start - 1, end, 7); //Get number of Saturdays in range
numbervar numsuns:= DateDiff("ww", start - 1, end, 7); //Get number of Saturdays in range

//Remove any time before real start if any
if start < startdate then
    tsecs:= tsecs - DateDiff("s",start, startdate);

//Remove any time after real end if any
if end > enddate then
    tsecs:= tsecs - DateDiff("s", enddate, end);

//Remove 12hrs for each Saturday - these will be the 12hrs between 7:00 and 19:00 at the other 12hrs will be handled later
if numsats > 0 then
    tsecs:= tsecs - (numsats * 43200);

//Remove 12hrs for each Sunday - these will be the 12hrs between 7:00 and 19:00 at the other 12hrs will be handled later
if numsuns > 0 then
    tsecs:= tsecs - (numsuns * 43200);

startdate:= DateAdd("h", 12 , startdate); //Add 12hrs to startdate to make time end of working day

//Remove 12hrs for each day between start and end dates
while startdate < enddate do
    tsecs:= tsecs - 43200;
    startdate:= DateAdd("d", 1, startdate);    

tsecs

[red]G[/red][purple]r[/purple][blue]r[/blue][green]r[/green][yellow].[/yellow][white]..[/white][yellow]m[/yellow][green]e[/green][blue]e[/blue][purple]o[/purple][red]w[/red]