IBM Lotus Symphony


TimeSerial-funktio [käytönaikainen]

Laskee sarja-aika-arvon määritetyn tunti-, minuutti- ja sekuntiparametrin mukaan, jotka välitetään numeroarvona. Sen jälkeen voit laskea kahden kellonajan eron tämän luvun avulla.

Syntaksi:

TimeSerial (hour, minute, second)

Palautusarvo:

Päivämäärä

Parametrit:

hour: Mikä tahansa kokonaislukulauseke, joka osoittaa sen kellonajan tunnin, jonka avulla sarja-aika-arvo määritetään. Kelvolliset arvot: 0 - 23.

minute: Mikä tahansa kokonaislukulauseke, joka osoittaa sen kellonajan minuutin, jonka avulla sarja-aika-arvo määritetään. Yleensä kelvolliset arvot ovat 0 - 59. Voit kuitenkin käyttää myös tämän alueen ulkopuolella olevia lukuja, jolloin minuuttien määrä vaikuttaa tuntiarvoon.

second: Mikä tahansa kokonaislukulauseke, joka osoittaa sen kellonajan sekunnin, jonka avulla sarja-aika-arvo määritetään. Yleensä voit käyttää arvoja 0 - 59. Voit kuitenkin käyttää myös tämän alueen ulkopuolella olevia lukuja, jolloin sekuntien määrä vaikuttaa minuuttiarvoon.

Esimerkkejä:

12, -5, 45 on sama kuin 11, 55, 45

12, 61, 45 on sama kuin 13, 2, 45

12, 20, -2 on sama kuin 12, 19, 58

12, 20, 63 on sama kuin 12, 21, 4

TimeSerial-funktion avulla voit muuntaa minkä tahansa kellonajan yhdeksi arvoksi, jonka avulla voit laskea kellonaikojen eroja.

TimeSerial-funktio palauttaa lajin Variant ja VarType 7 (päivämäärä). Tämä arvo on tallennettu sisäisesti kaksoistarkkana lukuna 0 - 0,9999999999. Toisin kuin DateSerial-funktiossa tai DateValue-funktiossa, joissa sarjapäivämääräarvot lasketaan päivinä suhteessa kiinteään päivämäärään, TimeSerial-funktion palauttamilla arvoilla voi laskea, mutta niitä ei voi arvioida.

TimeValue-funktiossa voit välittää merkkijonon parametrina, joka sisältää kellonajan. TimeSerial-funktiossa sen sijaan voit välittää yksittäiset parametrit (tunti, minuutti, sekunti) erillisinä numeerisina lausekkeina.

Virhekoodit

5 Virheellinen toimintokutsu

Esimerkki:

Sub ExampleTimeSerial

Dim dDate As Double, sDate As String

dDate = TimeSerial(8,30,15)

sDate = TimeSerial(8,30,15)

MsgBox dDate,64,"Time as a number"

MsgBox sDate,64,"Formatted time"

End Sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit