Compare Dates?

[Killswitch]

Is there a way to work out the number of Years, Months, Days, Hours, Minutes and Seconds between two given dates.

For example

10/05/2005

And right now.

[Berikco]

Quick one, not tested

Code: Select all

OldDate = Date(1999, 5, 4, 8, 32, 23)
Difference = Date() - OldDate
Debug Str(Year(Difference) - 1970) + " Year / "+ FormatDate("%mm Month / %dd Day   %hh hour %ii min %ss sec", Difference )

[Killswitch]

Yeah, it works for pretty well. Howeverwhen I compare 10/07/05 00:00:00 to Date() I end up with 17 days - is that right? Surely it should be 13?

[josku_x]

then, just remove 4 days from the output

I also tried it returns really a bigger number than it should...

[Killswitch]

You have to edit it for the date I specified

[PB]

> not tested

Hehe, it doesn't work at all. It's Christmas Day here, but when I test Christmas Eve...

Code: Select all

OldDate = Date(2005, 12, 24, 0, 0, 0)
Difference = Date() - OldDate
Debug Str(Year(Difference) - 1970) + " Year / "+ FormatDate("%mm Month / %dd Day   %hh hour %ii min %ss sec", Difference )

...it says it's 0 Year / 01 Month / 02 Day 11 hour 05 min 05 sec away.

[DoubleDutch]

Have you all been at the booze already - your processing it thru a date function... Think about it!

These procedures will work it out nicely for you...

Code: Select all

Procedure.s AddNumberS(string$,number,ident$)
  result$=string$
  If number<>0
    result$+" "+Str(number)+" "+ident$
    If number<>1
      result$+"s"
    EndIf
  EndIf
  ProcedureReturn result$
EndProcedure

Procedure.s NiceTime(seconds)
  result$=""
  Weeks=seconds/604800
  seconds=seconds%604800
  result$=AddNumberS(result$,Weeks,"week")
  Days=seconds/86400
  seconds=seconds%86400
  result$=AddNumberS(result$,Days,"day")
  Hours=seconds/3600
  seconds=seconds%3600
  result$=AddNumberS(result$,Hours,"hour")
  Minutes=seconds/60
  seconds=seconds%60
  result$=AddNumberS(result$,Minutes,"minute")
  result$=AddNumberS(result$,seconds,"second")
  If result$=""
    result$=" just now "
  Else
    result$+" "
  EndIf
  result$=Right(result$,Len(result$)-1)
  ProcedureReturn result$
EndProcedure

Pass the date difference (futuredate-pastdate) into nicetime(), you will get a CORRECT string back in return.

Merry Christmas!


-Anthony

[josku_x]

That is really a good functioning one, thanks doubledutch!

[DoubleDutch]

NP, glad to help.

[Killswitch]

Thanks