İki Üç Tarih Arasında Boş Alan Hesaplama

(15/10/2020, 13:05)ozanakkaya yazdı: Form açıldığında, Oto_Tarih metin kutusunda günün tarihi yazmıyor mu?

yazıyor. fakat ben şu an olayı çözmek için sizin vermiş olduğunuz yöntemle olayı anlamaya çalışıyorum. o haliyle de hata verdi

Uygulamanızdaki modülde Diff2Dates fonksiyonu var mı acaba??

Public Function Diff2Dates(Interval As String, Date1 As Variant, Date2 As Variant, _

Optional ShowZero As Boolean = False) As Variant



On Error GoTo Err_Diff2Dates



   Dim booCalcYears As Boolean

   Dim booCalcMonths As Boolean

   Dim booCalcDays As Boolean

   Dim booCalcHours As Boolean

   Dim booCalcMinutes As Boolean

   Dim booCalcSeconds As Boolean

   Dim booCalcWeeks As Boolean

   Dim booSwapped As Boolean

   Dim dtTemp As Date

   Dim intCounter As Integer

   Dim lngDiffYears As Long

   Dim lngDiffMonths As Long

   Dim lngDiffDays As Long

   Dim lngDiffHours As Long

   Dim lngDiffMinutes As Long

   Dim lngDiffSeconds As Long

   Dim lngDiffWeeks As Long

   Dim varTemp As Variant



   Const INTERVALS As String = "dmyhnsw"





   Interval = LCase$(Interval)

   For intCounter = 1 To Len(Interval)

      If InStr(1, INTERVALS, Mid$(Interval, intCounter, 1)) = 0 Then

         Exit Function

      End If

   Next intCounter





   If IsNull(Date1) Then Exit Function

   If IsNull(Date2) Then Exit Function

   If Not (IsDate(Date1)) Then Exit Function

   If Not (IsDate(Date2)) Then Exit Function



   If Date1 > Date2 Then

      dtTemp = Date1

      Date1 = Date2

      Date2 = dtTemp

      booSwapped = True

   End If



   Diff2Dates = Null

   varTemp = Null





   booCalcYears = (InStr(1, Interval, "y") > 0)

   booCalcMonths = (InStr(1, Interval, "m") > 0)

   booCalcDays = (InStr(1, Interval, "d") > 0)

   booCalcHours = (InStr(1, Interval, "h") > 0)

   booCalcMinutes = (InStr(1, Interval, "n") > 0)

   booCalcSeconds = (InStr(1, Interval, "s") > 0)

   booCalcWeeks = (InStr(1, Interval, "w") > 0)





   If booCalcYears Then

      lngDiffYears = Abs(DateDiff("yyyy", Date1, Date2)) - _

              IIf(Format$(Date1, "mmddhhnnss") <= Format$(Date2, "mmddhhnnss"), 0, 1)

      Date1 = DateAdd("yyyy", lngDiffYears, Date1)

   End If



   If booCalcMonths Then

      lngDiffMonths = Abs(DateDiff("m", Date1, Date2)) - _

              IIf(Format$(Date1, "ddhhnnss") <= Format$(Date2, "ddhhnnss"), 0, 1)

      Date1 = DateAdd("m", lngDiffMonths, Date1)

   End If



   If booCalcWeeks Then

      lngDiffWeeks = Abs(DateDiff("w", Date1, Date2)) - _

              IIf(Format$(Date1, "hhnnss") <= Format$(Date2, "hhnnss"), 0, 1)

      Date1 = DateAdd("ww", lngDiffWeeks, Date1)

   End If



   If booCalcDays Then

      lngDiffDays = Abs(DateDiff("d", Date1, Date2)) - _

              IIf(Format$(Date1, "hhnnss") <= Format$(Date2, "hhnnss"), 0, 1)

      Date1 = DateAdd("d", lngDiffDays, Date1)

   End If



   If booCalcHours Then

      lngDiffHours = Abs(DateDiff("h", Date1, Date2)) - _

              IIf(Format$(Date1, "nnss") <= Format$(Date2, "nnss"), 0, 1)

      Date1 = DateAdd("h", lngDiffHours, Date1)

   End If



   If booCalcMinutes Then

      lngDiffMinutes = Abs(DateDiff("n", Date1, Date2)) - _

              IIf(Format$(Date1, "ss") <= Format$(Date2, "ss"), 0, 1)

      Date1 = DateAdd("n", lngDiffMinutes, Date1)

   End If



   If booCalcSeconds Then

      lngDiffSeconds = Abs(DateDiff("s", Date1, Date2))

      Date1 = DateAdd("s", lngDiffSeconds, Date1)

   End If



   If booCalcYears And (lngDiffYears > 0 Or ShowZero) Then

      varTemp = lngDiffYears & IIf(lngDiffYears <> 1, " yıl", " yıl")

   End If



   If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then

      If booCalcMonths Then

         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _

                   lngDiffMonths & IIf(lngDiffMonths <> 1, " ay", " ay")

      End If

   End If



   If booCalcWeeks And (lngDiffWeeks > 0 Or ShowZero) Then

      If booCalcWeeks Then

         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _

                   lngDiffWeeks & IIf(lngDiffWeeks <> 1, " hafta", " hafta")

      End If

   End If



   If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then

      If booCalcDays Then

         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _

                   lngDiffDays & IIf(lngDiffDays <> 1, " gün", " gün")

      End If

   End If



   If booCalcHours And (lngDiffHours > 0 Or ShowZero) Then

      If booCalcHours Then

         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _

                   lngDiffHours & IIf(lngDiffHours <> 1, " saat", " saat")

      End If

   End If



   If booCalcMinutes And (lngDiffMinutes > 0 Or ShowZero) Then

      If booCalcMinutes Then

         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _

                   lngDiffMinutes & IIf(lngDiffMinutes <> 1, " dakika", " dakika")

      End If

   End If



   If booCalcSeconds And (lngDiffSeconds > 0 Or ShowZero) Then

      If booCalcSeconds Then

         varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _

                   lngDiffSeconds & IIf(lngDiffSeconds <> 1, " saniye", " saniye")

      End If

   End If



   If booSwapped Then

      varTemp = "-" & varTemp

   End If



   Diff2Dates = Trim$(varTemp)



End_Diff2Dates:

   Exit Function



Err_Diff2Dates:

   Resume End_Diff2Dates



End Function

Malesef böyle bir fonksiyon yok

sayın ozanakkaya fonksiyonu ekleyince çalıştı. teşekkür ederim. işi anlamak için soruyorum. fonksiyonda biz olaya ne dedik aslında (boş gördüğün tarih alanlarını görme gibi mi? ). böyle olaylar için fonksiyon olayını nasıl düşünüp kurgulamalıyız.

=IIf(IsNull([İSCİKİS]);Diff2Dates("ymd";[İSEGİRİS];Date();Doğru);Diff2Dates("ymd";[İSEGİRİS];[İSCİKİS];Doğru))

üstteki kodda İSCİKİS isimli alan boş ise kırmızı kod, dolu ise mavi kod çalışır.

iif(Koşul;Koşul Doğruysa;Koşul Yanlışsa)

Ayrıca Yapılmaması Gereken Ölümcül Hatalar
konusunu inceleyiniz. İSCİKİS adında metin kutusu olmaz, mtn_iscikis veya ISCIKIS şeklinde olmalı. Tablodaki alanlar ve formdaki denetimler Türkçe karakter içermemelidir.

ilginize teşekkür. ben Diff2Dates fonksiyonu için prosedür yazdınız onu demiştim.