Keskustelu: Ohjelmointikysymykset: VB6: VB5 Aika Onkelma

Teinpähän tässä aikani kuluksi Visual Basic 5:lla Kesäloma Laskurin. Sain sen valmiiksi ja kaikki toimi niinkuin pitikin mutta tänä aamuna (kuukauden vaihduttua) laskuri meni sekaisin. Ohjelma väittää että kesäkuun 1. päivään on 152 päivää aikaa vaikka eilen se kertoi jotain 122 (muistaakseni). Ohjelma näyttää myös tunnit, minuutit ja sekunnit ja ne ovat riippuvaisia päivämäärästä. Huomion bugin mistä tämä johtui. Koodi menee jotenkin näin

Private Sub Form_Load()
Text1.Text = 153 - Day(Date)
Text2.Text = Text1.Text * 24 - Hour(Time)
Text3.Text = Text2.Text * 60 - Minute(Time)
Text4.Text = Text3.Text * 60 - Second(Time)
Text5.Text = 6 - Month(Date)
End Sub

Ohjelma vähentää 153 vain päivämäärän eikä koko vuoden aikana kuluneita päiviä. En osaa säätää sitä sellaiseksi joten jos joku voisi vähän auttaa olisin kiitollinen.

Käytä Date-tyyppistä muuttujaa

Dim D As Date

D = "1.6.2004"
Text1 = Format(D - Now, "mm.dd.hh:mm:ss")
'näyttää jäljellä olevat kuukaudet, päivät, tunnit,minuutit ja sekunnit
'Jos haluat päivät, saat ne seuraavasti
Text1 = Clng(D) - Clng(Now)

Kiitoksia!