Üretim Planlama Destek lütfen

[avare1907]

Değerli hocalarım,
aşağıda yapmış olduğum çalışmaya istinaden görsel mevcut ,

Görseldeki verileri şu şekilde özetliyeyim
•Günlük kapasite sütununda parçaya göre değişkenlik gösteren max. örnekteki miktar 2000 Adet kapasite miktarı var buradan günlük teoride kaç adet üretilebilir gerçekleşen kaç adet olmuş bunun takibini günlük verim oranı takip etmek ancak takip edebilmek için sipariş miktarının çay ve mola saatlerini düştüğümüzde bitmesi gereken tarih ve saati planlanan bitiş tarih ve saat sütununa yazması gerekiyor tabii burada önemli olan başlama ve bitiş tarihinin hangi mola saatlerine isabet ettiği onu tespit edip onları pas geçip o sürelerde üretimi durdurarak bitmesi gereken tarih saati bulmak

•gerçekleşen tarih ve saat sütunlarını ve sonucu olan gerçekleşen Süre (dk) sütununu incelerseniz sorunsuz bir şekilde çıkartmış
07:30'ile 13:30 arası çalışmış 6*60=360 o aralığa yemek paydosu ile çay paydosu denk gelmiş -15 dk -30 dk = 315 dakika

bununla ilgili 2 haftadır uğraşıyorum ancak tutarlı bir sonucu veren kod yada formül yapamadım bununla ilgili bilgisi ve yardım edebilecek hocalarımızdan destek rica ediyorum şimdiden teşekkürleri sunarım,

Bu sayfadaki çalışan kod ile Planlanan bitiş tarih saat sütununda kullandığım formülü aşağıya ekliyorum incelemenizi rica ederim saygılarımla.




Function PlanlananBitisFinal(BaslangicTarih As Date, BaslangicSaat As Date, Kapasite As Double, Adet As Double) As Date
Dim BaslangicZaman As Date
Dim ToplamSure As Double
Dim Molalar() As Variant
Dim ToplamMolaSure As Double
Dim i As Integer

' Molaları tanımla (sabitler)
Molalar = Array( _
Array(TimeValue("10:00:00"), TimeValue("10:15:00")), _
Array(TimeValue("13:00:00"), TimeValue("13:30:00")), _
Array(TimeValue("16:00:00"), TimeValue("16:15:00")) _
)

BaslangicZaman = BaslangicTarih + BaslangicSaat

' Dakikada üretim hızı
Dim AdetPerDakika As Double
AdetPerDakika = Kapasite / 540 ' net çalışma dakikası

' Üretim süresi (dakika)
ToplamSure = Adet / AdetPerDakika

' Üretim süresinin başlangıç ve bitiş saatleri (geçici)
Dim UretimBitisZaman As Date
UretimBitisZaman = BaslangicZaman + ToplamSure / 1440

' Mola sürelerini kontrol et, üretim süresi boyunca kaç dakika mola denk geliyor hesapla
ToplamMolaSure = 0
For i = LBound(Molalar) To UBound(Molalar)
Dim MolaBas As Date, MolaBit As Date
MolaBas = Int(BaslangicZaman) + Molalar(i)(0)
MolaBit = Int(BaslangicZaman) + Molalar(i)(1)

' Eğer üretim aralığı molaya denk geliyorsa mola süresini ekle
If (UretimBitisZaman > MolaBas) And (BaslangicZaman < MolaBit) Then
' Mola ve üretim kesişim süresi:
Dim MolaGecisBas As Date, MolaGecisBit As Date
MolaGecisBas = IIf(BaslangicZaman > MolaBas, BaslangicZaman, MolaBas)
MolaGecisBit = IIf(UretimBitisZaman < MolaBit, UretimBitisZaman, MolaBit)
ToplamMolaSure = ToplamMolaSure + DateDiff("n", MolaGecisBas, MolaGecisBit)
End If
Next i

' Mola sürelerini üretim süresine ekle
ToplamSure = ToplamSure + ToplamMolaSure

' Son bitiş zamanı
PlanlananBitisFinal = BaslangicZaman + ToplamSure / 1440
End Function

Planlanan Bitiş tarih saat formülü
=EĞER(VE(F3<>""; G3<>""; E3<>""; N3<>""); PlanlananBitisFinal(F3; G3; E3; N3); "")