Warum funktionieren WorkDayBeg und WorkDayEnd nicht in Date :: Manip?

Question

Ich habe dies an der Spitze meiner persönlichen Konfigurationsdatei (sowie Feiertage, die eingehalten werden, so dass ich weiß, dass die Datei gelesen wird ...):

WorkDayBeg = 08:00 
WorkDayEnd = 17:00 

... und doch, wenn Ich mache ein Delta von 8:00 bis 17:00 im Business-Modus, es heißt 8 Stunden statt 9 Uhr. Es ist ein Arbeitstag von 09:00 bis 17:00 Uhr.

Irgendeine Idee warum?

Answer 1

ich nicht beachten, dass das Verhalten:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Date::Manip; 

Date_Init('WorkDayBeg = 08:00', 'WorkDayEnd = 17:00'); 

print 'Not in business mode: ', 
    DateCalc(ParseDate('8:00'), ParseDate('17:00')), "\n", 
    'In business mode: ', 
    DateCalc(ParseDate('8:00'), ParseDate('17:00'), undef, 2), "\n"; 

 
C:\Temp> bun 
Not in business mode: +0:0:0:0:9:0:0 
In business mode: +0:0:0:1:0:0:0 

Wie erwartet, die Differenz beträgt neun Stunden, wenn nicht im Business-Modus und ein Arbeitstag, wenn im Business-Modus.