foreach my $element ( keys %dateparts ) {
	die "No datepart!: $!" unless defined $dateparts{$element};
}