Keskustelu: Ohjelmointikysymykset: uptime *QB*

Muistan kysyneeni ennenkin tämän samaisen kysymyksen, mutta nyt aion saada sen toimimaan.

DECLARE FUNCTION LaskeAikaEro$ (aa$, la$)
PRINT LaskeAikaEro("08:01:22 12.10.2002", "20:19:15 14.10.2002")

'Funktio laskee eron kahden päivämäärän / ajan välillä.
'Formaatti on tt:mm:ss PP.KK.VVVV
'esimerkiksi: 19:58:00 14.10.2002'
FUNCTION LaskeAikaEro$ (aa$, la$)
  DIM a AS DOUBLE, l AS DOUBLE
  DIM paivat AS INTEGER, tunnit AS INTEGER
  DIM minuutit AS INTEGER, sekunnit AS INTEGER
  DIM p AS STRING

  a = a + VAL(RIGHT$(aa$, 4)) * 365
  a = a + VAL(MID$(aa$, 13, 2)) * 30
  a = a + VAL(MID$(aa$, 10, 2))
  a = a + VAL(LEFT$(aa$, 2)) / 24
  a = a + VAL(MID$(aa$, 4, 2)) / 24 / 60
  a = a + VAL(MID$(aa$, 7, 2)) / 24 / 60 / 60

  l = l + VAL(RIGHT$(la$, 4)) * 365
  l = l + VAL(MID$(la$, 13, 2)) * 30
  l = l + VAL(MID$(la$, 10, 2))
  l = l + VAL(LEFT$(la$, 2)) / 24
  l = l + VAL(MID$(la$, 4, 2)) / 24 / 60
  l = l + VAL(MID$(la$, 7, 2)) / 24 / 60 / 60

  paivat = INT(l - a)
  p = STR$(paivat) + " päivää,"
  l = (l - a) - INT(l - a)

  tunnit = INT(l / (1 / 24))
  p = p + STR$(tunnit) + " tuntia,"
  l = l - tunnit * (1 / 24)

  minuutit = INT(l / (1 / 24 / 60))
  p = p + STR$(minuutit) + " minuuttia,"
  l = l - minuutit * (1 / 24 / 60)

  sekunnit = INT(l / (1 / 24 / 60 / 60))
  p = p + STR$(sekunnit) + " sekuntia"
  LaskeAikaEro = p
END FUNCTION

Kuinkahan mä nyt vielä saisin niin, että etc kansiossa on kaksi tiedostoa, joista ekassa lukee se käynnistysaika ja toisessa uptime ohjelman käynnistysaika?
Tai tokaan ei välttämättä tarvitse uutta tiedostoa tehdä(?), mutta neuvokaas jos osaatte (luulen, että osaatte)

Niin ja siis kyllä mä open blaablaablaa for input as #1 ja nämä hommat osaan, mutta kuinka se homma upotettaisiin siis tuohon Antti Laaksosen kertomaan koodiin?

Olen tekemässä UNIX/LINUX kloonia, kun hyvät esimerkit tuli vastaan ja tajusin itsekkin, että tuollaista ei kovin moni vielä ole quickbasicilla väkertänyt.

Nimeäkään en ole vielä päättänyt, mutta ohjelma kantaa nyt projektinimeä PCOS (P)ersonal (C)omputer (O)perating (S)ystem vaikka quickbasicilla nyt on mahdotonta oikeastaan käyttöjärjestelmää tehdä.

Nimi ehdotuksia olisi kiva kuunnella myös.

Olenpas minä ollut tyhmä, kun vastaus on ollut kokoajan nokan edessä *häpeää tyhmyyttään*

No jokatapauksessa nyt on käytössä jo uptime toiminto, mutta nimeä en tiedä koko fake os ohjelmalle.

Projektinimi on PCOS, mutta luulen, että se on käytössä ja haluaisin sille uuden nimen, mutta en keksi, joten ehdotelkaa te ja minä valitsen mielestäni parhaan nimen sille.