#########################################################
# PRE-RELEASE MODULE
# Module: LADY /DATE.pm   (JULIAN)LADY Dating Methods
# Version BETA 1.0 r 1  02-06-2001
# Author: C. Prichard
# COPYRIGHT: GREENTVŠ Charles Prichard -1999- All Rights Reserved.
# greentv@paulbunyan.net
#
# This module is a collection of methods needed
# to access and set a date in a format that is
# applicable to computer aging methods.
package Lady_DATE;

use strict;
#################################################
#  Sub new                                  #
#################################################
#################################################
#   PUBLIC Subroutine                           #
#################################################
sub new (;$){

    my $class = shift;

    my $self = {};
    
    bless $self, ref $class || $class;
    
    $self->{current_century} = 21;
    $self->{this_century} = undef;
    $self->{this_year_days} = undef;
    $self->{lady_time} = undef;
    $self->{lady_date} = undef;
    $self->{time} = undef;
    
    $self->{calculated_time} = undef;

    $self->{MONTHDAYS} = [];
    
    $self->init(@_);
    
    return $self;

}
sub init(;$){
    
    my $self = shift;
    
    $self->{MONTHDAYS} = (31,28,31,30,31,30,31,31,30,31,30,31);

    $self->{this_century} = $self->get_century();
    
    if ($_[0]){$self->{lady_time} = shift;}
    
    else{ 
    
        $self->{lady_date} = $self->get_this_century_lady_date (0,0,0)
+;
    
        $self->{time} = $self->get_time();
        
        $self->{lady_time} = $self->{this_century} . $self->{lady_date
+} . $self->{time};
    
    }

    return;
}
#################################################
#  Sub lady_time                            #
#################################################
sub lady_time(){
    
    my $self = shift;
        
return $self->{lady_time};
}
#################################################
#  Sub print_lady_date                          #
#################################################
sub print_lady_date(;$$$){
    
    my $self = shift;
    
    my ($yr,$mo,$da) = @_;
    
    if(($yr+$mo+$da) == 0){
            
            $self->{lady_date} = $self->get_this_century_lady_date (0,
+0,0);
    }
    else{
    
        $mo++;
    
        $self->lady_date = $self->get_this_century_lady_date ($yr,$mo,
+$da);
    
    }
    
    print "Lady Date: $self->lady_date\n";
}
#################################################
#     Sub get_this_century_lady_date            #
#################################################
sub get_this_century_lady_date(;$$$){    
    
    my $self = shift;
    
    my ($yr, $mo, $da) = @_;
    
    if ((($yr < 100) && ($yr >= 0)) && (($mo < 12) && ($mo >= 0)) && (
+($da < 32) && ($da > 0))){
        
        $self->{lady_date} = $self->get_lady_date($yr, $mo, $da);
    }
    else{    
    
        ($yr, $mo, $da) = (localtime)[5,4,3];

        $self->{lady_date} = $self->get_lady_date($yr, $mo, $da);
    }
    
    return;
}
#################################################
#     Sub get_date                               #
#################################################
sub get_lady_date{

    my $self = shift;

    my ($yr, $mo, $da) = @_;

    $self->{lady_date};
    
    if ($mo > 0){
    
        --$mo;
    
        $self->{this_year_days} = $self->get_days_since_new_year($mo,$
+da);
    }
    else{ $self->{this_year_days} = $da;}

    $self->{lady_date} = (($yr * 1000) + $self->{this_year_days}) % 10
+0000; 

    my $i;

    my $zeros = 5 - length($self->{lady_date});
    
    for ($i=1; $i <= $zeros; $i++){$self->{lady_date} = "0".$self->{la
+dy_date};}
    
    return $self->{lady_date};
}

#################################################
#     Sub get_days_since_new_year               #
#################################################
sub get_days_since_new_year{

    my $self = shift;

    my ($mo, $da) = @_;

    $self->{this_year_days} = 0;

    while ($mo >= 0){
        
        my @TEMP = $self->{MONTHDAYS};
        
            $self->{this_year_days} = $self->{this_year_days} + $TEMP[
+$mo];
            --$mo;
    }
    
    $self->{this_year_days} = $self->{this_year_days} + $da;
    
    return $self->{this_year_days};
}

#################################################
#     Sub get_time                       #
#################################################
sub get_time(){
    
    my $self = shift;
    
        my ($hr, $min, $sec) = (localtime)[2,1,0];
        
        if ($hr  < 10){$hr =  "0".$hr;}
        if ($min < 10){$min = "0".$min;}
        if ($sec < 10){$sec = "0".$sec;}
        
        $self->{time} = $hr.$min.$sec;
        
        return $self->{time};
}

#################################################
#     Sub get_century                       #
#################################################
sub get_century(){
    
    my $self = shift;
    
    $self->{this_century} = $self->{current_century} - 1;

    return $self->{this_century};
}

#################################################
#     Sub Add_minutes_to_lady_time              #
#################################################
sub add_minutes_to_this_lady_time($;$){
    
    my $self = shift;

    my $minutes_to_add = shift;
    
    my $this_time;
    
    if (!$_[0]){$this_time = $self->{lady_time};}
    
    chop $this_time;# Eliminate seconds.
    chop $this_time;
    
    my $years_to_add = int($minutes_to_add / 525600) * 10000000;
    my $days_to_add  = int($minutes_to_add / 1440) % 365 * 10000;
    my $hours_to_add = int($minutes_to_add / 60) % 24 * 100;
    
    $minutes_to_add = $minutes_to_add % 60;
    
    my $time_to_add = $years_to_add + $days_to_add + $hours_to_add + $
+minutes_to_add;
    
    my $this_time_years = int($this_time / 10000000);
    my $this_time_days = (($this_time - $this_time_years * 10000000) /
+ 10000) % 365;
    my $this_time_hours = ((($this_time - $this_time_years * 10000000)
+ - $this_time_days * 10000) / 100) % 24;
    my $this_time_minutes = ((($this_time - $this_time_years * 1000000
+0) - $this_time_days * 10000) - $this_time_hours * 100) % 60;
    my $new_time_minutes = ($this_time_minutes + $minutes_to_add) % 60
+;
    
    if ($new_time_minutes < 10){$new_time_minutes = "0".$new_time_minu
+tes;}
    my $new_time_hours = ($this_time_hours + $hours_to_add/100 + int((
+$this_time_minutes + $minutes_to_add) / 60)) % 24;
    
    if ($new_time_hours < 10){$new_time_hours = "0".$new_time_hours;}
    my $new_time_days = ($this_time_days + ($days_to_add / 10000) + in
+t(($this_time_hours + $hours_to_add/100) / 24)) % 365;
    
    if (($new_time_days < 100) && ($new_time_days > 9)){$new_time_days
+ = "0".$new_time_days;}
    if ($new_time_days < 10){$new_time_days = "00".$new_time_days;}
    my $new_time_years = $this_time_years + $years_to_add + int(($this
+_time_days + $days_to_add / 10000) / 365);
    
    return ($self->{calculated_time} = $new_time_years.$new_time_days.
+$new_time_hours.$new_time_minutes."00");

}
#################################################
#     Sub Subtract_minutes_from_lady_time       #
#################################################
sub subtract_minutes_from_this_lady_time($;$){
    
    my $self = shift;
    
    my $minutes_to_subtract = shift;
    
    my $this_time;
    
    if (!$_[0]){$this_time = $self->{lady_time};}
    
    chop $this_time; #Eliminate seconds.
    chop $this_time; 
    
    my $years_to_subtract = int($minutes_to_subtract / 525600) * 10000
+000;
    my $days_to_subtract = int($minutes_to_subtract / 1440) % 365 * 10
+000;
    my $hours_to_subtract = int($minutes_to_subtract / 60) % 24 * 100;
    
    $minutes_to_subtract = $minutes_to_subtract % 60;
    
    my $this_time_years = int($this_time / 10000000);
    my $this_time_days = (($this_time - $this_time_years * 10000000) /
+ 10000) % 365;
    my $this_time_hours = ((($this_time - $this_time_years * 10000000)
+ - $this_time_days * 10000) / 100) % 24;
    my $this_time_minutes = ((($this_time - $this_time_years * 1000000
+0) - $this_time_days * 10000) - $this_time_hours * 100) % 60;
    my $new_time_minutes = $this_time_minutes - $minutes_to_subtract;
    if ($new_time_minutes < 0){
        $this_time_hours--;
        $new_time_minutes = 60 + $new_time_minutes;
        if ($this_time_hours < 0){
            $this_time_days--;
            $this_time_hours = 23;
            if ($this_time_days < 1){
                $this_time_years--;
                $this_time_days = 365;
                
            }
        }
    }
    if ($new_time_minutes < 10){$new_time_minutes = "0".$new_time_minu
+tes;}
    my $new_time_hours = $this_time_hours - $hours_to_subtract/100;
    if ($new_time_hours < 0){
        $this_time_days--;
        $new_time_hours = 24 + $new_time_hours;
        if ($this_time_days < 1){
            $this_time_years--;
            $this_time_days = 365;
            
        }
    }        
    if ($new_time_hours < 10){$new_time_hours = "0".$new_time_hours;}
    my $new_time_days = $this_time_days - $days_to_subtract/10000;
    if ($new_time_days < 1){
        $new_time_days = 365 + $new_time_days;
        $this_time_years--;
    }        
    if (($new_time_days < 100) && ($new_time_days > 9)){$new_time_days
+ = "0".$new_time_days;}
    if ($new_time_days < 10){$new_time_days = "00".$new_time_days;}
    my $new_time_years = $this_time_years - $years_to_subtract/1000000
+0;
    if ($new_time_years < 0){print "ERROR<BR>";}
    
    return ($self->{calculated_time} = $new_time_years.$new_time_days.
+$new_time_hours.$new_time_minutes."00");    
    
}

1;

[download]

In reply to Lady /DATE by Steeeeeve

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.