Dato problem
Jeg har det problem at når jeg laver et udtræk fra min SQL database, så laver den fejl i sorteringen efter dato. Mit udtræk ser sådan her ud:Dato Arbejdstimer
13-03-2002 3
3-09-2002 2
3-10-2002 6
3-11-2002 5
3-12-2002 6
Den første dato er korrekt, men i de sidste fire skriver den mm-dd-yyyy istedet for dd-mm-yyyy.
Hcordan kan jeg rette det?
Min kode ser sådan her ud:
If Request.Form("WhatWasChosen") = "ProjectChosen" Then
ProjectName = Request.Form("ProjectName")
Set objConn = Server.Createobject("ADODB.Connection")
strConnString = "Provider=SQLOLEDB;" & _
"Persist Security Info=FALSE;" & _
"User ID=sa;" & _
"Password=pb16950;" & _
"Initial Catalog=WorkStatistics;" & _
"Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\" & _
"DATA\WorkStatistics_Data.mdf;"
objConn.Open strConnString
strSQL = "SELECT Dags_Dato_DT, Arbejdstimer_IN, Læst_Fra_IN," & _
" Læste_Sider_IN, Læse_Projekt_BT, Læst_Til_IN " & _
"FROM WorkProjects_T WHERE Projekt_Navn_VC = '" & ProjectName & _
"' ORDER BY Dags_Dato_DT"
Set objRS = Server.Createobject("ADODB.Recordset")
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, AdCmdText
If Not (objRS.EOF OR objRS.BOF) Then
If objRS("Læse_Projekt_BT") = "Sand" Then
'Projektet er et læse projekt
objRS.MoveFirst
StartDate = objRS("Dags_Dato_DT")
objRS.MoveLast
EndDate = objRS("Dags_Dato_DT")
objRS.MoveFirst
NumberOfDays = 0
WorkHoursTotal = 0
ReadPagesTotal = 0
Do While Not objRS.EOF
If objRS("Dags_Dato_DT") <> lastDate Then
NumberOfDays = NumberOfDays + 1
lastDate = objRS("Dags_Dato_DT")
End If
WorkHoursTotal = WorkHoursTotal + CInt(objRS("Arbejdstimer_IN"))
ReadPagesTotal = ReadPagesTotal + objRS("Læste_Sider_IN")
objRS.MoveNext
Loop
If NumberOfDays <> 0 Then
AverageRead = ReadPagesTotal / NumberOfDays
AverageWorkhours = WorkHoursTotal / NumberOfDays
End If
Response.Write "<B> '" & Request.Form("ProjectName")
Response.Write "' blev læst fra d. " & StartDate
Response.Write " til d. " & EndDate & ", med et gennemsnit på " & Left(AverageRead, 5)
Response.Write " læste sider pr. dag, og et gennemsnitligt antal arbejdstimer på "
Response.Write Left(AverageWorkhours, 4) & " timer pr. dag.</B><BR><BR>"
Response.Write "<CENTER><TABLE BORDER='1'></CENTER><TR><TD><H4>Dato</H4></TD>"
Response.Write "<TD><H4>Arbejdstimer</H4></TD><TD><H4>Læst Fra</H4></TD><TD><H4>Læst Til</H4></TD>"
Response.Write "<TD><H4>Læste Sider</H4></TD></TR>"
objRS.MoveFirst
Do While Not objRS.EOF
Response.Write "<TR><TD>" & objRS("Dags_Dato_DT") & "</TD>"
Response.Write "<TD>" & objRS("Arbejdstimer_IN") & "</TD>"
Response.Write "<TD>" & objRS("Læst_Fra_IN") & "</TD>"
Response.Write "<TD>" & objRS("Læst_Til_IN") & "</TD>"
Response.Write "<TD>" & objRS("Læste_Sider_IN") & "</TD></TR>"
objRS.MoveNext
Loop
Response.Write "</TABLE>"
Else 'Projektet er ikke et læseprojekt
objRS.MoveFirst
StartDate = objRS("Dags_Dato_DT")
objRS.MoveLast
EndDate = objRS("Dags_Dato_DT")
objRS.MoveFirst
NumberOfDays = 0
WorkHoursTotal = 0
Do While Not objRS.EOF
If objRS("Dags_Dato_DT") <> lastDate Then
NumberOfDays = NumberOfDays + 1
lastDate = objRS("Dags_Dato_DT")
End If
WorkHoursTotal = WorkHoursTotal + CInt(objRS("Arbejdstimer_IN"))
objRS.MoveNext
Loop
If NumberOfDays <> 0 Then
AverageWorkhours = WorkHoursTotal / NumberOfDays
End If
Response.Write "<B> '" & ProjectName & "' blev foretaget fra d. " & StartDate & " til d. "
Response.Write EndDate & ", med et gennemsnitligt antal arbejdstimer på i alt "
Response.Write Left(AverageWorkhours, 4) & " timer pr. dag, og et antal arbejdstimer "
Response.Write "på i alt " & WorkHoursTotal & " timer.</B><BR><BR>"
Response.Write "<CENTER><TABLE BORDER='1'><TR><TD ALIGN='center'><H4>Dato</H4></TD>"
Response.Write "<TD><H4> Arbejdstimer </H4></TD></TR>"
objRS.MoveFirst
Do While Not objRS.EOF
Response.Write "<TR><TD>" & objRS("Dags_Dato_DT") & "</TD>"
Response.Write "<TD ALIGN='center'>" & objRS("Arbejdstimer_IN") & "</TD>"
objRS.MoveNext
Loop
Response.Write "</TABLE></CENTER>"
End If
End If
objRS.close
Set objRS = Nothing
objConn.close
Set objConn = Nothing
End If
