Vba တွင် အချိန်ကွာခြားပုံကို တွက်ချက်နည်း (ဥပမာများဖြင့်)

နှစ်ကြိမ်ကြားရှိ ခြားနားချက်ကို တွက်ချက်ရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်-

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

ဤအထူးမက်ခရိုသည် A2:A7 နှင့် B2:B7 အပိုင်းအခြားများရှိ သက်ဆိုင်ရာအချိန်များအကြား ခြားနားချက်ကို တွက်ချက်ပြီး အောက်ပါရလဒ်များကို ပြန်ပေးသည်-

• C2:C7 သည် ရက်များအတွင်း အချိန်ကွာခြားမှုပါရှိသည်။
• D2:D7 သည် နာရီများတွင် အချိန်ကွာခြားမှုပါရှိသည်။
• E2:E7 သည် မိနစ်အတွင်း အချိန်ကွာခြားချက်ပါရှိသည်။
• F2:F7 သည် စက္ကန့်အတွင်း အချိန်ကွာခြားမှုပါရှိသည်။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

ဥပမာ- VBA တွင် အချိန်ကွာခြားချက်ကို တွက်ချက်ပါ။

Excel တွင် ကျွန်ုပ်တို့တွင် အောက်ပါကော်လံနှစ်ခုရှိသည်ဆိုပါစို့။

စတင်ချိန်နှင့် ပြီးဆုံးချိန်တစ်ခုစီကြားရှိ အချိန်ကွာခြားချက်ကို တွက်ချက်ရန်နှင့် ကော်လံ C မှ F တွင် ရလဒ်များကို ပြသရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ကော်လံများ C မှ F သည် မတူညီသော ယူနစ်များတွင် စတင်ချိန်နှင့် ပြီးဆုံးချိန်များကြား အချိန်ကွာခြားချက်ကို ဖော်ပြသည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA တွင် ရက်စွဲများ နှိုင်းယှဉ်နည်း
VBA တွင် ရက်စွဲနှစ်ခုကြားရှိရက်များကို တွက်ချက်နည်း
VBA တွင် string ကို ရက်စွဲသို့ မည်သို့ပြောင်းရမည်နည်း။