Jag behöver hjälp med datum:

Jag vill kunna se hur många dagar ett visst projekt håller på. Jag sätter start och slutdatum och vill då se hur många dagar det är emellan dem.

så här har jag det
Först lägger jag in datum i min accessdatabas

Con.Execute ("Update Projekt set Start = #" & Text1 & "# WHERE projektid = " & Form1.Text1 & "")

#" & text & "# kommer då direkt ifrån den inbyggda kalendern och sparas som 2002-08-07 i databasen

Sen tar jag fram den till en textruta

Set rst = CreateRecordset(" SELECT start from Projekt where projektid = " & Text1.Text & "", dbOpenAsQuery)
Text16 = rst(0)

text16 fylls nu med 2002-08-07 och allt ser rätt ut

När jag försöker köra detta så blir det ändå missmatch
text17, är gjord på samma sätt som text16

Text18 = DateDiff("d", Text16, Text17)

Textboxarna har Date inställd i properties

Någon som kan förstå varför jag får missmatch eller har någon annan lösning på detta problem

Du ska ge dina kontroller riktiga namn. Helst med Hungarina prefix.<br>
T.Ex.<br>
txtStart<br>
txtStop<br>
<br>
Kan vara ett stavfel. Läg Till Option Explicit överst i modulen.<br>
<br>
Annars kan du testa värdena med:
<code>
If IsDate(Text16.Text) Then
If IsDate(Text17.Text) Then
Text18 = DateDiff("d", CDate(Text16.Text), CDate(Text17.Text))
Else
MsgBox "Text17 är inte ett Datum!"
End If
Else
MsgBox "Text16 är inte ett Datum!"
End If


</code>
Har du nån anledning avv vara anonym? Blyg eller bara rädd att avslöja vem du är?<br>
<br>
Föresten, fick du det att fungera med MonthView'n?

Anonym, jag är väl inte anonym? hur har jag blivit det helt plötsligt?
Ska kolla upp det?

Det kommer fram att text16 inte är datum

Vad är Värdena?<br>
<br>
Lägg till koden över:
<code>
Debug.Print "Text16.Text = """ & Text16.Text & """"
Debug.Print "Text17.Text = """ & Text17.Text & """"
</code>