|
|
 | Amerikansk server -> dansk tid
Fra : SotD |
Dato : 14-04-02 19:13 |
|
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:3cb9c64c$0$12070$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
>
>
>
>
| |
SotD (15-04-2002)
| Kommentar
Fra : SotD |
Dato : 15-04-02 16:08 |
|
Havde jeg ikke lige tænkt på
Tak... virker fint 
"Bill Clinton" <snipermode@ofir.dk> skrev i en meddelelse
news:3cba736e$0$26639$edfadb0f@dspool01.news.tele.dk...
> brug
> <%Session.LCID = 1030%>
>
>
> "SotD" <sotd_dude@hotmail.com> wrote in message
> news:3cb9c64c$0$12070$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
> >
> >
> >
> >
>
>
| |
SotD (15-04-2002)
| Kommentar
Fra : SotD |
Dato : 15-04-02 16:21 |
|
dvs. Nej det gjorde det ikke (det virker på min webserver)
Andre forslag ???
Martin
"Bill Clinton" <snipermode@ofir.dk> skrev i en meddelelse
news:3cba736e$0$26639$edfadb0f@dspool01.news.tele.dk...
> brug
> <%Session.LCID = 1030%>
>
>
> "SotD" <sotd_dude@hotmail.com> wrote in message
> news:3cb9c64c$0$12070$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
> >
> >
> >
> >
>
>
| |
 Jørn Andersen (15-04-2002)
| Kommentar
Fra : Jørn Andersen |
Dato : 15-04-02 17:37 |
|
On Mon, 15 Apr 2002 17:21:10 +0200, "SotD" <sotd_dude@hotmail.com>
wrote:
>dvs. Nej det gjorde det ikke (det virker på min webserver)
>
>Andre forslag ???
>
>Martin
>
>
>"Bill Clinton" <snipermode@ofir.dk> skrev i en meddelelse
>news:3cba736e$0$26639$edfadb0f@dspool01.news.tele.dk...
>> brug
>> <%Session.LCID = 1030%>
Hej Martin,
Det er lidt besværligt at svare på dine indlæg, når du svarer *over*
det forrige indlæg - og i øvrigt ikke skærer alt det overflødige væk.
Så tag lige et kig på linken i min signatur - please.
Tilbage til dit problem: Jeg tror ikke du slipper udenom at korrigere
dine tider, hvis du vil bruge dansk tid på en server, der bruger
amerikansk tid.
Altså: DateAdd("h", 6, dinTid)
Men det kræver, at du holder tungen lige i munden og gør dig helt
klart, hvor du vil konvertere: Vil du gemme i dansk eller amerikansk
tid i databasen?
Good luck og god arbejdslyst - du får vist brug for begge dele :)
Jørn
PS: Gider du tage et kig på:
<URL: http://www.usenet.dk/netikette/citatteknik.html>
--
Jørn Andersen,
Brønshøj
| |
SotD (16-04-2002)
| Kommentar
Fra : SotD |
Dato : 16-04-02 12:55 |
|
> Det er lidt besværligt at svare på dine indlæg, når du svarer *over*
> det forrige indlæg - og i øvrigt ikke skærer alt det overflødige væk.
> Så tag lige et kig på linken i min signatur - please.
Håber det er blevet bedre?
> Altså: DateAdd("h", 6, dinTid)
Det virker perfekt...
> Men det kræver, at du holder tungen lige i munden og gør dig helt
> klart, hvor du vil konvertere: Vil du gemme i dansk eller amerikansk
> tid i databasen?
Jeg skal gemme en dansk tid i databasen, men det skulle være løst med <%
DateAdd("h", 6, dinTid) %> og med <%Session.LCID = 1030%> i toppen.
Men hvad med datoen, den skifter vel stadig efter amerikansk tid???
Mange tak Jørn :)
Martin
| |
Jørn Andersen (16-04-2002)
| Kommentar
Fra : Jørn Andersen |
Dato : 16-04-02 15:22 |
|
On Tue, 16 Apr 2002 13:54:37 +0200, "SotD" <sotd_dude@hotmail.com>
wrote:
>Jeg skal gemme en dansk tid i databasen, men det skulle være løst med <%
>DateAdd("h", 6, dinTid) %> og med <%Session.LCID = 1030%> i toppen.
>
>Men hvad med datoen, den skifter vel stadig efter amerikansk tid???
Nej - DateAdd flytter hele værdien af din tid.
>Mange tak Jørn :)
Good luck,
Jørn
--
Jørn Andersen,
Brønshøj
| |
|
|