use strict;
use warnings;
use POSIX;
use DBI;
use Crypt::Eksblowfish::Bcrypt qw(bcrypt_hash);
use Math::BaseCalc;

##</code><code>##

sub ReadDaycode {

# Get daycode.
my $DC = $_[0];

# Divide daycode into its parts
my $BoardTotal = $B10->to_base(substr($DC,0,4));
my $AvgSample = $B10->to_base(substr($DC,4,2));
my $Level = $B10->to_base(substr($DC,6,2));
my $Exp = $B10->to_base(substr($SC,8,5));
my $Fails = $B10->to_base(substr($DC,13,2));
return ($BoardTotal,$AvgSample,$Level,$Exp,$Fails);
}