Päivää.
Ongelmana on, että pitäs pystyä textboxiin laittaa päivämäärä esim. 10102009 jonka järjestelmä osaisi muuttaa muotoon 10.10.2009.
Onko tämmönen edes mahdollista?
Dim dtmPaiva As Date
Text1.Text = "01012009"
dtmPaiva = DateSerial(Val(Mid$(Text1.Text, 5, 4)), Val(Mid$(Text1.Text, 3, 2)), Val(Mid$(Text1.Text, 1, 2)))
Käytin Valia vain sen takia, että se antaa vähiten todennäköisesti virheilmoituksen viallisesta syötteestä. Pidemmässä koodissa on parempi varmistaa, että annettu tieto on sallitussa muodossa ja tehdä sitä varten kunnollinen virheentarkistus.
Kiitos. Tämä näyttää hyvältä. Eiku säätään ja testaan.
Aihe on jo aika vanha, joten et voi enää vastata siihen.