Now() med nuller

Function PlusNul(intTal)
  If Len(intTal) = 1 Then
    intTal0 = 0 & intTal
  Else
    intTal0 = intTal
  End If

  PlusNul = intTal0
End Function

//>Rune

Altså:
<%
Function PlusNul(intTal)
  If Len(intTal) = 1 Then
    intTal0 = 0 & intTal
  Else
    intTal0 = intTal
  End If

  PlusNul = intTal0
End Function

Function MakeDate(Format)
      Format = PlusNul(Replace(Format, "dd", Day(Date)))
      Format = PlusNul(Replace(Format, "mm", Month(Date)))
      Format = PlusNul(Replace(Format, "yyyy", Year(Date)))
      Format = PlusNul(Replace(Format, "hh", Hour(Time)))
      Format = PlusNul(Replace(Format, "nn", Minute(Time)-2))
      Format = PlusNul(Replace(Format, "ss", Second(Time)))
MakeDate = Format
End Function
%>

//>Rune

Right("0" & Day(now),2)&"-"&Right("0" & Month(now),2)&"-"&year(now)&" "&Right("0" & Hour(now),2)&":"&Right("0" & Minute(now),2)&":"&Right("0" & Second(now),2)

>>medions
hvorfor så meget kode når man kan nøjes med 2 linier?

Right("0" & Day(now),2)  <= right klipper så der kun er 2 bogstaver fra højre - og "0" indsætter et nul der i tilfælde af et enkeltcifret tal løser dit problem

werd > man kan maaske godt noejes med 2 linier kode, men hvilket giver det bedste overblik?

synes at dit forslag vil goere koden meget overskuelig, sammenlignet med en funktion som man kan ligge i en include fil sammen med alle de andre funktioner man nu bruger paa en side

ups bommert overskuelig = uoverskuelig

min er da overskuelig.. det er jo den samme ting der bliver kørt et par gange.. - det andet er fuld af unødvendig kode - men bestem selv hvad du bruger!

ENIG soes og dette skal faktisk bruges i en include...
Medions, alt virker undtagen sekunderne...der står:

D. 08. i 05. år 2003 klokken: 18:46:5

PlusNul bliver kaldt for sent og vil dermed ikke virke.
Eks replace functionen i sådan en linje:
  Replace(Format, "dd", Day(Date))
Returnere jo ikke kun Day men hele datoen. Så PlusNul skal klades helt hende ved Day(Date) for at være sikker på at det er dagen som får 0 omkring sig.


Function MakeDate(Format)
      Format = Replace(Format, "dd", PlusNul(Day(Date)))
      Format = Replace(Format, "mm", PlusNul(Month(Date)))
      Format = Replace(Format, "yyyy", PlusNul(Year(Date)))
      Format = Replace(Format, "hh", PlusNul(Hour(Time)))
      Format = Replace(Format, "nn", PlusNul(Minute(Time)-2))
      Format = Replace(Format, "ss", PlusNul(Second(Time)))
MakeDate = Format
End Function

Tak for det eagleeye...
werd >> dit svar går jeg ud fra også er rigtigt så du får selvfølgelig også point...
/askeb/