Datum problem (månad)

Jag har den här koden:

Day(Date()) & " " & MonthName(Month(Date())) & "" & right("0" & Hour(Time()),2) & ":" & right("0" & Minute(Time()),2)

Istället för att det ska dyka upp ex augusti, september osv skulle jag vilja korta ner dem till aug,sep,jan,feb osv..

Någon som vet hur man gör detta! Just det, en sak till om posten är inlagd den här dagen hur gör jag för att få ut "Idag kl 20.00" istället för ett långt datum..

Tack på förhand!

red....

Day(Date()) & " " & left(MonthName(Month(Date())),3) & "" & right("0" & Hour(Time()),2) & ":" & right("0" & Minute(Time()),2)

Fråga 2:

Du har alltså en kolumn i en tabell i en databas som innehåller ett datumvärde?

if  datediff("d",cdate(rs("dateColumn")),date()) = 0 then
    response.write "Idag"
else
'skriv datum som annars
end if
'skriv ut tid

Denna kod rekommenderas:

http://www.webforum.nu/showthread.php?s=&postid=366315#post366315

Jo jag vet, har testat den koden men jag får det inte att fungera! Det står att det är syntaxfel på den här raden:

Function ConvDate(dtmDatum, blnAddTime)

Du har inte lagt funktionen i en loop?
Det får man inte göra.

Du får gärna kalla på funktionen i en loop, men en funktion med ett visst namn får bara finnas i ett exemplar.

Mvh,

Jag testade och ta bort loopen, men tråkigt nog får jag inte till det endå :(

Koden ser ut så här:

<%
' Konverterar datum i NOW-format till "1 jan 2000 01:00" (med eller utan tid).

Function ConvDate(dtmDatum, blnAddTime)
Dim intDaysPrune, strDate, strTime, arrMonths
dtmDatum = RecSet("datum")
If isEmpty(dtmDatum) Or isNull(dtmDatum) Then Exit Function

intDaysPrune = DateDiff("d", dtmDatum, Now())
If intDaysPrune = 0 Then
	strDate = "Idag"
ElseIf intDaysPrune = 1 then
	strDate = "Igår"
Else
	arrMonths = Array("Januari", "Februari", "Mars", "April", "Maj", "Juni", "Juli", "Augusti", "September", "Oktober", "November", "December")
	strDate = Day(dtmDatum) & " " & Lcase(Left(arrMonths(Month(dtmDatum) - 1), 3)) & " " & Year(dtmDatum)
End If
If blnAddTime Then
	strTime = " " & FormatDateTime(dtmDatum, 4)
End If
ConvDate = strDate & strTime

End Function
%>

RecSet("datum") innehåller ett "now" datum: 2002-08-24 00:20:07

Skulle vara jättetacksam om någon kunde hjälpa mig att få till scriptet!

Hur anropar du funktionen?
Testa att göra så här

[red]
Response.Write ConvDate(RecSet("datum"), TRUE)
[/red]

[red]
<% 
' Konverterar datum i NOW-format till "1 jan 2000 01:00" (med eller utan tid). 
Function ConvDate(dtmDatum, blnAddTime) 
Dim intDaysPrune, strDate, strTime, arrMonths 

If isEmpty(dtmDatum) Or isNull(dtmDatum) Then Exit Function 

intDaysPrune = DateDiff("d", dtmDatum, Now()) 
If intDaysPrune = 0 Then 
strDate = "Idag" 
ElseIf intDaysPrune = 1 then 
strDate = "Igår" 
Else 
arrMonths = Array("Januari", "Februari", "Mars", "April", "Maj", "Juni", "Juli", "Augusti", "September", "Oktober", "November", "December") 
strDate = Day(dtmDatum) & " " & Lcase(Left(arrMonths(Month(dtmDatum) - 1), 3)) & " " & Year(dtmDatum) 
End If 
If blnAddTime Then 
strTime = " " & FormatDateTime(dtmDatum, 4) 
End If 
ConvDate = strDate & strTime 
End Function 
%> 
[/red]

Tack så mycket.. Det fungerar fin fint =)

Härligt.... :)