This should work
numbervar tsecs := DateDiff("s",DateValue(2011,09,01),DateValue(2011,09,30)); //Get the seconds value first
numbervar nweeks := truncate(tsecs/604800); // divide by the seconds in a week
tsecs := remainder(tsecs,604800); // find the left over seconds
numbervar ndays := truncate(tsecs/86400); // divide by the seconds in a day
//You can go on to get the other parts
//tsecs := remainder(tsecs,86400); // find the left over seconds
//numbervar nhours := truncate(tsecs/3600); // divide by the seconds in an hour
//tsecs := remainder(tsecs,3600); // find the left over seconds
//numbervar nmin := truncate(tsecs/60); // divide by the seconds in a minute
//tsecs := remainder(tsecs,60); // find the left over seconds
// now that we have all the components, we put it together in a sentence
totext(nweeks,0)+" weeks, "+totext(ndays,0)+" days, "//... + totext(nmin,0)+" mins, "+totext(tsecs,0)+" sec."
____________________
Men put up a strong face just to cover their weaknesses...good!
But a smile makes them live longer....
Which would you choose?
Think about it.