Olen tekemässä ohjelmaa joka laskee kahdesta eri kellonajasta erotuksen siis että kauanko kyseiseen aikaan on aikaa.
Esim. jos kello on tällä hetkellä 8:00 ja halutaan laskea kauanko on aikaa että kello on 9:00, niin kyllähän ohjelmani sen osaa laskea ihan normaalilla miinus laskulla, mutta eri juttu onkin sitten jos aika on jo mennyt eli käännetääs tuo juttu toisinpäin:
Jos kello on tällä hetkellä 9:00 ja halutaan laskea kuinka pitkä aika on että kello on 8:00, niin ohjelmani vinksahtaa täysin ja näyttää että kello kahdeksaan aamulla on tasan tunti aikaa vaikka eihän se pidä paikkaansa joten miten tuon saisi toimimaan siten että se osaa laskea oikein jo menneenkin ajan eikä vain tulevaa?
Vaikea miinus lasku
laskelmoija
3
485
Vastaukset
- kokeile tota
TulevaAika
AikaNyt
AikojenErotus?
if(TulevaAika < AikaNyt) AikojenErotus=(TulevaAika 12)-AikaNyt
else AikojenErotus=TulevaAika-AikaNyt- laskelmoija
En saa tuota koodiasi toimimaan sitten millään.
En tajua missä vika voisi olla?
Dim AikojenErotus As Date
If (txtAika.Text < Time) Then
AikojenErotus = (txtAika.Text 12) - Time
Else
AikojenErotus = txtAika.Text - Time
End If
Virheilmoitus on "Run-time error '13': Type mismatch" ja se näyttää sitä ajasta riippuen eli siis jos aika on mennyt niin virhe on silloin tässä "AikojenErotus = (txtAika.Text 12) - Time"
...ja jos aika on tuleva niin virhe aiheutuu tässä "AikojenErotus = txtAika.Text - Time". - laskelmoija
laskelmoija kirjoitti:
En saa tuota koodiasi toimimaan sitten millään.
En tajua missä vika voisi olla?
Dim AikojenErotus As Date
If (txtAika.Text < Time) Then
AikojenErotus = (txtAika.Text 12) - Time
Else
AikojenErotus = txtAika.Text - Time
End If
Virheilmoitus on "Run-time error '13': Type mismatch" ja se näyttää sitä ajasta riippuen eli siis jos aika on mennyt niin virhe on silloin tässä "AikojenErotus = (txtAika.Text 12) - Time"
...ja jos aika on tuleva niin virhe aiheutuu tässä "AikojenErotus = txtAika.Text - Time".Joo ei mitään... ihan toimiva ja hyvä koodi se olikin :)
Minussa se vika oli eikä koodissa, kiitos paljon avusta!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225224- 254388
- 282531
- 342264
- 372008
- 151928
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191617- 121541
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211277Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101184