Date question

[simon]

If you have dateTime value, for example: 08.04.1004 11:00:00

how do you get how many seconds is until midnight.

The reggional settings shouldnt affect on this.

Thank you,
Simon

 

[Armin Zingler]

If you have dateTime value, for example: 08.04.1004 11:00:00

how do you get how many seconds is until midnight.

The reggional settings shouldnt affect on this.

const d as date = #4/8/2004 11:00#

dim diff as double

diff = d.date.adddays(1).subtract(d).totalseconds



--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

 

[Cor Ligthert]

Hi Simon,

Have a look at the "timespan" for that, it is very easy to use.

Cor

 

[Stevie_mac]

I havent tried this but it might work.

Public Function SecsToMidnight(ByVal dIn As DateTime) As Long
If Now.Hour = 0 And Now.Minute = 0 And Now.Second = 0 Then
Return 0
End If
Dim dMidNight, dTest As DateTime
dMidNight = Now.AddDays(1)
dMidNight = CDate(dMidNight.ToString("dd-MMM-yyyy 00:00:00"))
dTest = CDate(dMidNight.ToString("dd-MMM-yyyy ") & dTest.ToString("HH:mm:ss"))
Return Math.Abs(DateDiff(DateInterval.Second, dMidNight, dIn))
End Function

 

[Cor Ligthert]

const d as date = #4/8/2004 11:00#

dim diff as double

diff = d.date.adddays(1).subtract(d).totalseconds

Do I think I give the same answer as Armin did (today or yesterday) comes
Armin with a very nice solutions.



Cor