Kanske så här:
StartYear = Year(Date)
For i= StartYear To (StartYear-100) Step -1
Response.Write i & "<BR>" & vbCrLf
Next
1 svar · 187 visningar · startad av DavidB
hur gör jag för att lista upp nuvarande år + 100år bakåt
så det serut såhär:
2001
2000
1999
1998
....
....
....
1901
och sen när det blir 2002 så ska det av sig självt ändras så att det första (översta) blir 2002 och det sista (längst ner) blir 1902.
Kanske så här:
StartYear = Year(Date)
For i= StartYear To (StartYear-100) Step -1
Response.Write i & "<BR>" & vbCrLf
Next