Tietääkö kukaan missä teen perustavaa laatua olevan virheen, kun yritän lisätä textiBoxissa olevaan päivämäärään muotoa - 01.01.2010 - päiviä.
Private Sub cmdLaske_Click()
Dim pvm, vali As Date
pvm = "01.01.2010"
pvm = DateAdd("d", 111, pvm)
MsgBox "111 päivää " & vali & " jälkeen on " & Format(pvm, "c")
End Sub
Näin homma toimisi, mutta kun yritän lukea päivämäärää textiBoxista päivämäärä kylläkin lisääntyy tulostettavalle labelille oikein, mutta sen vuosiluku voi olla mitä vaan esim: 1900 tmv.
Private Sub cmdLaske_Click()
Dim pvm, vali As Date
pvm = "01.01.2010"
pvm = DateAdd("d", 111, pvm)
MsgBox "111 päivää " & vali & " jälkeen on " & Format(pvm, "c")
End Sub
Näin homma toimisi, mutta kun yritän lukea päivämäärää textiBoxista päivämäärä kylläkin lisääntyy tulostettavalle labelille oikein, mutta sen vuosiluku voi olla mitä vaan esim: 1900 tmv.
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.