> saya mau buat program pake perl, tapi ada masalah... berhubung belum semua
> fungsi perl saya ketahui.
>
> pengen itung durasi waktu terpakai nih. gimana yak?
>
> misalnya... 10:00 s/d 11:15 itu berapa jam, berapa menit ? apakah ada fungsi
> yang mengubah ini menjadi desimal?
>
> seperti di excel kan gampang.
>
> E12 = "10:00 AM"
> E13 = "12:00 AM"
>
> durasi = (E13-E12)*24*6000
> hasilnya : 12.000
>
Buat aja converter ke menit:
sub convert{
my $waktu = shift;
$waktu =~ /^(\d\d):(\d\d)\s([AP])M/;
$3 eq 'A'? $1 * 60 + $2 : ($1 + 12) * 60 + $2;
}
$e1 = "12:00 AM";
$e2 = "13:00 PM";
$durasi = convert($e2) - convert($e1);
print $durasi, "\n";
Regards,
Edwin.
----------------------------------------------------------------------
Unsubscribe: [EMAIL PROTECTED]
Archive: http://www.vlsm.org/linux-archive/
Linux CD: [EMAIL PROTECTED]
