---

Halløjsa NG

Jeg ved ikke om følgende ? passer i denne NG, men nu prøver jeg

Jeg kører w2k server med IIS 5.0 og har et lille problem med visning af tid
korrekt ved brug af asp. Jeg har været inde og ændre i regional settings,
således den viser klokken på den danske måde. Når man så laver et asp-script
og bruger kommandoen now() så bliver klokken vist på den engelske måde dvs.
11:23:33 PM. Hvad skal man gør for at serveren smider 23:23:33 tilbage
istedet for ?.

Hilsen Pico

---

Hej

Her er et script som jeg bruger til at konvertere datoer. Håber du kan bruge
det

<% ' VBscript til omregning af en data til Dansk Dato format.
   ' Filen inkluderes på siden og scriptet kaldes således:
   ' DKDato(Dato,Format)
   ' Format kan være følgende:
   ' #1 : 00-11
   ' #2 : 00-11-99 timer:minutter
   ' #3 : 00-11-99 timer:minutter:sekunder
   ' #4 : 00-11-9999
   ' #5 : 00-11-9999 timer:minutter
   ' #6 : 00-11-9999 timer:minutter:sekunder
   ' #7 : 00. mdrnavn 9999
   ' #8 : 00. mdrnavn 9999 timer:minutter
   ' #9 : mdrnavn
   '
   'Flere kan tilføjes hvis nødvendigt%>
   
<script language="VBScript" runat="Server">
Function DKDato(nDato, nFormat)
If isDate(nDato) = False Then
DKDato = nDato
Exit Function
End If
Dim arrMinth
Dim arrDays
arrMonth =
"januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,de
cember"
arrMonth = Split(arrMonth,",")
datDay = PutZero(Day(nDato))
datMonth = PutZero(Month(nDato))
datYear = Year(nDato)
datHour = PutZero(Hour(nDato))
datMin = PutZero(Minute(nDato))
datSec = PutZero(Second(nDato))
Select Case nFormat
Case "#1"
DKDato = datDay&"-"&datMonth
Case "#2"
DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&" "&datHour&":"&datMin
Case "#3"
DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&"
"&datHour&":"&datMin&":"&datSec
Case "#4"
DKDato = datDay&"-"&datMonth&"-"&datYear
Case "#5"
DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin
Case "#6"
DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin&":"&datSec
Case "#7"
DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear
Case "#8"
   DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl.
"&datHour&":"&datMin
Case "#9"
DKDato = arrMonth(datMonth)
Case Else
DKDato = nDato
End Select

End Function

Function PutZero(value)
If Len(value) = 1 Then value="0"&value
PutZero = value
End Function
</script>

Rasmus Pedersen

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagoiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials