---
title: "Datum problem (månad)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51060-datum-problem-månad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wiklund!!"
published: "2002-08-22T21:09:14.000Z"
updated: "2002-08-24T09:06:16.000Z"
replies: 9
views: 328
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/51060-datum-problem-månad"
---

# Datum problem (månad)

## #1 — Wiklund!!, 2002-08-22T21:09Z

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!

Permalänk: https://www.webforum.nu/p/51060

## #2 — CatZ, 2002-08-22T21:21Z

red....

Permalänk: https://www.webforum.nu/p/761367

## #3 — LarsG, 2002-08-22T21:21Z

```
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
```

Permalänk: https://www.webforum.nu/p/761368

## #4 — Ekström, 2002-08-22T21:29Z

Denna kod rekommenderas:

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

Permalänk: https://www.webforum.nu/p/761375

## #5 — Wiklund!!, 2002-08-23T05:50Z

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)

Permalänk: https://www.webforum.nu/p/761439

## #6 — @nders, 2002-08-23T05:54Z

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,

Permalänk: https://www.webforum.nu/p/761440

## #7 — Wiklund!!, 2002-08-23T22:32Z

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!

Permalänk: https://www.webforum.nu/p/761975

## #8 — icaaq, 2002-08-24T04:35Z

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]
```

Permalänk: https://www.webforum.nu/p/761993

## #9 — Wiklund!!, 2002-08-24T08:56Z

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

Permalänk: https://www.webforum.nu/p/762034

## #10 — icaaq, 2002-08-24T09:06Z

Härligt.... :)

Permalänk: https://www.webforum.nu/p/762037

---

Tråden på webben: https://www.webforum.nu/amne/asp/51060-datum-problem-månad