TOP

कार्य के घंटे

विवरण

इस लेख में, हम इस बात पर विचार करेंगे कि दो तिथियों के बीच कार्य घंटों की गणना कैसे करें। इस जानकारी की आवश्यकता कर्मचारियों के कार्य की दक्षता के विश्लेषण और टुकड़े-टुकड़े भुगतान प्रणाली के मामले में खर्च किए गए उपयोगी समय की गणना दोनों के लिए हो सकती है।

तो, आइए काम के घंटे गिनने में मदद के लिए अपना स्वयं का फ़ंक्शन लिखें और इसे WORKHOURS कहें।

मेनू खोलें सेवा - मैक्रो - संपादक Visual Basic , नया मॉड्यूल डालें (मेन्यू Insert - Module) और इस फ़ंक्शन के टेक्स्ट को वहां कॉपी करें:

  1. Function WORKHOURS(StartDate As Variant, EndDate As Variant)  
  2.     Application.Volatile  
  3.     StartDate = StartDate.Address  
  4.     EndDate   = EndDate.Address  
  5.       
  6.     ' पहले दिन के कामकाजी घंटे   
  7.     WORKHOURS1 = Evaluate("IF(AND(DAY(" & StartDate & ")=DAY(" & _  
  8.     EndDate & "),MONTH(" & StartDate & ")=MONTH(" & EndDate & "))," & EndDate & _  
  9.     "-" & StartDate & "-IF(AND(HOUR(" & StartDate & ")<=13,HOUR(" & EndDate & _  
  10.     ")>=14),1/24,0),18/24-MOD(" & StartDate & ",1)-IF(HOUR(" & StartDate & _  
  11.     ")<=13,1/24,0))")  
  12.       
  13.     ' मध्यवर्ती दिनों के कार्य घंटे   
  14.     WORKHOURS2 = Evaluate("MAX((IF(AND((WEEKDAY(" & EndDate & ",2))"&"<"&"(WEEKDAY(" & StartDate & _  
  15.     ",2)),((WEEKDAY(" & StartDate & ",2))-(WEEKDAY(" & EndDate & ",2)))>1),(((DATEDIF(" & StartDate & _  
  16.     "," & EndDate & "," & """D""" & ")+1))-(FLOOR((DATEDIF(" & StartDate & "," & EndDate & _  
  17.     "," & """D""" & ")+1)/7,1)*2)-2),(((DATEDIF(" & StartDate & "," & EndDate & "," & """D""" & ")+1))-(FLOOR((DATEDIF(" & _  
  18.     StartDate & "," & EndDate & "," & """D""" & ")+1)/7,1)*2)))-2),0)*8/24")  
  19.       
  20.     ' अंतिम दिन के कार्य घंटे   
  21.     WORKHOURS3 = Evaluate("IF(AND(DAY(" & StartDate & _  
  22.     ")=DAY(" & EndDate & "),MONTH(" & StartDate & ")=MONTH(" & EndDate & ")),0,MOD(" & EndDate & _  
  23.     ",1)-9/24-IF(HOUR(" & EndDate & ")>=14,1/24,0))")  
  24.       
  25.     WORKHOURS = WORKHOURS1 + WORKHOURS2 + WORKHOURS3  
  26. End Function  

Visual Basic संपादक को बंद करें और Excel पर वापस लौटें।

अभी इसमें फंक्शन मास्टर्स श्रेणी में उपयोगकर्ता परिभाषित आप हमारा WORKHOURS फ़ंक्शन ढूंढ सकते हैं और उसका उपयोग कर सकते हैं। फ़ंक्शन सिंटैक्स अगले:

 =WORKHOURS(प्रारंभ_दिनांक; समाप्ति_दिनांक)