formatering af dato

If Not Len(Month(Now())) > 1 Then
  lngMonth = 0 & Month(Now())
Else
  lngMonth = Month(Now())
End If

If Not Len(Day(Now())) > 1 Then
  lngDay = 0 & Day(Now())
Else
  lngDay = Day(Now())
End If

dim dato as string = year(now) & lngMonth & lngDay

Så skulle det vidst virke ;o)

//>Rune

ja, jeg har selv gjort det på samme måde før, men er der ikke en formaterings-funktion, der sikrer at nullerne kommer med ?

Prøv lige med denne:

dtmTheDate = DateAdd("m",0,Date())
dtmTheDate = Replace(dtmTheDate,"-","")
MsgBox(dtmTheDate)

//>Rune

Thx 4 Poinz

//>Rune