[VBA] Tarihler Arası Hesaplama*

Visual Basic

Me.Metin17 = ""
Me.Metin15 = ""
If Len(GelisTarihi & "") > 0 And Len(Me.GelisSaati & "") > 0 Then
    kosul = CDbl(Weekday(Me.GelisTarihi, 2) & "," & Format(Me.GelisSaati, "hh"))
'kosul = CDbl(Weekday(Me.GelisTarihi, 2) + Format(Me.GelisSaati, "hh") / 100) 'bu da  yazılabilir
    sonuc = IIf(kosul < 7.24 And kosul >= 6.13, (GelisTarihi - Weekday(GelisTarihi, 2) + 8) + TimeValue("8:00"), GelisTarihi + GelisSaati)
    sonuc = DateDiff("n", sonuc, Me.ÇıkışTarihi + Me.ÇıkışSaati)
    If sonuc > 0 Then
        Me.Metin17 = (sonuc \ 24 * 60) * 100
        Me.Metin15 = (sonuc \ 24 * 60)
    End If
End If