请教一个时间差的计算方法

beyondlee1

格式为：
2017/1/1 7:33        2017/1/1 11:50       
2017/1/1 19:45        2017/1/1 23:51       
2017/1/1 16:51        2017/1/2 0:01

这是上班的打卡时间，如何计算第一行07:33 到 11:50的时间差？
大于0.5小时以0.5小时计算，小于0.5小时忽略

如：3小时55分，为3.5小时
3小时15分，为3小时

第三列是上夜班的，16:51 至 第二天的0:0:1分，为7小时；

哪位大神，帮忙看看吧。

谢谢~！

jason680

回复 1# beyondlee1

timelocal or timegm function, as below:

# from network

use Time::Local qw( timegm );

my ($y1,$m1,$d1) = (1985,12,25);
my ($y2,$m2,$d2) = (2005,2,4);

my $t1 = timegm(0,0,0,$d1,$m1-1,$y1);
my $t2 = timegm(0,0,0,$d2,$m2-1,$y2);

my $days = ($t2-$t1)/(24*60*60);
print("$days\n");  # 6981

beyondlee1

谢谢，
但我要的是时间差，不是天数
而且格式是：2017-1-1 12:01:08

zhlong8

1. 
   
2. use Time::Piece;
   
3. 
   
4. my $from = Time::Piece->strptime('2017/1/1 16:51', '%Y/%m/%d %H:%M');
   
5. my $to   = Time::Piece->strptime('2017/1/2 0:01','%Y/%m/%d %H:%M');
   
6. 
   
7. print int(($to - $from)->hours + 0.5);

复制代码

beyondlee1

谢谢~！

还有，如何知道是星期几？


----知道了，谢谢~！

•     $t->wday                # 1 = Sunday
•     $t->_wday               # 0 = Sunday
•     $t->day_of_week         # 0 = Sunday
•     $t->wdayname            # Tue
  

thanatos0

use Date::Manip;
my $err;
while(<DATA>{
my ($time1,$time2)=(split /\t/,$1)[0,1];
my $begintime=unixdate($time1,"%Y-%m-%d %H:%M:%S";
my $endtime=unixdate($time2,"%Y-%m-%d %H:%M:%S";
my $deltasr=DateCalc($begintime,$endtime,\$err);
print "$deltasr\n";
if($deltasr=~/\+\d+:\d+:\d+\d+)\d+)\d+):\d+/)/){
  if($3>=30){
    my $count=$1*24+$2+0.5;
    print "$count 小时\n";
  }else{
  my $count=$1*24+$2;
    print "$count 小时\n";
  }
}
}
__DATA__
2017/1/1 7:33 2017/1/1 11:50
2017/1/1 19:45 2017/1/1 23:51
2017/1/1 16:51 2017/1/2 0:01

thanatos0

#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
my $err;
while(<DATA>{
my ($time1,$time2)=(split /\t/,$_)[0,1];
my $begintime=UnixDate($time1,"%Y-%m-%d %H:%M:%S";
my $endtime=UnixDate($time2,"%Y-%m-%d %H:%M:%S";
print "$begintime,$endtime\n";
my $deltasr=DateCalc($begintime,$endtime,\$err);
print "\$err is $err\n";
print "$deltasr\n";
if($deltasr=~/\+\d+:\d+:\d+\d+)\d+)\d+):\d+/){
  my $day=$1;
my $hour=$2;
my $min=$3;
  if($min>=30){
    my $count1=$day*24+$hour+0.5;
    print "$count1 小时\n";
  }else{
  my $count2=$day*24+$hour;
    print "$count2 小时\n";
  }
}
}
__DATA__
2017/1/1 7:33   2017/1/1 11:50
2017/1/1 19:45  2017/1/1 23:51
2017/1/1 16:51  2017/1/2 0:01