Keskustelu: Ohjelmointikysymykset: VB6: Vuoden poiminta stringistä

timo80 [15.01.2009 13:09:35]

Moro,

Eli mitenkäs saan poimittua vuoden tämän muotoisesta stringistä "12.12.2008".
Tarkoistus olisi siis jos vaikka string nimeltä paiva1 = "12.12.2008", niin silloin string nimeltä tyyppi = "08". Vastaavasti If paiva1 21.02.2009 then tyyppi = "09". Päivämäärät ja kuukaudet ovat vaihtelevia ja niitä ei tarvita jälkeenpäin.

sqwiik [15.01.2009 13:38:10]

Jos kaikki päivämäärät ovat tuota samaa muotoa niin riittää varmaan ottaa päivämäärästä kaksi viimeisintä merkkiä Right()-funktiolla.

timo80 [15.01.2009 14:33:14]

Kiitoksia, noin se oli kieltämättä hyvin simppeli toteuttaa. Lähdin miettimään jotain turhan monimutkaista.

Juhko [16.01.2009 21:25:53]

Koko vuoden saat (sen pituudesta riippumatta) näin:

paiva$ = "24.12.2008" 'luettava päivämäärä

vuosi$="" 'älä muuta
For i% = Len(paiva$) To 1 Step -1 'lopusta alkuun -selaus
  If Mid$(paiva$, i%, 1) = "." Then Exit For 'jos merkki on piste, poistutaan
  vuosi$ = Mid$(paiva$, i%, 1) + vuosi$ 'lisätään merkki vuoden alkuun
Next i%
'vuosi$ on nyt "2008"

En testannut tuota, mutta virheet on varmaan helppo korjata. :)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen