iki saat arası fark fonksiyonla alabilirken makro ile hata veriyor

[burhancavus61]

eklediğim örnekte 3. sıradaki akşam vardiyasında 16:00 - 24:00 vardiyası hesabını fonksiyonla alabilirken makro ile alamıyorum -16 olarak gösteriyor
G sütununa günlük çalışma sürelerini almam gerekiyor. makro kodunda gece 12 den sonrayı bir türlü entegre edemedim.
mod kullandım fakat onda da sıfır çıkıyor

 

[Greenblacksea53]

Dosyanız ekte

Dim vardiyaGirisi As Date
    Dim molaBaslangici As Date
    Dim molaBitisi As Date
    Dim vardiyaBitisi As Date
    Dim toplamSaat As Double
    
    vardiyaGirisi = TimeValue(Me.ComboBox62.Value)
    molaBaslangici = TimeValue(Me.ComboBox63.Value)
    molaBitisi = TimeValue(Me.ComboBox64.Value)
    vardiyaBitisi = TimeValue(Me.ComboBox65.Value)

    If vardiyaBitisi < vardiyaGirisi Then
        vardiyaBitisi = vardiyaBitisi + 1
    End If
    
    toplamSaat = (vardiyaBitisi - vardiyaGirisi) - (molaBitisi - molaBaslangici)
    
    If toplamSaat < 0 Then
        toplamSaat = 24 + toplamSaat
    End If
   MsgBox Format(toplamSaat, "hh:mm")

Butonu tetikleyen kısma yukarıdaki kodları eklermisin denemedim haber bekliyorum..

 

[burhancavus61]

Çok teşekkür ederim özellikle gece 12 den sonra hata alıyordum şimdi düzelmiş emeğinize sağlık.

 

[burhancavus61]

üstat aynı tabloda sadece giriş ve çıkış arasında saat 20:00 - 06:00 arasında geçen süre hesaplanabilirmi?

 

[Greenblacksea53]

üstat aynı tabloda sadece giriş ve çıkış arasında saat 20:00 - 06:00 arasında geçen süre hesaplanabilirmi?

2. Numaralı mesaj ile zaten hesaplamıyor mu? Normalde hesaplaması lazım yada ben konuyu anlamadım..

 

[burhancavus61]

hesaplama yapıyor üstad ilave olarak giriş ile çıkış saatleri 20:00 06:00 arasında kalıyorsa arada kalan süreyi bulmam gerek.
örnek 16:00 - 24:00 vardiyasında 20:00-24:00 arası 4 saat gece mesaisi var
24:00 08:00 de 06:00 ya kadar ise 6 saat gece mesaisi var
yani giriş ile çıkış değişkenleri arası kaç saat gece mesai saati var bulmm gerek