Pag-andar ng TimeSerial

Kinakalkula ang isang serial time value para sa tinukoy na oras, minuto, at segundo na mga parameter na ipinapasa bilang numeric na halaga. Pagkatapos ay maaari mong gamitin ang halagang ito upang kalkulahin ang pagkakaiba sa pagitan ng mga oras.

Syntax:

TimeSerial (oras, minuto, segundo)

Ibinalik na halaga:

Petsa

Mga Parameter:

oras: Anumang integer expression na nagsasaad ng oras ng oras na ginagamit upang matukoy ang serial time value. Mga wastong halaga: 0-23.

minuto: Anumang integer expression na nagsasaad ng minuto ng oras na ginagamit upang matukoy ang serial time value. Sa pangkalahatan, gumamit ng mga value sa pagitan ng 0 at 59. Gayunpaman, maaari ka ring gumamit ng mga value na nasa labas ng saklaw na ito, kung saan ang bilang ng mga minuto ay nakakaimpluwensya sa halaga ng oras.

pangalawa: Anumang integer na expression na nagsasaad ng pangalawa ng oras na ginagamit upang matukoy ang halaga ng serial time. Sa pangkalahatan, maaari kang gumamit ng mga value sa pagitan ng 0 at 59. Gayunpaman, maaari ka ring gumamit ng mga value na nasa labas ng saklaw na ito, kung saan ang numero ng mga segundo ay nakakaimpluwensya sa minutong halaga.

Mga halimbawa:

12, -5, 45 ay tumutugma sa 11, 55, 45

12, 61, 45 ay tumutugma sa 13, 2, 45

12, 20, -2 ay tumutugma sa 12, 19, 58

12, 20, 63 ay tumutugma sa 12, 21, 4

Maaari mong gamitin ang function na TimeSerial upang i-convert anumang oras sa isang solong halaga na magagamit mo upang kalkulahin ang mga pagkakaiba sa oras.

Ibinabalik ng TimeSerial function ang uri ng Variant na may VarType 7 (Petsa). Ang value na ito ay panloob na iniimbak bilang double-precision na numero sa pagitan ng 0 at 0.9999999999. Kabaligtaran sa DateSerial o DateValue function, kung saan ang mga serial value ng petsa ay kinakalkula bilang mga araw na nauugnay sa isang nakapirming petsa, maaari mong kalkulahin ang mga value na ibinalik ng TimeSerial function, ngunit hindi mo masusuri ang mga ito.

Sa TimeValue function, maaari kang magpasa ng string bilang parameter na naglalaman ng oras. Para sa TimeSerial function, gayunpaman, maaari mong ipasa ang mga indibidwal na parameter (oras, minuto, segundo) bilang hiwalay na mga numeric na expression.

Halimbawa:

Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
    dDate = TimeSerial(8,30,15)
    sDate = TimeSerial(8,30,15)
    MsgBox dDate,64,"Oras bilang isang numero"
    MsgBox sDate,64,"Na-format na oras"
End Sub