DateDiff

[QWERTY]

I can't take it anymore. I've been doing it since forever and I guess it's time to give up. What I am trying to do is to calculate difference between to dates in Years, Months, Days, Hours, Minutes and Seconds. I know how to handle y,m,h,minutes and s using DateDiff, but my problem begins when I'm trying to calculate Days. with my function I'm getting 38 35, even 40 days (maximum should be 31 or 30 I'm not sure about it). Does anyone have any ideas how to write function/procedure to calculate this? I would really appreciate any help. If you need my Source Code feel free to E-mail me or just reply to this message saying so.
Thanks in advance. I know you can do this.

------------------
Visual Basic Programmer
-----------------
PolComSoft
You will hear a lot about it.

[Ghost]

When you use "Days" as the interval in DateDiff, it gives the number of physical days between the two dates. Thats the reason you are getting more than 31/30 days. Can you post the source code of what you have done till now.

Thanks.

[QWERTY]

Here is my code:

ISeconds = DateDiff("s", Now, Data)
IMonths = DateDiff("m", Now, Data)
IYears = DateDiff("yyyy", Now, Data)
IDays = DateDiff("d", Now, Data)

IMinuty = ISeconds \ 60
ISeconds = ISeconds - IMinuty * 60
IHours = IMinuty \ 60
IMinuty = IMinuty - IHours * 60

If Hour(Format(Data, "Short Time")) >= Hour(Format(Now, "SHort Time")) Then
IHours = Hour(Format(Data, "Short time")) - Hour(Format(Now, "Short Time")) - 1
Else
IHours = (24 - (24 - Hour(Format(Data, "SHort Time")))) + (24 - Hour(Format(Now, "Short time"))) - 1
End If
If IMonths > 0 Then
IMonths = IMonths - 1
End If
If IYears > 0 Then
IYears = IYears - 1
End If

NewMonth = Month(Data)

If Val(NewMonth) = 0 Then
NewMonth = 12
End If

dateNow = Format(Now, "mm/dd/yyyy hh:nn:ss AMPM")
NewDate= dateNow
If NewMonth < 10 Then
Mid(NowaData, 1, 2) = "0" & NewMonth
Else
Mid(NowaData, 1, 2) = NewMonth
End If

On Error Resume Next
nData = DateValue(NowaData)
'I know that next part with Days doesn't work properly
If Year(Data) <> Year(Now) Then
If IDaysWMiesiacu(nData) > Day(Teraz) Then
IDays = (IDaysWMiesiacu(nData) - Day(Teraz)) + Day(Data) - 1
Else
IDays = Day(Data) - 1
End If
ElseIf Month(Now) <> Month(Data) Then
IDays = (DaysInMonth(nData) - Day(nData)) + Day(Data) - 1
ElseIf Month(Now) = Month(Data) Then
IDays = Day(Data) - Day(nData) - 1
End If

IMonths = IMonths - IYears * 12
If IMonths >= 12 Then
IYears = IYears + IMonths \ 12
IMonths = IMonths - IMonths \ 12
End If


------------------
Visual Basic Programmer
-----------------
PolComSoft
You will hear a lot about it.

[This message has been edited by QWERTY (edited 11-04-1999).]

[SteveS]

Just Place 1 Timer on the form, with an interval of 1000 and this should work.

'Date string is given in
'Months/Days Hours:Minutes:Seconds.

Private Function TimeRemaining(DestinationDate As String) As String
Dim tmpTime As Long, tmpMonth As Integer, tmpDay As Integer, tmpHour As Integer, tmpMin As Integer, tmpSec As Integer
Dim varMonth(12) As Integer, n As Integer

'Setup Month Lengths
For n = 1 To 12: varMonth(n) = 31: Next n
If Year(Now) Mod 4 = Int(Year(Now) Mod 4) Then
varMonth(2) = 29
Else
varMonth(2) = 28
End If
varMonth(4) = 30: varMonth(6) = 30: varMonth(9) = 30: varMonth(11) = 30

'Calculate Differences
tmpTime = DateDiff("s", Now, DestinationDate)
tmpDay = Int(tmpTime / 86400)
tmpHour = Int(tmpTime / 3600) Mod 24
tmpMin = Int(tmpTime / 60) Mod 60
tmpSec = tmpTime Mod 60

Do While tmpDay > varMonth(Month(Now))
If tmpDay > varMonth(Month(Now)) Then
tmpDay = tmpDay - varMonth(((Month(Now) + tmpMonth - 1) Mod 12) + 1)
tmpMonth = tmpMonth + 1
End If
Loop

'Return the Time Remaining String
TimeRemaining = tmpMonth & "/" & tmpDay & " " & tmpHour & ":" & tmpMin & ":" & tmpSec
End Function

Private Sub Timer1_Timer()
Me.Caption = TimeRemaining("99/12/06 23:59:59")
End Sub

[QWERTY]

Thanks!
I'll check it

------------------
Visual Basic Programmer
-----------------
PolComSoft
You will hear a lot about it.