Kuinka kauan aikaa on jouluun? Tämä koodi kertoo sen ilman kummempia päässälaskuja ja samalla opettaa Format ja Abs-funktioiden käyttöä. Osaa myös katsoa, onko tämän vuoden joulu jo mennyt. Jos on, kerrotaan paljonko aikaa on seuraavan vuoden jouluun. Pitäisi olla hyvin kommentoitu. Tarvitset yhden labelin nimeltä Label1
Private Sub Form_Load() Dim nyt As Date 'Kerrotaan etta nyt on paivamaata Dim joulu As Date 'Ja niin on joulukin nyt = Format(Now, "ddddd") 'Tämä päivä If nyt > "24.12." & Format(Now, "yyyy") Then 'jos joulu on jo mennyt joulu = "24.12." & Format(Now, "yyyy") + 1 'niin katsotaan paljonko on aikaa seuraavan vuoden jouluun Else 'mutta jos ei olekaan joulu = "24.12." & Format(Now, "yyyy") 'niin joulu on tämän vuoden joulu End If Label1.Caption = "Jouluun enää " & Abs(nyt - joulu) & " päivää" 'Ja label1:seen "Jouluun enää X päivää!" Abs tarvitaan luvun itseisarvon saamiseen, koska muuten tuloksena olisi X:n sijasta -X päivää. Abs antaa luvun ilman etumerkkiä. End Sub
Mahtava. Tuli heti tarpeen katsella taas Laaksosen QBasicilla tekemä jouludemo. :D
Aihe on jo aika vanha, joten et voi enää vastata siihen.