use lib '.';
use lady_date;
my $date = new Lady_DATE;
print $date->get_days_since_new_year(3,1);

##</code><code>##

sub get_days_since_new_year{

my $self = shift;

my ($__month, $__day) = @_;
my (@monthdays);
@monthdays = ("31","28","31","30","31","30","31","31","30","31","30","31");
my $days = 0;

# you want to skip this month and only go back Feb. Jan
# 01/01 should return 1, not 31+1
while (--$__month > 0){
    $days = $days + $monthdays[$__month];
}