VBA TimeValue | Paano Gumamit ng Time Value Function sa Excel VBA?

Ang Halaga ng Oras sa VBA ay isang inbuilt na pag-andar na ikinategorya din sa ilalim ng pag-andar ng petsa at oras sa VBA, ang pagpapaandar na ito bilang iminumungkahi ng pangalan ay nagbibigay sa amin ng halagang bilang ng petsa na ibinigay bilang isang argument, tumatagal ito ng isang solong argumento kung alin ang petsa at ibabalik ang numerong halaga mula sa argument.

Ano ang Ginagawa ng Pag-andar ng Halaga ng Oras sa VBA?

Ang pagpapaandar ng Time Value sa VBA Excel ay nagbabalik ng bahagi ng halaga ng oras mula sa buong petsa at oras. Ang petsa at oras ay nakaimbak bilang mga serial number sa excel. Ang serial number ay kumakatawan sa DATE at ang decimal ay kumakatawan sa oras. Gamit ang pag-andar ng TimeValue maaari lamang tayong makakuha ng serial number ng oras ibig sabihin decimal number.

Syntax ng VBA TimeValue Function

Ang syntax ng pagpapaandar ng VBA TimeValue tulad ng sumusunod.

Tulad ng sinabi namin na ang pagpapaandar ng TimeValue ay nagbabalik ng bahagi ng serial number ng ibinigay na petsa na naimbak bilang isang halaga ng teksto. Ang oras ay walang anuman kundi ang aktwal na oras na hinahanap namin upang makuha ang serial number. Tandaan Ang Halaga ng Oras ay makakakuha lamang ng serial number mula sa oras na nakaimbak bilang teksto, hindi bilang TIME.

Mga halimbawa ng TimeValue Function na may Excel VBA

Nasa ibaba ang mga halimbawa ng VBA TimeValue Function.

Maaari mong i-download ang Template ng Pag-andar ng VBA TimeValue na ito - Template ng Pag-andar ng VBA TimeValue

VBA TimeValue Halimbawa Halimbawa # 1

Ngayon, tingnan ang simpleng halimbawa ng pagpapaandar ng VBA TimeValue.

Code:

 Sub TIMEVALUE_Function_Example1 () 'I-convert ang naibigay na input string sa isang wastong oras at ipakita sa screen' Variable declaration Dim MyTime As Date 'Magtalaga ng oras sa isang variable MyTime = TimeValue ("28-05-2019 16:50:45")' Ipakita ang output sa screen na MsgBox na "Kasalukuyang Oras ay:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 

Unang bagay na idineklara ko ang variable "Aking oras" bilang Petsa.

 I-dim ang MyTime Bilang Petsa 

Pagkatapos ay itinalaga ko ang halaga sa variable sa pamamagitan ng paglalapat ng TimeValue.

MyTime = TimeValue ("28-05-2019 16:50:45")

Pagkatapos sa kahon ng mensahe, naitalaga ko ang variable na resulta.

Ang MsgBox "Ang Oras na Ibinigay ay:" & MyTime, vbInformation, "TIMEVALUE Function".

Kung patakbuhin ko ang code gamit ang F5 key o mano-mano pagkatapos, makukuha namin ang resulta tulad ng sumusunod.

VBA TimeValue Halimbawa Halimbawa # 2

Para sa parehong code, idedeklara ko ang variable ng VBA bilang "Double".

Code:

 Sub TIMEVALUE_Function_Example1 () 'I-convert ang ibinigay na input string sa isang wastong oras at ipakita sa screen na' Variable declaration Dim MyTime As Double 'Magtalaga ng oras sa isang variable MyTime = TimeValue ("28-05-2019 16:50:45")' Ipakita ang output sa screen na MsgBox na "Kasalukuyang Oras ay:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 

Ngayon kung patakbo ko nang manu-mano ang VBA code o sa pamamagitan ng pagpindot sa F5 key, ipapakita nito ang bahagi ng serial number ng oras 16:50:45.

Para sa iyong mas mahusay na pag-unawa, ilalagay ko muna ang mga numero na ibinigay ng kahon ng mensahe ng VBA sa isa sa mga cell.

Ngayon ay ilalapat ko ang format ng oras upang suriin ang eksaktong resulta.

Kapag na-convert mo ito sa isang format ng oras, maaari mong makita ang eksaktong oras.

VBA TimeValue Halimbawa Halimbawa # 3

Ngayon, tingnan ang data sa ibaba.

Mayroon kaming data at oras na magkakasama mula sa A1 hanggang A14 cells. Para sa pangalawang haligi, kailangan lamang nating kunin ang halaga ng oras. Dahil mayroon kaming higit sa isang cell upang harapin kailangan naming gumamit ng mga loop upang maisagawa ang parehong hanay ng mga gawain para sa lahat ng mga cell.

Mayroon kaming data mula sa ika-1 na cell hanggang sa ika-14 na cell, kaya dapat tumakbo ang aming loop sa loob ng 14 na beses. Kailangan naming gamitin PARA SA SUSUNOD na loop sa VBA upang banggitin ang mas mababang limitasyon at itaas na limitasyon. Ang Below code ay ang nakasulat na code upang kumuha ng halaga ng oras mula sa pagsasama ng petsa at oras.

Code:

 Sub TimeValue_Example3 () Dim k Bilang Integer Para sa k = 1 To 14 Cells (k, 2). Value = TimeValue (Cells (k, 1) .Value) Susunod k End Sub 

Kapag pinatakbo namin ang code makakakuha kami ng mga halagang tulad ng nasa ibaba.

Kung nais mong makita ang oras pagkatapos ay ilapat ang format na TIME dito.

Kaya, ganito gumagana ang pag-andar ng TIME VALUE sa VBA & Excel.