Re: Finding End of Month's date

[gmpassos]

Take a look at Date::Object:

  use Date::Object ;
  
  my $d = Date::Object->new_local(2005 , 1 , 5) ;
  
  my $d_end = $d->clone->set(undef,undef,31) ; ## set(YYYY , MM , DD)

  print "date:     $d\n" ;
  print "date end: $d_end\n" ;
  
  if ( $d == $d_end ) {
    print "Date is the last day of month!\n" ;
  }

Output:

date:     2005-01-05 00:00:00
date end: 2005-01-31 00:00:00

Try to change the inputs for $d on new_local() to match the last day of the month. If you don't paste any argument it will get the actual time.