TimeValue Function

Badantino saate, daqiiqa, nna sekonde giddonni antete yanna hornyo shallagganno. Eishshuwa tircho kiirote hornyonni yanna wobe sa'anno naannifikiimmuwate gede sa'ino. Tini hornyo yannate badooshshe shallaggate ka'litanno.

Ganallo:

YannateHornyo (Borro Naanni-fikiimate Gede)

Qolote guma:

Barra

Eishshuwa:

Borro: "SS:DD:SS" suudishsha giddo shallagga hasiratto yanna amaddanno naannifikiimate handaara.

Yanna tircho hornyo wido woleessate YannateHornyo assishsha horonsi'ri, konni daafira yannate badooshshe shallagga dandaatto.

Tini YannateHornyo assishsha danu Baxxaancho VarDana 7 (Barra) nni qoltanno, qoleno tenne hornyo giddoonni marro-murcimma kiiro gede 0 nna 0.9999999999 mereero kuussanno.

BarruAante woy BarruHornyo assishshara gurcho ikkitanno daafira, aantete barri hornyuwa Rosamino barrira riletive ikkitino barruwa ikkite leellitanno, YannateHornyonni higgino hornyuwanni shallagga dandaatto, kayinni shallagga didandaatto.

YannateAante assishsha giddo, eishshuwa (saate, daqiiqa, sakonde) badancho kiirote handaarra gede sayisa dandaatto. YannateHornyo assishshara, naannifikiima yanna amaddanno eishsha gede sayisa dandaatto.

Lawishsha:

Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "hanafote yanna"
    b1 = "jeeffote yanna"
    c1 = "ledo yanna"
    a2 = "8:34"
    b2 = "18:12"
    daDT = TimeValue(b2) - TimeValue(a2)
    c2 = a1 & ": " & a2 & chr(13)
    c2 = c2 & b1 & ": " & b2 & chr(13)
    c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
    MsgBox c2
End Sub