Formatér dato

Prøv Format(now, "yyyymmddhhnnss")

ASP-fortolkeren kan ikke lide dig ;o)

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Format'

Det anede mig :)

Jeg er næsten sikker på, der findes en funktion til det. Kan bare ikke huske syntaksen. Og jeg gider ikke sidde og hardcode det selv, hvis det kan undgås.

Måske det her kan narre fortolkeren :)
Replace(Replace(Replace(now, "-", ""), ":", ""), " ", "")

Her har du alle de funktioner som VBScript kan klare...

hmm det kan du jo lave manuelt..hvis det har interresse

Ja, det kan sagtens laves. Jeg søgte bare noget mindre bøvlet ;)

Right("00000" & Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time), 14)

Angiver nn minuter?

Ja

Jeg tvivler på, at du kan finde en funktion, der kan det du søger efter... :)

prøv at glugge her..kan være du kan fidne ne function der kan det ;-)

http://www.devguru.com/Technologies/vbscript/quickref/functions.html

Og ja, formatet bliver ikke korrekt med ovenstående metode. Men det er ligegyldigt i denne samhæng. Jeg skal bare bruge et nummer på 14 cifre indeholdende værdierne fra Now.

Må jeg være så fræk at spørge hvad du skal bruge de 14 cifre til?

jeg lavede en gang en dato hvor jeg skulle være sikker på den dato havde en bestemt længe...kan være du kunne bruge det som lidt "inspiration" :-D

Dag = day(now)
maaned = month(now)
aar = year(now)
IF Len(Dag) = 1 THEN
Dag = 0 & Dag
END IF
IF Len(maaned) = 1 THEN
  maaned = 0 & maaned
END IF
fildato = aar & maaned & dag

somaliomar ---> Det er i forbindelse med en randomværdi.
mccannon ---> Ja, eller:

Year(Date) & Right("0" & Month(Date), 2) & Day("0" & Year(Date), 2) & Right("0" & Hour(Time), 2) & Right("0" & Minute(Time), 2) & Right("0" & Second(Time), 2)

med dato og tid ser det sådan ud :
<%
Dag = day(now)
maaned = month(now)
aar = year(now)
timen = hour(now)
minut = minute(now)
sec = second(now)

IF Len(Dag) = 1 THEN
Dag = 0 & Dag
END IF

IF Len(maaned) = 1 THEN
  maaned = 0 & maaned
END IF

IF Len(timen) = 1 THEN
timen = 0 & timen
END IF

IF Len(minut) = 1 THEN
minut = 0 & minut
END IF

IF Len(sec) = 1 THEN
sec = 0 & sec
END IF

fildato = maaned & dag & aar & timen & minut & sec
%>
output = 02252003182202

Tak, men så er min egen vist kortere trods alt ;)

oase..hvad gør den så når der feks står 11 i din dato eller sec ??

Så tager den to tegn fra højre af, dvs. 11

hm oki :-D..troede ikke right() funktionen virkede på den måde..men det gør jeg nu :-D

Jeg kan ikke finde nogen som helst funktion, så det bliver, som det er. Vil I have nogle points?

Du må gerne beholde dem selv. Det kan være, at du får brug for dem en anden gang :)

Måske burde du lade det stå åben i et stykke tid. Måske kan det være, at de rigtige eksperter såsom eagleeye, ved om der findes en funktion, der kan gøre det du søger efter...

Det gør han sikkert, men tror ikke han kommer forbi her med 25 indlæg i tråden...

Indlægget er ikke besvaret endnu... Chancen for at han kommer forbi er ret stor :)

27 - vi håber :)

Har lige testet disse, virkede fint for mig:

unction Two(S)
  two = CStr(S)
  while len(two)<2
    two = "0" & two
  wend
end function

function Dato()
  da = Year(Now()) & Two(Month(Now())) & Two(Day(Now()))
  ti = Two(Hour(Now)) & Two(Minute(Now)) & Two(Second(Now))
  Dato = da & ti
end function

Man kan altid diskutere om det skal slåes sammen til en lang linie, men for overskuelighedens skyld har jeg dem som to.

Mvh.

Kim Alsgaard

Der mangler forresten et "f" i den første funktion :D

Tak skal du have, men nu var det mere en funktion alá Format(now, "yyyymmddhhnnss") jeg søgte - hvis den findes.

Der findes ikke en funktion anden end FormatDateTime til at formatere dato format, men den kan ikke modtage et "custom" pattern men den brugre nogle pre definerede dato formats. Så du må lave din egen, du kan evt lave en som du let kan formatere om på strengen ved at give den tid og dato + en format streng og lave den i stil med:



function formatDato(datoTid, formatStr)
  str = formatStr
  'Udskift År prøv føste med yyyy så yy
  str = Replace(str, "yyyy", Year(datoTid))
  str = Replace(str, "yy", Right(Year(datoTid),2))
  'Udskift månede mm
  str = Replace(str, "mm", Right("0" & Month(datoTid),2))
  'Udskift dag dd
  str = Replace(str, "dd", Right("0" & Day(datoTid),2))
  'Udskift time hh
  str = Replace(str, "hh", Right("0" & Hour(datoTid),2))
  'Udskift minutter nn
  str = Replace(str, "nn", Right("0" & Minute(datoTid),2))
  'Udskift sekund ss
  str = Replace(str, "ss", Right("0" & Secound(datoTid),2))
  formatDato = str
end if


Så kalder du functionen sådan her:

Response.Write formatDato(now,"yyyymmddhhnnss")


Vil du senere havde et andet format skriver du bare det eks:
Response.Write formatDato(now,"dd/mm/yyyy hh:nn:ss")

P.S.: Inden du *kommentere* lægden af funktionen så bemærk ca. hver anden linie er en kommentar ;)

Man kunne ønske sig at funktionen Format var med VBScript som den er med VB.

Hvis du kan downloade denne så er der vist et tilsvarne eks:
http://www.hotscripts.com/Detailed/16280.html
Jeg kan ikke få lov at downloade den.


Eller hvis du har mod på at prøve dette, så er her et eks på hvordan man kan lave et VB Server Object som tilbyder functionen format. Du kan downloade alle nødvendige filer:
http://www.4guysfromrolla.com/webtech/051601-1.shtml

Sjovt du nævner den funktion. For jeg lavede nemlig en lignende her: http://www.eksperten.dk/spm/293867

Men jeg havde da helt glemt den...

Ser lige på links'ne.

hehe, det var derfra jeg fik den :)

Det tænkte jeg nok :)
Jeg synes denne ser interessant ud: http://www.4guysfromrolla.com/webtech/051601-1.shtml

Tak for hjælpen :)