# NOTE: Derived from web_diary_dir/lib/DateTime/Date.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package DateTime::Date;

#line 155 "web_diary_dir/lib/DateTime/Date.pm (autosplit into web_diary_dir/lib/auto/DateTime/Date/GetTime.al)"
sub GetTime($;$)
{
    my ($self, $tz) = @_;

    require DateTime::Zone;
    $tz ||= 'GMT';
#    die "invalid time data: ", $self->Dump
#	unless $self->IsValid;
    return timegm(0, 0, 0,
		  $self->day, $self->month-1, $self->year-1900)
	- DateTime::Zone::tz_offset($tz);

}

# end of DateTime::Date::GetTime
1;
