get day number from date-time

#returns 1 to 365
sub GetDayFromDate($)
  {
  my ($t) = @_;
  return (localtime shift)[7] + 1;
  }

#-- unit tests
sub test_getdayfromdate()
  {
  ut::assert(GetDayFromDate(0), 365);
  ut::assert(GetDayFromDate(28799), 365);
  ut::assert(GetDayFromDate(28800), 1);
  ut::assert(GetDayFromDate(28800 + 60*60*24*365), 1);
  ut::assert(GetDayFromDate(28800 + 60*60*24*366), 2);
  ut::assert(GetDayFromDate(1096523422), 273);
  }

1;