?
Solved

Access 2003 How to convert hours - minutes - seconds  to minutes

Posted on 2006-11-13
7
Medium Priority
?
1,429 Views
Last Modified: 2008-01-09
Hello,

I import a text file that give me time formated h:mm:ss which is good.  I can see all calls for a day and have a total of say 5:19:23.  What I want to do is to convert h:mm:ss to only minutes?

How do I covert it to minutes??

Thanks

Bill
0
Comment
Question by:bjennings
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
7 Comments
 
LVL 44

Expert Comment

by:GRayL
ID: 17932664
=Hours(totaltime)*60 +Minutes(totaltime) + IIf(Seconds(totaltime)>29,1,0)
0
 
LVL 44

Expert Comment

by:GRayL
ID: 17932671
In this case I condsidered the seconds portion of totaltime and rounded it up to 1 it 30 seconds or more.

0
 
LVL 9

Expert Comment

by:dancebert
ID: 17932694
You didn't say what you wanted to do with the seconds.  This trucates.

Public Function HHMMSS_To_Minutes(ByVal sTime As String) As Integer
    Dim col1stColon As Integer
    col1stColon = InStr(sTime, ":")
   
    Dim iHours As Integer
    iHours = Left(sTime, col1stColon - 1)
    Dim iMins As Integer
    iMins = Mid(sTime, col1stColon + 1, 2)
   
    ' ignores seconds
    HHMMSS_To_Minutes = (iHours * 60) + iMins
End Function
0
Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

 
LVL 16

Expert Comment

by:Rick_Rickards
ID: 17933140
Sub ConvertTimeToMinutes()
    Dim tim As Date
    tim = #1:05:30 AM#
    Debug.Print tim * 1440
End Sub

If you want to round the result encapsulate the last line with the round function like this...

Debug.Print Round(tim * 1440,2)

In any case the short answer is take your date/time variable and multiply it by 1440.  The result will be the number of minutes that that date/time variable contains.  

Be aware, that trying this against a date like today's date will result in a very large number.  I presume that you're trying to deal with much smaller numbers (difference between two date & times but if not you may need to decide how many days in the date portion of the field you want to include.


0
 
LVL 44

Accepted Solution

by:
GRayL earned 1000 total points
ID: 17933693
Sorry, remove the s from each of my functions:


=Hour(totaltime)*60 +Minute(totaltime) + IIf(Second(totaltime)>29,1,0)
0
 

Author Comment

by:bjennings
ID: 17938564
Thank you so much everyone!!!  GRayl was the easiest solution!
0
 
LVL 44

Expert Comment

by:GRayL
ID: 17939796
Thanks, glad I could help
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Suggested Courses

762 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