/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Amerikansk server-> Dansk dato og tid
Fra : SotD


Dato : 13-04-02 18:48

Hej...
Jeg mangler et tidsscript til en amerikansk server, som kan vise den danske
tid.
Jeg har fundet dette ude på www.activeserverpages.dk, men tiden bliver
stadig 13.00 hvis klokken herhjemme er 19.00.
Hvad skal jeg gøre???
<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,
december"
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&"-"&Mid(datYear,3,2)
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 = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl.
"&datHour&":"&datMin&":"&datSec
Case Else
DKDato = nDato
End Select
End Function

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

<head>
<title>Tid</title>
</head>

<body>
<%
dtmNow = Now
For num = 6 to 6
Response.Write ""&DKDato(dtmNow,"#"&Num) & "<br>"
Next
%>
</body>

</html>

Det skal lige siges, at jeg har valgt at få vist tiden som #6 metode.

Håber nogen kan hjælpe mig :)

Venlig hilsen
Martin



 
 
Bill Clinton (15-04-2002)
Kommentar
Fra : Bill Clinton


Dato : 15-04-02 07:30

Brug

<%Session.LCID = 1030%>







"SotD" <sotd_dude@hotmail.com> wrote in message
news:3cb9c060$0$11997$edfadb0f@dspool01.news.tele.dk...
> Hej...
> Jeg mangler et tidsscript til en amerikansk server, som kan vise den
danske
> tid.
> Jeg har fundet dette ude på www.activeserverpages.dk, men tiden bliver
> stadig 13.00 hvis klokken herhjemme er 19.00.
> Hvad skal jeg gøre???
> <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,
> december"
> 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&"-"&Mid(datYear,3,2)
> 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 = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl.
> "&datHour&":"&datMin&":"&datSec
> Case Else
> DKDato = nDato
> End Select
> End Function
>
> Function PutZero(value)
> If Len(value) = 1 Then value="0"&value
> PutZero = value
> End Function
> </script>
> <html>
>
> <head>
> <title>Tid</title>
> </head>
>
> <body>
> <%
> dtmNow = Now
> For num = 6 to 6
> Response.Write ""&DKDato(dtmNow,"#"&Num) & "<br>"
> Next
> %>
> </body>
>
> </html>
>
> Det skal lige siges, at jeg har valgt at få vist tiden som #6 metode.
>
> Håber nogen kan hjælpe mig :)
>
> Venlig hilsen
> Martin
>
>



Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408857
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste