Hej hur skall jag få till detta?

Jag vill visa antal dagar mellan två dagar i en listview

Typ

Do Until rs.EOF

' Adderar posterna till ListView-kontrollen
Set ObjLsv = ListView1.ListItems.Add()
ObjLsv.Text = rs("Id") & vbNullString
ObjLsv.SubItems(1) = rs("RegnrK") & vbNullString
ObjLsv.SubItems(2) = rs("Aonr") & vbNullString
ObjLsv.SubItems(3) = rs("DatUt") & vbNullString
ObjLsv.SubItems(4) = rs("DatIN") & vbNullString
ObjLsv.SubItems(5) = rs("Avd") & vbNullString
ObjLsv.SubItems(6) = Datediff("d", rs("DatIn"), rs("DatUt")) & vbNullString

Set ObjLsv = Nothing

rs.MoveNext

Får inte till detta!!!!

Tobbe

La in detta funkar
ObjLsv.SubItems(6) = Datediff("d", (Now), rs("DatUt"))

Jag gillade aldrig det där DateDiff gjorde så här istället.
Ex.
<code>
Dim d As Long, n As Long
n = CDate(Date) ' Now
d = CDate("2010-03-20")
MsgBox n - d & " dagar"
</code>

Hej Sven

Ja det ser bättre ut nu slipper man minus före dagarna.

Tobbe

Hade du läst i hjälpen om datediff så hade du sett att du skulle skriva Datediff("d", rs("DatUt"), (Now)) för att inte få minustecknet.

En annan anmärkning är att det blir olika resultat när du använder "Now"

Är klockan 11:30 får du ett resultat, är klockan 12:30 får du ett annat.

Kl 12:00 är samma 0.5 dygn dvs > 12:00 blir upphöjt 1 dag.

Vill man ha exakt antal dagar så använd "Date" inte "Now"