dato udtræk som ligner 200801051041

Sådan?

ligeNu = Now

Response.Write Year(ligeNu) & Month(ligeNu) & Day(ligeNu) & Hour(ligeNu) & Minute(ligeNu)

SUPER!!!!

hvis jeg nu gerne vil have nul med.. hvad gør jeg så..

altså

så den her Response.Write Year(ligeNu) & Month(ligeNu) & Day(ligeNu) & Hour(ligeNu) & Minute(ligeNu)

gav 20080105112411 istedet for 200815112411

det er ellers fedt.. det begynder jo at ligne noget der kan bruges.. vuuhuu :o)

Function LZ(tal)
    If tal < 10 Then
        LZ = "0" & tal
    Else
        LZ = tal
    End If
End Function

Function TimeStamp(ts)
    Year(ts) & LZ(Month(ts)) & LZ(Day(ts)) & LZ(Hour(ts)) & LZ(Minute(ts))
End Function



ligeNu = Now
Response.Write TimeStamp(ligeNu)

Ahem:

Function TimeStamp(ts)
    TimeStamp = Year(ts) & LZ(Month(ts)) & LZ(Day(ts)) & LZ(Hour(ts)) & LZ(Minute(ts))
End Function

Har du fået kigget på det?

nielle, ja for hulen.. igen points til dig.. workd like a charm

send svar

Svar :^)