FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 20:24:36 +00:00
Code Issues Releases Wiki Activity

UConv: add DaysOfMonth()

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19610 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2019-06-13 13:01:40 +00:00
parent 2df6262edf
commit 18350ddbcc
1 changed files with 52 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
fhem/FHEM/UConv.pm
View File

@ -8,15 +8,17 @@ sub UConv_Initialize() { }
package UConv; package UConv;
use strict; use strict;
use warnings; use warnings;
# use locale;
use POSIX; use POSIX;
use Time::Local; use Math::Trig;
use Scalar::Util qw(looks_like_number); use Scalar::Util qw(looks_like_number);
use Data::Dumper; use Time::HiRes qw(gettimeofday);
use Time::Local;
# require "95_Astro.pm"; #use Data::Dumper;
my $DEG = pi / 180.0;
my $RAD = 180. / pi;
sub GetSeason (;$$$); sub GetSeason (;$$$);
sub _GetSeasonPheno ($$;$$); sub _GetSeasonPheno ($$;$$);
@ -989,21 +991,20 @@ sub distance($$$$;$$) {
return _round( "0.000000000", $rnd ) return _round( "0.000000000", $rnd )
if ( $lat1 eq $lat2 && $lng1 eq $lng2 ); if ( $lat1 eq $lat2 && $lng1 eq $lng2 );
use constant M_PI => 4 * atan2( 1, 1 ); my $aearth = 6378.137; # GRS80/WGS84 semi major axis of earth ellipsoid
my $pi80 = M_PI / 180;
$lat1 *= $pi80; $lat1 *= $DEG;
$lng1 *= $pi80; $lng1 *= $DEG;
$lat2 *= $pi80; $lat2 *= $DEG;
$lng2 *= $pi80; $lng2 *= $DEG;
my $r = 6372.797; # mean radius of Earth in km
my $dlat = $lat2 - $lat1; my $dlat = $lat2 - $lat1;
my $dlng = $lng2 - $lng1; my $dlng = $lng2 - $lng1;
my $a = my $a =
sin( $dlat / 2 ) * sin( $dlat / 2 ) + sin( $dlat / 2. ) * sin( $dlat / 2. ) +
cos($lat1) * cos($lat2) * sin( $dlng / 2 ) * sin( $dlng / 2 ); cos($lat1) * cos($lat2) * sin( $dlng / 2. ) * sin( $dlng / 2. );
my $c = 2 * atan2( sqrt($a), sqrt( 1 - $a ) ); my $c = 2. * atan2( sqrt($a), sqrt( 1. - $a ) );
my $km = $r * $c; my $km = $aearth * $c;
return _round( return _round(
( (
@ -1414,6 +1415,38 @@ sub h2hms($) {
return sprintf( "%02d:%02d:%02d", $h, $m, $s ); return sprintf( "%02d:%02d:%02d", $h, $m, $s );
} }
sub DaysOfMonth (;$$) {
my $y = shift;
my $m = shift;
return undef
unless ( !$y
|| $y =~ /^\d{10}(?:\.\d+)?$/
|| ( $y =~ /^[1-2]\d{3}$/ && ( !$m || $m =~ /^\d{1,2}$/ ) ) );
my $t = ( $y =~ /^\d{10}(?:\.\d+)?$/ ? $y : gettimeofday() );
$y = 1900. + ( localtime($t) )[5] unless ($y);
$m = 1. + ( localtime($t) )[4] if ( !$y || $y !~ /^[1-2]\d{3}$/ );
$y = 1900. + ( localtime($t) )[5] if ( $y !~ /^[1-2]\d{3}$/ );
if ( $m < 8. ) {
if ( $m % 2 ) {
return 31.;
}
else {
return 28. + IsLeapYear($y)
if ( $m == 2. );
return 30.;
}
}
elsif ( $m % 2. ) {
return 30.;
}
else {
return 31.;
}
}
sub IsLeapYear (;$) { sub IsLeapYear (;$) {
# Either the value 0 or the value 1 is returned. # Either the value 0 or the value 1 is returned.
@ -1426,10 +1459,9 @@ sub IsLeapYear (;$) {
return undef return undef
unless ( !$y || $y =~ /^\d{10}(?:\.\d+)?$/ || $y =~ /^[1-2]\d{3}$/ ); unless ( !$y || $y =~ /^\d{10}(?:\.\d+)?$/ || $y =~ /^[1-2]\d{3}$/ );
if ( !$y || $y !~ /^[1-2]\d{3}$/ ) { my $t = ( $y =~ /^\d{10}(?:\.\d+)?$/ ? $y : gettimeofday() );
my $today = _time($y); $y = 1900. + ( localtime($t) )[5] unless ($y);
$y = $today->{year}; $y = 1900. + ( localtime($t) )[5] if ( $y !~ /^[1-2]\d{3}$/ );
}
# If $year is not evenly divisible by 4, it is # If $year is not evenly divisible by 4, it is
# not a leap year; therefore, we return the # not a leap year; therefore, we return the