IBM Lotus Symphony


Funkcia TimeSerial [Runtime]

Vypočíta poradovú hodnotu času pre špecifikované parametre hodiny, minúty a sekundy odovzdávané ako numerická hodnota. Túto hodnotu môžete potom použiť na výpočet rozdielu medzi časmi.

Syntax:

TimeSerial (hour, minute, second)

Návratová hodnota:

Dátum

Parametre:

hour: Každý celočíselný výraz označujúci hodinu času, ktorý sa používa na určenie poradovej hodnoty času. Platné hodnoty: 0-23.

minute: Každý celočíselný výraz označujúci minútu času, ktorý sa používa na určenie poradovej hodnoty času. Vo všeobecnosti môžete používať hodnoty medzi 0 a 59. Môžete však používať aj hodnoty, ktoré sú mimo tohto rozsahu, pričom počet minút ovplyvňuje hodnotu hodiny.

second: Každý celočíselný výraz označujúci sekundu času, ktorý sa používa na určenie poradovej hodnoty času. Vo všeobecnosti môžete používať hodnoty medzi 0 a 59. Môžete však používať aj hodnoty, ktoré sú mimo tohto rozsahu, pričom počet sekúnd ovplyvňuje hodnotu minúty.

Príklady:

12, -5, 45 zodpovedá 11, 55, 45

12, 61, 45 zodpovedá 13, 2, 45

12, 20, -2 zodpovedá 12, 19, 58

12, 20, 63 zodpovedá 12, 21, 4

Funkciu TimeSerial môžete použiť na skonvertovanie každého času na jednu hodnotu, ktorú môžete použiť na výpočet rozdielov medzi časmi.

Funkcia TimeSerial vráti typ Variant s VarType 7 (Dátum). Táto hodnota sa ukladá interne ako dvojnásobne presné číslo medzi 0 a 0.9999999999. Na rozdiel od funkcie DateSerial alebo DateValue, kde sa poradové hodnoty dátumu vypočítavajú ako dni vzhľadom na pevný dátum, ich môžete vypočítať pomocou hodnôt vrátených funkciou TimeSerial, nemôžete ich však vyhodnotiť.

Vo funkcii TimeValue môžete reťazec odovzdať ako parameter obsahujúci čas. V prípade funkcie TimeSerial môžete však jednotlivé parametre (hodina, minúta, sekunda) odovzdať ako samostatné numerické výrazy.

Chybové kódy

5 Neplatné volanie procedúry

Príklad:

Sub ExampleTimeSerial

Dim dDate As Double, sDate As String

dDate = TimeSerial(8,30,15)

sDate = TimeSerial(8,30,15)

MsgBox dDate,64,"Čas ako číslo"

MsgBox sDate,64,"Naformátovaný čas"

End Sub


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky