Increment Integer z wiodącym zerem - date, vbscript, asp-classic

Jak zwiększyć liczbę całkowitą bez utraty wiodącego zera?

tutaj jest mój kod.

for i = week1From to week1To
dayWeek1(ctr)=i
ctr=ctr+1
next

Jeśli moje zmienne są takie.

week1From = 03
week1To = 07

wynik byłby

dayWeek1(1) = 3
dayWeek1(2) = 4
dayWeek1(3) = 5
dayweek1(4) = 6
dayWeek1(5) = 7

jak mogę to zmienić?

dayWeek1(1) = 03
dayWeek1(2) = 04
dayWeek1(3) = 05
dayweek1(4) = 06
dayWeek1(5) = 07

Odpowiedzi:

Wewnętrznie nie ma wiodącego 0. 3 to 3, a 4 to 4. Prowadzące 0 jest potrzebne tylko wtedy, gdy "przeglądasz wartość lub używasz jej w jakimś innym kontekście, gdzie wymagane jest wiodące 0. Więc dodaj ją, gdy wypiszesz wartość, np .:

Response.Write "0" & dayWeek1(i) & vbCrLf

Oto mała sztuczka, jeśli masz wartości od 0 do 99 i chcesz, aby wartości jednocyfrowe (0-9) miały wiodącą liczbę 0:

Response.Write Right("0" & value, 2)

Wypisze to najbardziej prawe 2 cyfry, więc 1 stanie się "01", a 99 zmieni się na "099", ale wydrukowane zostaną tylko 2 najbardziej odpowiednie cyfry, czyli "99".