package com::oclib::perl::util::Date;
use com::oclib::perl::lang::Root;
our @ISA = "com::oclib::perl::lang::Root";

use strict;
use warnings;
use utf8; 
my $string_utf = "Нормализатор utf ©";

sub new {
 my $invocant = shift;
 my $class = ref($invocant) || $invocant;
 my $self = {
             classCreated => "20050927",
			 classCreator => "http://www.oclib.com/",
			 classEditors => "http://www.oclib.com/,http://www.krassotkin.ru/",	
			 classHistory => "20070212,20060718,20060617,20050927,20051012,20051103",
			 classIndexLocation => "http://www.oclib.com/library/com/oclib/perl/util/date/",
			 classLocation => "http://www.oclib.com/library/com/oclib/perl/util/Date.pm",
			 className => "Date",
			 classNamespace => "com::oclib::perl::util::Date",
			 classVersion => "20070212", 
			 classVersionIndexLocation => "http://www.oclib.com/library/com/oclib/perl/util/date/20070212/", 
			 classVersionLocation => "http://www.oclib.com/library/com/oclib/perl/util/date/20070212/Date.pm",
			 
			 debugging => 0,
			 tracing => 0,
			 
             @_}; 
 bless($self, $class);
 return $self;
}

sub getNormalizedNow {  
 my $self = shift; 
 my ($SEC,$MIN,$HRS,$DAY,$MON,$YEAR) = (localtime)[0,1,2,3,4,5];
 $YEAR=1900+$YEAR;
 $MON=1+$MON;
 my($SECP, $MINP, $HRSP, $DAYP, $MONP) = ("", "", "", "", "");
 if($SEC<10) {$SECP="0"};
 if($MIN<10) {$MINP="0"};
 if($HRS<10) {$HRSP="0"};
 if($DAY<10) {$DAYP="0"};
 if($MON<10) {$MONP="0"};                                 
 return "$YEAR$MONP$MON$DAYP$DAY$HRSP$HRS$MINP$MIN$SECP$SEC";  
}

sub getNormalizedNowDay {  
 my $self = shift; 
 my ($SEC,$MIN,$HRS,$DAY,$MON,$YEAR) = (localtime)[0,1,2,3,4,5];
 $YEAR=1900+$YEAR;
 $MON=1+$MON;
 my($SECP, $MINP, $HRSP, $DAYP, $MONP) = ("", "", "", "", "");
 if($DAY<10) {$DAYP="0"};
 if($MON<10) {$MONP="0"};                                 
 return "$YEAR$MONP$MON$DAYP$DAY";  
}

sub getNowDate {  
 my $self = shift; 
 return localtime;
}

sub getNowTime {  
 my $self = shift; 
 return time;
}

sub normalize {
 my $self = shift; 
 my $dt = shift;
 my ($SEC,$MIN,$HRS,$DAY,$MON,$YEAR) = localtime($dt);
 $YEAR=1900+$YEAR;
 $MON=1+$MON;
 my($SECP, $MINP, $HRSP, $DAYP, $MONP) = ("", "", "", "", "");
 if($SEC<10) {$SECP="0"};
 if($MIN<10) {$MINP="0"};
 if($HRS<10) {$HRSP="0"};
 if($DAY<10) {$DAYP="0"};
 if($MON<10) {$MONP="0"};                                 
 return "$YEAR$MONP$MON$DAYP$DAY$HRSP$HRS$MINP$MIN$SECP$SEC";  
}
                                       
1;