CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

axkris Nybegynder

10. december 2003 - 14:05 Der er 9 kommentarer og
1 løsning

Omdanne DK dato til USA dato

Hej

Jeg har følgende script:

function alternativeDate2(Date)

alternativeDate2 = right(Date, 4) & "-" & right(left(Date, 5), 2) & "-" & left(Date, 2)

end function

Den omdanner en dansk dato f.eks. 01-02-2003 til amerikanske dato 2003-02-01, men problemer er bare, hvis der kommer følgende datoer, så scriptet ikke finde ud af det:

01-2-2003
1-02-2003
1-2-2003

Kan du hjælpe med en udbygning af scriptet? :D

Synes godt om

kryster Nybegynder

10. december 2003 - 14:29 #1

function alternativeDate2(Date)
arr = split(Date, "-")
alternativeDate2 = arr(2) & "-" & arr(1) & "-" & arr(0)
end function

Synes godt om

kryster Nybegynder

10. december 2003 - 14:29 #2

ups svar

Synes godt om

axkris Nybegynder

10. december 2003 - 14:36 #3

Super :-D

Dog bliver "24-2-2001" bliver til "2001 -2-24" (altså med det ekstra mellemrum).

Og kan du udbygge scriptet, så den skriver "2001-02-24" (altså indsætter en foranstående nul, hvis datoen eller måneden kun er skrevet med et tal).

Synes godt om

axkris Nybegynder

10. december 2003 - 14:41 #4

Hov, det ekstra mellemrum er min fejl, men jeg har løst det nu:

function alternativeDate2(Date)
arr = split(Date, "-")
alternativeDate2 = trim(arr(2)) & "-" & trim(arr(1)) & "-" & trim(arr(0))
end function

Synes godt om

kryster Nybegynder

10. december 2003 - 14:50 #5

Function Two(number)
two = string(2-len(number),"0") & number
End Function
Function alternativeDate2(Date)
arr = split(Date, "-")
alternativeDate2 = trim(arr(2)) & "-" & trim(Two(arr(1))) & "-" & trim(Two(arr(0)))
End Function
Response.Write alternativeDate2("24-2-2001") & "<br>"
Bliver til "2001-02-24"

Funktion Two er taget fra en andet sted på Exp

Synes godt om

axkris Nybegynder

10. december 2003 - 14:52 #6

super - tak for hjælpen

Synes godt om

kryster Nybegynder

10. december 2003 - 14:56 #7

Og sådan hvis den skal acceptere alle mulige mellemrum i input
<%
Function Two(number)
two = string(2-len(number),"0") & number
End Function
Function alternativeDate2(Date)
arr = split(Date, "-")
alternativeDate2 = trim(arr(2)) & "-" & Two(trim(arr(1))) & "-" & Two(trim(arr(0)))
End Function
Response.Write alternativeDate2(" 7 - 2 - 2001") & "<br>"
%>

Synes godt om

axkris Nybegynder

10. december 2003 - 14:57 #8

smukt :-D

Synes godt om

axkris Nybegynder

10. december 2003 - 15:24 #9

Hov, Invalid procedure call or argument: 'string'

two = string(2-len(number),"0") & number

Synes godt om

kryster Nybegynder

11. december 2003 - 09:35 #10

prøv at lav en response.write number på første linie i funktion two, måske er number ikke hvad du forventer.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS