[AccessD] datediff & format

Jim Lawrence accessd at shaw.ca
Sat May 27 12:17:07 CDT 2017


That is strange?

Jim

----- Original Message -----
From: "Bill Benson" <bensonforums at gmail.com>
To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com>
Sent: Friday, May 26, 2017 9:40:27 PM
Subject: Re: [AccessD] datediff & format

ok, this is weird (and embarassing) - no matter how many times I clicked on
show hidden text Google refused to show me who you were replying to. Until
I checked my own response to Jim, then oh sure, I could see who he was
responding to THEN.

Forgive... millenial-tech challenged!

On Sat, May 27, 2017 at 12:38 AM, Bill Benson <bensonforums at gmail.com>
wrote:

> Jim
>
> Please include at least SOME of the text you are replying over with your
> accolade so we know who it is attributable to... thanks!
>
> On Fri, May 26, 2017 at 11:18 AM, Jim Lawrence <accessd at shaw.ca> wrote:
>
>> Brilliant.
>>
>> Jim
>>
>> ----- Original Message -----
>> From: "Gustav Brock" <gustav at cactus.dk>
>> To: "Access Developers discussion and problem solving" <
>> accessd at databaseadvisors.com>
>> Sent: Friday, May 26, 2017 3:16:36 AM
>> Subject: Re: [AccessD] datediff & format
>>
>> Hi Kostas
>>
>> You can use this function:
>>
>> <code>
>> Public Function FormatHourMinute( _
>>   ByVal datTime As Date, _
>>   Optional ByVal strSeparator As String = ":") _
>>   As String
>>
>> ' Returns count of days, hours and minutes of datTime
>> ' converted to hours and minutes as a formatted string
>> ' with an optional choice of time separator.
>> '
>> ' Example:
>> '   datTime: #10:03# + #20:01#
>> '   returns: 30:04
>> '
>> ' 2005-02-05. Cactus Data ApS, CPH.
>>
>>   Dim strHour       As String
>>   Dim strMinute     As String
>>   Dim strHourMinute As String
>>
>>   strHour = CStr(Fix(datTime) * 24 + Hour(datTime))
>>   ' Add leading zero to minute count when needed.
>>   strMinute = Right("0" & CStr(Minute(datTime)), 2)
>>   strHourMinute = strHour & strSeparator & strMinute
>>
>>   FormatHourMinute = strHourMinute
>>
>> End Function
>> </code>
>>
>>     TotalTime: FormatHourMinute(Sum([TimeOut]-[TimeIn]))
>>
>> /gustav
>> ________________________________________
>> Fra: AccessD <accessd-bounces at databaseadvisors.com> på vegne af Kostas
>> Konstantinidis <kost36 at otenet.gr>
>> Sendt: 26. maj 2017 12:05:32
>> Til: 'Access Developers discussion and problem solving'
>> Emne: Re: [AccessD] datediff & format
>>
>> Hi Stuart,
>> I guess I need both of them while I need extra calculation for weekly and
>> monthly sum
>>
>> Thanks
>> /kostas
>>
>> -----Original Message-----
>> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>> Stuart McLachlan
>> Sent: Friday, May 26, 2017 12:51 PM
>> To: Access Developers discussion and problem solving
>> <accessd at databaseadvisors.com>
>> Subject: Re: [AccessD] datediff & format
>>
>> Is it always within a single day?
>> or
>> Can it roll over midnight?  i.e. Can TimeIn be greater than TimeOut?
>> Can it exceed 24 hours?  If so, do you want 1:02:30 or 26:30 ?
>>
>> --
>> Stuart
>>
>>
>> On 26 May 2017 at 11:55, Kostas Konstantinidis wrote:
>>
>> > Hi all,
>> > In a time tracking I use the datediff
>> > hours: (DateDiff("";[TimeIn];[TimeOut]))/60
>> >
>> > but what I really need is to track the time difference result in
>> > format as hh:mm
>> >
>> > Could anyone help please?
>> > Thanks
>> > /kostas
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list