Extracting first two digits of a time entry!!

  • Thread starter Thread starter roshinpp_77
  • Start date Start date
R

roshinpp_77

HI friends,
Could anyone tell me how to extract first two digits of a "Time
value"

For example in cell B10 the content is 12:00 ie..(Time)
I am not able to extract "12" ie the first two digits of that time.

I am getting 0.5013 when taken as text.


Regards,
TIA


Roshin
 
roshinpp_77 said:
HI friends,
Could anyone tell me how to extract first two digits of a "Time
value"

For example in cell B10 the content is 12:00 ie..(Time)
I am not able to extract "12" ie the first two digits of that time.

I am getting 0.5013 when taken as text.


Regards,
TIA


Roshin
Click to expand...
Hello,
use this left(range("B10").text,2)

Mike,Luxembourg
 
Depending what you actually want returned, a string or a number.
Assuming the value is a double formatted as a time:
Public Function GetHourOnly(argRange As Range) As Integer
GetHourOnly = Int(argRange.Value * 24)
End Function
Or
Public Function GetHourOnly(argRange As Range) As String
GetHourOnly = Left(argRange.Text, 2)
End Function

NickHK

"roshinpp_77" <[email protected]>
wrote in message
news:[email protected]...
 
You can extract the hour, minute or second:

With ActiveSheet.range("B10")
MsgBox Hour(.Value) & vbLf & _
Minute(.Value) & vbLf & _
Second(.Value)
End With
 
Back
Top