use DateTime;
use DateTime::Format::HTTP;
???
-Mike
Bilashi Sahu wrote:
> Hi,
> I am trying to convert UTC (In seconds) time to local Time.
> I will appreciate if anybody has some hints to do this.
> I have code like this, it does not work properly
> Here cds_date is in UTC seconds and $cmpn_date is in local time
> Just comparing if both of the same
>
>
> Thanks,
>
> Bilashi
>
>
> #check date
> sub checkDate () {
> my ($cds_date, $cmpn_date, $fhlog, $result) = @_;
> my ($g_day, $g_mon, $g_year, $g_hr, $g_min, $g_sec, $g_msec, $g_ampm) =
> split(/[-\s\.]/, $cmpn_date); $g_year += 2000;
> my @abbr = qw( JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC );
> my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
> localtime($cds_date);
> $year += 1900;
> if($g_ampm eq "PM") {
> $g_hr += 12;
> }
> $g_hr = 0 if($g_ampm eq "AM" && $g_hr == 12);
> $hour = ($hour + 7) if ($g_hr < 17);;
>
> if ($g_year == $year &&
> ($g_day == $mday) &&
> ($abbr[$mon] eq $g_mon)
> && $g_hr == $hour && $g_min == $min && $g_sec == $sec) {
> #$g_hr == $hour && $g_min == $min && $g_sec == $sec) {
> } else {
> $$result = "F";
> }
>
>
>
>
> _______________________________________________
> ActivePerl mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
