https://rt-wiki.bestpractical.com/index.php?action=history&feed=atom&title=Talk%3ASetTimeWorkedAutomatically%2F%40comment-BlaecHrim-20130513105807
Talk:SetTimeWorkedAutomatically/@comment-BlaecHrim-20130513105807 - Revision history
2026-08-24T08:32:17Z
Revision history for this page on the wiki
MediaWiki 1.41.1
https://rt-wiki.bestpractical.com/index.php?title=Talk:SetTimeWorkedAutomatically/@comment-BlaecHrim-20130513105807&diff=4849&oldid=prev
Admin: 1 revision imported
2016-04-06T20:53:01Z
<p>1 revision imported</p>
<p><b>New page</b></p><div>This only counts business hours worked (you need perl module Date::Manip) :<br />
<br />
<br />
<br />
use Date::Manip;<br />
<br />
Date_Init("WorkDayBeg = 08:00", "WorkDayEnd = 16:00");<br />
<br />
my $stringStart = $self->TicketObj->Started;<br />
<br />
my $stringResolved = $self->TicketObj->Resolved;<br />
<br />
<br />
<br />
my $parsedStart = &ParseDate($stringStart);<br />
<br />
my $today_date = &ParseDate("$stringResolved");<br />
<br />
<br />
<br />
my $err;<br />
<br />
my $delta = DateCalc(ParseDate($parsedStart),$today_date,\$err,3);<br />
<br />
$delta = Delta_Format($delta,2,'%st');<br />
<br />
<br />
<br />
my $minutes = int( $delta / 60 );<br />
<br />
my $hours = int( $delta / 3600 );<br />
<br />
<br />
<br />
$RT::Logger->debug("Setting TimeWorked to: $minutes");<br />
<br />
$self->TicketObj->SetTimeWorked( $minutes );</div>
Admin