ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[ogoktas]

merhaba,
ekli dosyadaki ;
a kolonu: tarihler
b kolonu : başlama saatleri
c kolonu : makinanın günlük çalışma süresini göstermektedir.

örnegin 25.05.2023 tarihinde saat 14:30 başlayan işin toplam süresi 44,6 saattir. bu çalışma sürelerine göre işin bitiş tarihi ve saatini hesaplayan vba kodu veya fonksiyonu konusunda desteklerinizi rica ederim.
saygılarımla

[ogoktas]

merhaba,

a kolonu tarihleri,

b kolonu işe başlama saati,

c kolonu vardiyanın bitiş saatini,

d kolonu ise o makina için günlük vardiya süresini göstermektedir.





manuel hesaplama yaptığımızda iş 25 mayıs saat 14:30 başlayacaktır. ogün makina için 10 saatlik çalışma planlandığı için makina iş başlangıcından sonra 3 saat daha çalışabilir.

26 ,27,28 mayıs çalışma yok,

29 mayış çalışma süresi 12 saat olduğu için 12 saat daha çalışmakta bugün mesai bitimine kadar 44,6 saatlik işin 25 saatini tamamladı.

30 mayıs günü geriye 19,6 saatlik iş kaldı. bu hesaplamaya göre iş 1 haziran 2023 gece 02:30tamamlanacaktır.

bu hesaplamayı vba de formülüze edemedim.

destek olabilecek üstadların desteğini rica ederim.

saygılarımla

[CouseN]

Kod: Tümünü seç

Sub Hesapla()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
   
   
    Set ws = ThisWorkbook.Sheets("Sayfa1")
   
   
    Dim tarihRange As Range
    Dim baslamaSaatRange As Range
    Dim calismaSureRange As Range
   
   
    Set tarihRange = ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
    Set baslamaSaatRange = ws.Range("B2:B" & ws.Cells(Rows.Count, 2).End(xlUp).Row)
    Set calismaSureRange = ws.Range("C2:C" & ws.Cells(Rows.Count, 3).End(xlUp).Row)
   
   
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
   
   
    For i = 1 To lastRow - 1
        Dim tarih As Date
        Dim baslamaSaat As Date
        Dim calismaSure As Double
        Dim bitisTarih As Date
        Dim bitisSaat As Date
       
       
        tarih = tarihRange(i).Value
        baslamaSaat = baslamaSaatRange(i).Value
        calismaSure = calismaSureRange(i).Value
       
       
        bitisTarih = DateAdd("d", Int(calismaSure), tarih)
        bitisSaat = TimeSerial(Hour(baslamaSaat), Minute(baslamaSaat), 0)
        bitisSaat = DateAdd("h", calismaSure - Int(calismaSure), bitisSaat)
     
   
        ws.Cells(i + 1, 4).Value = bitisTarih
        ws.Cells(i + 1, 5).Value = bitisSaat
    Next i
End Sub


[svorm]

Merhaba

Fonksiyon ile alttaki şekilde işinizi görür sanırım.

[ogoktas]

merhaba,
hızlı dönüşünüz için çok teşekkürler,
iyi çalışmalar,