• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give

To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give

To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give us Exact Result.

Rate To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()

  mDate1 = CDate("01-06-2002 7:38 am")
  
  ' Add Hour To Add TimeOut
  mDate2 = DateAdd("h", 9, mDate1)
  mDate2 = DateAdd("s", 1800, mDate2)
  
  
  ' Add Over Time Amount!
  mDate2 = DateAdd("h", 3, mDate2)
  mDate2 = DateAdd("s", 1800, mDate2)   ' & If There Time as 3:30 Or 5:30 then for 30 Use This Line
    
  ' Calculate Exact Time
  mHour = DateDiff("h", mDate1, mDate2)
  mDMint = DateDiff("n", mDate1, mDate2)
  mhMint = Round(mHour - Int((mDMint / 60)), 0)
  NetHr = (mHour - mhMint)
  
  ' Now Add Minits In Time
  mMinits = Abs((NetHr * 60) - mDMint)
  NetTime = NetHr + IIf((mMinits / 100) >= 0.3, 0.5, (mMinits / 100))
  
  OverTimeAmount = (NetTime - 9.5)
  
End Sub