Re^6: DateCalc using Date::Manip

Replies are listed 'Best First'.
Re^7: DateCalc using Date::Manip by huck (Prior) on Jan 10, 2017 at 12:58 UTC
ok a few more, since "semi and 'approx' gave the same output `my $dtopt= DateCalc($dt1,$dt2,0);` [download] `my $dtopt= DateCalc($dt1,$dt2,1);` [download] `my $dtopt= DateCalc($dt1,$dt2,2);` [download] `my $dtopt= DateCalc($dt1,$dt2,3);` [download] note how #4 is like Re^4: DateCalc using Date::Manip and if it works they should get the credit. We have seen exact=0 and approx=1 (or literal?), lets see what 2 or 3 give us. (maybe i should install the module and try it? im going from the docs here)	[reply] [d/l] [select]
Re^8: DateCalc using Date::Manip by tsdesai (Acolyte) on Jan 10, 2017 at 14:17 UTC
Hi I have tried what you suggested `0:0:0:0:3648:0:0 0:4:4:2:0:0:0 0:4:4:2:0:0:0 0:0:0:110:0:0:0` [download] But no luck i want to display everything year month weeks days Many Thanks,	[reply] [d/l]
Re^9: DateCalc using Date::Manip by huck (Prior) on Jan 10, 2017 at 18:49 UTC
I gave up after beating the hell out of it. 3648 presents a new problem too, it points out that the old machine thought it used daylight time, and the new one doesnt. use Date::Manip; acycle("2016080100:00:00",'2016123100:00:00'); # it knows im in +a daylight zone and comensates acycle("2016080100:00:00GMT",'2016123100:00:00GMT'); acycle("2016080100:00:00CDT",'2016123100:00:00CST'); acycle("2016080100:00:00CST",'2016123100:00:00CST'); # i cant explain + this one acycle("2016-08-01T00:00:00CST",'2016-12-31T00:00:00CST'); # i cant e +xplain this one acycle("2016-08-01T00:00:00-0500",'2016-12-31T00:00:00-0500'); # but +this is ok exit; sub acycle { my $dt1=shift; my $dt2=shift; my $fe=DateCalc($dt1,$dt2,0); my $fse=semi_exact($fe); printf "dt1:%25s (%25s) \ndt2:%25s (%25s) \n -> %s \n +" ,$dt1,UnixDate($dt1,'%Y-%m-%d-%H:%M:%S%Z') ,$dt2,UnixDate($dt2,'%Y-%m-%d-%H:%M:%S%Z') ,$fse; #print 'dt1:'.$dt1.'('.&UnixDate($dt1,'%Y-%m-%d-%H:%M:%S%Z').')' # .' dt2:'.$dt2.'('.&UnixDate($dt2,'%Y-%m-%d-%H:%M:%S%Z').')' # .' ->'.$fse."\n"; } # acycle sub semi_exact { my $delve=shift; my @parts=split(':',$delve); my $h0=$parts[4]+$parts[3]24+$parts[2]724; my $w=sprintf('%d',$h0/(724)); $h0=$h0-$w724; if ($w<0) {$h0=$h0-1;} my $d=sprintf('%d',$h0/24); $h0=$h0-$d24; my $delvse="0:0:$w:$d:$h0:$parts[5]:$parts[6]"; return $delvse; } # semi-exact [download] outputs dt1: 2016080100:00:00 ( 2016-08-01-00:00:00CDT) dt2: 2016123100:00:00 ( 2016-12-31-00:00:00CST) -> 0:0:21:5:1:0:0 dt1: 2016080100:00:00GMT ( 2016-08-01-00:00:00GMT) dt2: 2016123100:00:00GMT ( 2016-12-31-00:00:00GMT) -> 0:0:21:5:0:0:0 dt1: 2016080100:00:00CDT ( 2016-08-01-00:00:00CDT) dt2: 2016123100:00:00CST ( 2016-12-31-00:00:00CST) -> 0:0:21:5:1:0:0 dt1: 2016080100:00:00CST ( 2016-08-01-00:00:00CST) dt2: 2016123100:00:00CST ( 2016-12-31-00:00:00CST) -> 0:0:21:5:14:0:0 dt1: 2016-08-01T00:00:00CST ( 2016-08-01-00:00:00CST) dt2: 2016-12-31T00:00:00CST ( 2016-12-31-00:00:00CST) -> 0:0:21:5:14:0:0 dt1: 2016-08-01T00:00:00-0500 ( 2016-08-01-00:00:00CDT) dt2: 2016-12-31T00:00:00-0500 ( 2016-12-31-00:00:00EASST) -> 0:0:21:5:0:0:0 [download] I wish i could explain about the CST/CST oddity, it shows up when both ISO too	[reply] [d/l] [select]