Using military time but with 100 minutes not 60 minutes

G

Guest

Is it possible to convert regular time into military time. But instead of
using 60 minutes using 100 minutes. Ex. typing in 14.30 and it changes to
14.50(which is using 100 minutes.) after you click enter or go to the next
cell. I use this in my work to help figure easier how many hours my drivers
have worked.
 
R

Roger Govier

Hi

Time is stored in Excel as fractions of a day.
Multiply your time value by 24, and it will turn to decimal so 14:30 will be
14.5


Regards

Roger Govier
 
R

Roger Govier

Sorry,
Forgot to add, Format the cell with the formula as General, or Number with
two decimal places.

If your time as 14:30 is in A1, then B1 = A1*24
B1 need to be formatted as described.

Regards

Roger Govier
 
B

Bryan Hessey

Would it not be easier to work with cells defined as [h]:mm:ss, which
would give easy display of recognised time formats, ie :15 (not .25)
for a quarter hour?

This 'improper' time format supports most required functions.

(Just a thought)
 
G

Guest

Mr. Govier,

Thank you for responding back. But I would like the time 14.30 to change to
14.50 in the same cell. Meaning if I put 14.30 in A1 I would like it to
change to 14.50 in A1. Is that possible.
 
G

Guest

Mr. Govier,

Thank you for responding back. But I would like the time 14.30 to change to
14.50 in the same cell. Meaning if I put 14.30 in A1 I would like it to
change to 14.50 in A1. Is that possible.
 
R

Roger Govier

Hi

No, a formula cannot alter the format of a cell. It will only work as
described. If you want the input to be altered on entry, then you would need
a change event macro.
David has already given you a pointer to Chip Pearson's site where you will
find code for handling different types of input.
Plagiarising a bit of that code to suit your needs, and without lots of
error checking, the following will convert data as you wish in the range
A1:A100. Amend to suit.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error GoTo endmacro
If Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
Exit Sub
End If
If Target.Cells.Count > 1 Then
Exit Sub
End If
If Target.Value = "" Then
Exit Sub
End If

Application.EnableEvents = False
Target.Value = Target.Value * 24
Target.NumberFormat = "0.00"

endmacro:

Application.EnableEvents = True
End Sub

To paste the code into your workbook, right click on the sheet tab where you
do your data entry and paste the code into the white pane on the right.


Regards

Roger Govier
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top