Solved

Calculate no of hrs

Posted on 2013-01-15
12
293 Views
Last Modified: 2013-01-16
Hi Experts,

In my excel file, I have days in format "5d 5h 30m"

where d = day (8.4 hrs a day)

I need to calculate no of hrs in numeric

the above example should calculate

5d 5h 30m = 5*8.4 + 5 + .5 (30/60)
         = 42 + 5 + .5
         = 47.5 hrs
        
therefore value of

5d 5h 30m = 47.5

Please help me creating the formula

Please find attached the excel

Regards,
CalculateDateCount.xls
0
Comment
Question by:tia_kamakshi
  • 4
  • 3
  • 3
  • +2
12 Comments
 
LVL 18

Expert Comment

by:Raheman M. Abdul
ID: 38779296
I cant see the format you gave in question. can you point out where it is in excel please.
0
 

Author Comment

by:tia_kamakshi
ID: 38779408
applogies,
I attached wrong file previously.

Correct file attached.

Regards,
convertDaysToDaysCount.xls
0
 
LVL 39

Accepted Solution

by:
als315 earned 500 total points
ID: 38779488
This is case when vba function is very usefl (Alt+F11 to look code)
Public Function Time2Num(A As String) As Double
Dim d As Integer, h As Integer, m As Integer
Dim s As String, i As Integer, l As Integer
Dim t As String
d = 0
h = 0
m = 0
Time2Num = 0
i = Len(A)
Do While i > 0
    t = LCase(Mid(A, i, 1))
    If t <> "m" And t <> "h" And t <> "d" Then Exit Do
    i = i - 1
    s = ""
    Do While Mid(A, i, 1) <> " "
        s = Mid(A, i, 1) & s
        i = i - 1
        If i = 0 Then Exit Do
    Loop
    i = i - 1
    If t = "m" Then Time2Num = Time2Num + CInt(s) / 60
    If t = "h" Then Time2Num = Time2Num + CInt(s)
    If t = "d" Then Time2Num = Time2Num + CInt(s) * 8.4
Loop
End Function

Open in new window

convertDaysToDaysCount.xls
0
 

Author Closing Comment

by:tia_kamakshi
ID: 38779536
Many Many Thanks
0
 
LVL 23

Expert Comment

by:NBVC
ID: 38779537
Here might be a formula alternative:

in B3:

=IFERROR(LEFT("  "&A3,FIND("d","  "&A3)-1)*8.4,0)+IFERROR(MID(" "&A3,FIND("h"," "&A3)-2,2),0)+IFERROR(MID(" "&A3,FIND("m"," "&A3)-2,2)/60,0)

copied down
0
 
LVL 24

Expert Comment

by:Steve
ID: 38779712
you can use just this formula:

=SUM(MID(0&A1&"00000",FIND({"d","h","m"},A1&"xdhm")-1,2)/{0.119048,1,60})
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 23

Expert Comment

by:NBVC
ID: 38779793
As written that formula doesn't work for 3 digit days as per the sample workbook provided.... and it gives #VALUE! error for cells with no days defined...
0
 
LVL 24

Expert Comment

by:Steve
ID: 38779843
Ah, didn't open the file to see the variants for the conversion...

The following will do all except the 3 digit day... which would take some other work.
=SUM(MID(0&A6&"00000",FIND({"d","h","m"},A6&"xxdhm")-1,2)/{0.119047619047619,1,60})
0
 
LVL 23

Expert Comment

by:NBVC
ID: 38779937
Perhaps with the extra work....?

=SUM(MID("00"&SUBSTITUTE(A3," ","  ")&"00000",FIND({"d","h","m"},SUBSTITUTE(A3," ","  ")&"xxxdhm")-1,3)/{0.119047619047619,1,60})

but, there are many ways to skin it as we proved...
0
 
LVL 24

Expert Comment

by:Steve
ID: 38780066
Looks about right NB :)
Nice:)
0
 

Author Comment

by:tia_kamakshi
ID: 38782532
Many Thanks all.

als315 worked for me and created a function.

I learned new thing.

Regards,
0
 
LVL 23

Expert Comment

by:NBVC
ID: 38782605
No problem tia,

We were just giving you (and others with similar issues, that come across this thread) alternatives.

Thanks for the feedback.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Compile Error 7 42
AutoFilter on a list of items.  Totalling each item in the list. 14 13
Excel 2016 Not Responding Issues 6 29
ActiveX Listbox Multi Select in Excel 2010 8 20
Convert between Excel file formats (.XLS, .XLSX, .XLSM) with/without macro option David Miller (dlmille) Intro Over this past Fall, I've had the opportunity to see several similar requests and have developed a couple related solutions associate…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now