package Ernad::Tisd;

use strict;
use warnings;

use Carp qw(confess);
#use Date::Format;
use Ernad::Dates;

use Krichel::Tinu;

sub make {
  my $date=shift // confess "I need a date here.";
  if(not Ernad::Dates::is($date)) {
    confess "I don't take $date as a date.";
  }
  my $e=$main::e // confess "Where is my erimp?";
  my $first_issuedate=$e->{'conf'}->{'first_issuedate'};
  my $diff = &Ernad::Dates::diff_dates($first_issuedate,$date);
  $diff=&Krichel::Tinu::code($diff);
  return $diff;
}


1;