[GT] Re: package Finance::GeniusTrader::DateTime::Day;

[Chia-liang Kao <clkao AT clkao.org>]

Hi Josef,

1960 is before epoch, and time::local wouldn't be able to support
that. neither would it support years > 2038.  We'll need to migrate to
something like Time::y2038 or DateTime.

2009/11/18 Josef Strobel <josef-strobel
AT
web.de>:
> Hi all,
>
> I tried to load a time series where the start date is before 1960-12-31, but I always get the
> following error:
>
> my time series:
>
> 1960-01-25,56.78,56.78,56.78,56.78,2790000,56.78
> 1960-01-22,57.38,57.38,57.38,57.38,2690000,57.38
> 1960-01-21,57.21,57.21,57.21,57.21,2700000,57.21
> 1960-01-20,57.07,57.07,57.07,57.07,2720000,57.07
> 1960-01-19,57.27,57.27,57.27,57.27,3100000,57.27
> 1960-01-18,57.89,57.89,57.89,57.89,3020000,57.89
> 1960-01-15,58.38,58.38,58.38,58.38,3400000,58.38
> 1960-01-14,58.40,58.40,58.40,58.40,3560000,58.40
> 1960-01-13,58.08,58.08,58.08,58.08,3470000,58.08
> 1960-01-12,58.41,58.41,58.41,58.41,3760000,58.41
> 1960-01-11,58.77,58.77,58.77,58.77,3470000,58.77
> 1960-01-08,59.50,59.50,59.50,59.50,3290000,59.50
> 1960-01-07,59.69,59.69,59.69,59.69,3310000,59.69
> 1960-01-06,60.13,60.13,60.13,60.13,3730000,60.13
> 1960-01-05,60.39,60.39,60.39,60.39,3710000,60.39
> 1960-01-04,59.91,59.91,59.91,59.91,3990000,59.91
> 1959-12-31,59.89,59.89,59.89,59.89,3810000,59.89
>
>
> $HOME/eclipse-workspace/geniustrader/script/graphic.pl --file $HOME/eclipse-
> workspace/geniustrader/own-scripts/graphic/graphic_examples.conf ^GSPC > foobar.png
> Day too big - 32871 > 24853
> Cannot handle date (0, 0, 0, 31, 11, 2059) at /home/josef/cpan/Finance/GeniusTrader/DateTime/Day.pm
> line 24
>
>
> When I remove the last line in my time series it worked, so I looked in
> Finance::GeniusTrader::DateTime::Day and took a look to the function timelocal from Time::Local.
>
> I wrote a small script time-date-test.pl. It should test all dates from 1900-01-01 to 2039-01-01,
> but it fails from 1938-01-17.
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
> use Time::Local;
> use Date::Calc qw( Delta_Days Add_Delta_Days );
>
> # sub from package Finance::GeniusTrader::DateTime::Day;
> sub map_date_to_time {
> Â Âmy ($date) = @_;
> Â Âmy ($y, $m, $d) = split /-/, $date;
> Â Â Â Â Â Â Â Â($d) = split / /, $d;
> Â Â Â Â Â Â Â Âprint $d . "," . ($m - 1) . "," . ($y - 1900) . "\n";
> Â Âprint timelocal(0, 0, 0, $d, $m - 1, $y - 1900) . "\n";
> }
>
>
>
> my @start = (1900,1,1);
> my @stop Â= (2039,01,01);
>
> my $j = Delta_Days(@start,@stop);
>
> for (my $i = 0; $i <= $j; $i++ )
> {
> Â Âmy ($year,$month,$day) = Add_Delta_Days(@start,$i);
> Â Âprintf("%4d/%02d/%02d\n", $year,$month,$day);
> Â Â&map_date_to_time("$year-$month-$day");
> }
>
>
> So what is timelocal doing?
>
>
> Best regards
> Josef
>