0
Kayıt Ol

Klasik ASP, MySQL ile Tarih Arası Kontrol

11

●

131

  • 21-09-2021, 19:34:02
    #1
    mehmetkul
    mehmetkul
    Merhabalar...
    Öncelikle yapmak istediğim konudan biraz bahsedeyim.
    Tablomda AracMuayene adlı bir bölümüm var buranın değeri DateTime olarak geçmektedir. Ben bu bölümü kullanarak kontrol sağlayıp 15 gün öncesinde ise Rakam ile Muayene 60 gün kaldı gibi yazdıracağım lakin 15 güne geldiğinde ise geri sayım ile 14, 13, 12 gün kaldı gibi uyarılar ekrana yazdırmak istiyorum. Bu konuda yardımcı olabilecek ASP Yazılımcısı arkadaşlardan destek istiyorum. Ben şu tarz bir uygulama yaptım ama bu şekilde destan olarak gidecek bunun daha pratik bir çözümünü istiyorum İlginize teşekkür ederim.

    <%
If KalanSure=7 Then
Response.Write("<strong class=""kirmizi"">7</strong> gün sonra bitecek")
ElseIf KalanSure=6 Then
Response.Write("<strong class=""kirmizi"">6</strong> gün sonra bitecek")
ElseIf KalanSure=5 Then
Response.Write("<strong class=""kirmizi"">5</strong> gün sonra bitecek")
ElseIf KalanSure=4 Then
Response.Write("<strong class=""kirmizi"">4</strong> gün sonra bitecek")
ElseIf KalanSure=3 Then
Response.Write("<strong class=""kirmizi"">3</strong> gün sonra bitecek")
ElseIf KalanSure=2 Then
Response.Write("<strong class=""kirmizi"">2</strong> gün sonra bitecek")
ElseIf KalanSure=1 Then
Response.Write("<strong class=""kirmizi"">1</strong> gün sonra bitecek")
ElseIf KalanSure=0 Then
Response.Write("<small class=""kirmizi"">bugün bitti</small>")
ElseIf KalanSure=<Now() Then
Response.Write("" &KalanSure & " gün kaldı")
Else
Response.Write(KalanSure & " <small>gün kaldı</small>")
End If
%>
  • 21-09-2021, 22:55:33
    #2
    YerelTeknoloji
    YerelTeknoloji
    mehmetkul adlı üyeden alıntı: mesajı görüntüle
    Merhabalar...
    Öncelikle yapmak istediğim konudan biraz bahsedeyim.
    Tablomda AracMuayene adlı bir bölümüm var buranın değeri DateTime olarak geçmektedir. Ben bu bölümü kullanarak kontrol sağlayıp 15 gün öncesinde ise Rakam ile Muayene 60 gün kaldı gibi yazdıracağım lakin 15 güne geldiğinde ise geri sayım ile 14, 13, 12 gün kaldı gibi uyarılar ekrana yazdırmak istiyorum. Bu konuda yardımcı olabilecek ASP Yazılımcısı arkadaşlardan destek istiyorum. Ben şu tarz bir uygulama yaptım ama bu şekilde destan olarak gidecek bunun daha pratik bir çözümünü istiyorum İlginize teşekkür ederim.

    <%
If KalanSure=7 Then
Response.Write("<strong class=""kirmizi"">7</strong> gün sonra bitecek")
ElseIf KalanSure=6 Then
Response.Write("<strong class=""kirmizi"">6</strong> gün sonra bitecek")
ElseIf KalanSure=5 Then
Response.Write("<strong class=""kirmizi"">5</strong> gün sonra bitecek")
ElseIf KalanSure=4 Then
Response.Write("<strong class=""kirmizi"">4</strong> gün sonra bitecek")
ElseIf KalanSure=3 Then
Response.Write("<strong class=""kirmizi"">3</strong> gün sonra bitecek")
ElseIf KalanSure=2 Then
Response.Write("<strong class=""kirmizi"">2</strong> gün sonra bitecek")
ElseIf KalanSure=1 Then
Response.Write("<strong class=""kirmizi"">1</strong> gün sonra bitecek")
ElseIf KalanSure=0 Then
Response.Write("<small class=""kirmizi"">bugün bitti</small>")
ElseIf KalanSure=<Now() Then
Response.Write("" &KalanSure & " gün kaldı")
Else
Response.Write(KalanSure & " <small>gün kaldı</small>")
End If
%>
    Selamlar hocam

    Clasic asp ileri düzey uzmanıyım.

    <%
SuanTarih=Date()

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "tabloadi where tarih between #"&tarih&"# and #"&SuanTarih&"# ",db,1,3
If Rs.eof then
Else
While Not.Rs Eof
Response.Write " "&Rs("tarih")&" <br>"
Rs.Movenext
Wend
End If
%>
    Veya

    <%
Bugun=FormatDateTime(Date, 0)
MuayeneTarihi= "30.10.2021
fark=DateDiff("d",MuayeneTarihi,Bugun)
%>

<%
Response.Write ""&fark&""
%>
    2 farklı yok 2 farklı çözüm...

    Saygılarımla
  • 21-09-2021, 23:09:18
    #3
    mehmetkul
    mehmetkul
    Öncelikle yorumunuz ve yardımınız için teşekkür ederim. Üstadım iki bu sorgu benim pek işime yaramıyor şöyle ki; Bana gereken bir nevi fonksiyon yani şöyle bir örnekle deyineyim.

    If Bugünün Tarihine Eşit İse, (sigortanız bugün bitti)
    ElseIf 60 Gün Kalmış İse, (sigortanız 60 gün sonra bitiyor)
    ElseIf 10 Gün Geçmiş İse, (sigortanız 10 gün önce bitti)
    Else
    .....
    End If

    Umarım anlatabildim bana hem şart hem koşul sağlayıp bilgi vermesi gerekiyor.
    Yani 1 Yılda Araç Sigortasını Kontrolü ve Muayenenin Kontrolü Sağlamam gerekiyor.
  • 21-09-2021, 23:15:10
    #4
    mehmetkul
    mehmetkul

    Örneğin görseldeki örnekte olduğu gibi yapabildim lakin gereksiz kod karmaşası olduğu için daha pratik bir çözüm içerisindeyim.
  • 21-09-2021, 23:24:51
    #5
    YerelTeknoloji
    YerelTeknoloji
    mehmetkul adlı üyeden alıntı: mesajı görüntüle
    Öncelikle yorumunuz ve yardımınız için teşekkür ederim. Üstadım iki bu sorgu benim pek işime yaramıyor şöyle ki; Bana gereken bir nevi fonksiyon yani şöyle bir örnekle deyineyim.

    If Bugünün Tarihine Eşit İse, (sigortanız bugün bitti)
    ElseIf 60 Gün Kalmış İse, (sigortanız 60 gün sonra bitiyor)
    ElseIf 10 Gün Geçmiş İse, (sigortanız 10 gün önce bitti)
    Else
    .....
    End If

    Umarım anlatabildim bana hem şart hem koşul sağlayıp bilgi vermesi gerekiyor.
    Yani 1 Yılda Araç Sigortasını Kontrolü ve Muayenenin Kontrolü Sağlamam gerekiyor.
    mehmetkul adlı üyeden alıntı: mesajı görüntüle

    Örneğin görseldeki örnekte olduğu gibi yapabildim lakin gereksiz kod karmaşası olduğu için daha pratik bir çözüm içerisindeyim.
    Rica ederim hocam ama mesaj atarken mesaj alıntı yapıp yazarsanız daha hızlı geri dönüş sağlıyabilirim.

    Şöyle:
    <%

Bugun=FormatDateTime(Date, 0)

MuayeneTarihi= "30.10.2021

fark=DateDiff("d",MuayeneTarihi,Bugun)

%>


<%

Response.Write ""&fark&""

%>
    Bakın bu kod ila muayene tarihini veya oraya hangi tarihi yazarsanız eğer

    Ekrana Response.Write ""&fark&"" kısmında sayısal bir değer çıkar.

    Bunuda şu şekilde değiştirirsiniz.

    İf fark < 0 Then
    Response.Write ""&fark&" Gün Geçti"
    Elseif fark = 0 Then
    Response.Write "Muayene Gününüz"
    Elseif fark > 0 Then
    Response.Write ""&fark&" Gün var"
    End if

    Yani Yukarda Yazdıgım 2 tarih arasında bulma fonksiyonunu kısaca günü bulmak için kullanmalı aşadada bu yazdığım kod dilimi ila if yardımı ila sorgulayıp yapabilirsiniz.

    Saygılarımla
  • 22-09-2021, 01:00:42
    #6
    YerelTeknoloji
    YerelTeknoloji
    mehmetkul adlı üyeden alıntı: mesajı görüntüle
    Merhabalar...
    Öncelikle yapmak istediğim konudan biraz bahsedeyim.
    Tablomda AracMuayene adlı bir bölümüm var buranın değeri DateTime olarak geçmektedir. Ben bu bölümü kullanarak kontrol sağlayıp 15 gün öncesinde ise Rakam ile Muayene 60 gün kaldı gibi yazdıracağım lakin 15 güne geldiğinde ise geri sayım ile 14, 13, 12 gün kaldı gibi uyarılar ekrana yazdırmak istiyorum. Bu konuda yardımcı olabilecek ASP Yazılımcısı arkadaşlardan destek istiyorum. Ben şu tarz bir uygulama yaptım ama bu şekilde destan olarak gidecek bunun daha pratik bir çözümünü istiyorum İlginize teşekkür ederim.

    <%
If KalanSure=7 Then
Response.Write("<strong class=""kirmizi"">7</strong> gün sonra bitecek")
ElseIf KalanSure=6 Then
Response.Write("<strong class=""kirmizi"">6</strong> gün sonra bitecek")
ElseIf KalanSure=5 Then
Response.Write("<strong class=""kirmizi"">5</strong> gün sonra bitecek")
ElseIf KalanSure=4 Then
Response.Write("<strong class=""kirmizi"">4</strong> gün sonra bitecek")
ElseIf KalanSure=3 Then
Response.Write("<strong class=""kirmizi"">3</strong> gün sonra bitecek")
ElseIf KalanSure=2 Then
Response.Write("<strong class=""kirmizi"">2</strong> gün sonra bitecek")
ElseIf KalanSure=1 Then
Response.Write("<strong class=""kirmizi"">1</strong> gün sonra bitecek")
ElseIf KalanSure=0 Then
Response.Write("<small class=""kirmizi"">bugün bitti</small>")
ElseIf KalanSure=<Now() Then
Response.Write("" &KalanSure & " gün kaldı")
Else
Response.Write(KalanSure & " <small>gün kaldı</small>")
End If
%>
    Hocam

    Geri dönüş yapmadınız. Pm ila gsm no atın whatsapp üstünden plesk/ftp bilgilerinizi paylaşın yapayım isterseniz.

    Saygılarımla
  • 22-09-2021, 01:05:08
    #7
    mehmetkul
    mehmetkul
    YerelTeknoloji adlı üyeden alıntı: mesajı görüntüle
    Hocam

    Geri dönüş yapmadınız. Pm ila gsm no atın whatsapp üstünden plesk/ftp bilgilerinizi paylaşın yapayım isterseniz.

    Saygılarımla
    Değerli kardeşim maalesef o istediğim gibi bir sonuç elde etmeme yardımcı olmadı dönüş yapacaktım ama farklı yöntemler denedim istediğim sonucu elde edemedim. Şuan plesk veya ftp gibi bir şeyler üzerinde deneme yapmıyorum local'de çalışıyorum. Son geldiğim hal aşağıdaki kodlamada olduğu gibidir. 15 gün içinde saymaya başlıyor 0 a geldiğinde o gün bitiyor 0 dan küçüğe yani -eksi düştüğünde ise geçmiş olarak ekrana döküyorum

    <%
BaslamaTarihi = sikalan
BitisTarihi = rsArac("AracSigorta")
ToplamSure =  DateDiff("d",BaslamaTarihi,BitisTarihi)
GecenSure =   DateDiff("d",BaslamaTarihi,Date)
KalanSure = ToplamSure-GecenSure

If KalanSure=15 Then
Response.Write("<strong class=""yesil fas fa-info""> 15 gün sonra bitiyor</strong>")
ElseIf KalanSure=14 Then
Response.Write("<strong class=""yesil fas fa-info""> 14 gün sonra bitiyor</strong>")
ElseIf KalanSure=13 Then
Response.Write("<strong class=""yesil fas fa-info""> 13 gün sonra bitiyor</strong>")
ElseIf KalanSure=12 Then
Response.Write("<strong class=""yesil fas fa-info""> 12 gün sonra bitiyor</strong>")
ElseIf KalanSure=11 Then
Response.Write("<strong class=""yesil fas fa-info""> 11 gün sonra bitiyor</strong>")
ElseIf KalanSure=10 Then
Response.Write("<strong class=""yesil fas fa-info""> 10 gün sonra bitiyor</strong>")
ElseIf KalanSure=9 Then
Response.Write("<strong class=""turuncu mdi-alert-box""> 9 gün sonra bitiyor</strong>")
ElseIf KalanSure=8 Then
Response.Write("<strong class=""turuncu mdi mdi-alert-box""> 8 gün sonra bitiyor</strong>")
ElseIf KalanSure=7 Then
Response.Write("<strong class=""turuncu mdi mdi-alert-box""> 7 gün sonra bitiyor</strong>")
ElseIf KalanSure=6 Then
Response.Write("<strong class=""turuncu mdi mdi-alert-box""> 6 gün sonra bitiyor</strong>")
ElseIf KalanSure=5 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 5 gün sonra bitiyor</strong>")
ElseIf KalanSure=4 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 4 gün sonra bitiyor</strong>")
ElseIf KalanSure=3 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 3 gün sonra bitiyor</strong>")
ElseIf KalanSure=2 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 2 gün sonra bitiyor</strong>")
ElseIf KalanSure=1 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 1 gün sonra bitiyor</strong>")
ElseIf KalanSure=0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert-box""> sigortanız bugün bitti</strong>")
ElseIf KalanSure=<0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert kesik"">" &KalanSure & " gün geçmiş</strong>")
Else
Response.Write("<strong class=""yesil mdi mdi-check"">" &KalanSure & " gün kaldı</strong>")
End If
%>
    ve sonuç olarak.
  • 22-09-2021, 01:15:10
    #8
    YerelTeknoloji
    YerelTeknoloji
    mehmetkul adlı üyeden alıntı: mesajı görüntüle
    Değerli kardeşim maalesef o istediğim gibi bir sonuç elde etmeme yardımcı olmadı dönüş yapacaktım ama farklı yöntemler denedim istediğim sonucu elde edemedim. Şuan plesk veya ftp gibi bir şeyler üzerinde deneme yapmıyorum local'de çalışıyorum. Son geldiğim hal aşağıdaki kodlamada olduğu gibidir. 15 gün içinde saymaya başlıyor 0 a geldiğinde o gün bitiyor 0 dan küçüğe yani -eksi düştüğünde ise geçmiş olarak ekrana döküyorum

    <%
BaslamaTarihi = sikalan
BitisTarihi = rsArac("AracSigorta")
ToplamSure =  DateDiff("d",BaslamaTarihi,BitisTarihi)
GecenSure =   DateDiff("d",BaslamaTarihi,Date)
KalanSure = ToplamSure-GecenSure

If KalanSure=15 Then
Response.Write("<strong class=""yesil fas fa-info""> 15 gün sonra bitiyor</strong>")
ElseIf KalanSure=14 Then
Response.Write("<strong class=""yesil fas fa-info""> 14 gün sonra bitiyor</strong>")
ElseIf KalanSure=13 Then
Response.Write("<strong class=""yesil fas fa-info""> 13 gün sonra bitiyor</strong>")
ElseIf KalanSure=12 Then
Response.Write("<strong class=""yesil fas fa-info""> 12 gün sonra bitiyor</strong>")
ElseIf KalanSure=11 Then
Response.Write("<strong class=""yesil fas fa-info""> 11 gün sonra bitiyor</strong>")
ElseIf KalanSure=10 Then
Response.Write("<strong class=""yesil fas fa-info""> 10 gün sonra bitiyor</strong>")
ElseIf KalanSure=9 Then
Response.Write("<strong class=""turuncu mdi-alert-box""> 9 gün sonra bitiyor</strong>")
ElseIf KalanSure=8 Then
Response.Write("<strong class=""turuncu mdi mdi-alert-box""> 8 gün sonra bitiyor</strong>")
ElseIf KalanSure=7 Then
Response.Write("<strong class=""turuncu mdi mdi-alert-box""> 7 gün sonra bitiyor</strong>")
ElseIf KalanSure=6 Then
Response.Write("<strong class=""turuncu mdi mdi-alert-box""> 6 gün sonra bitiyor</strong>")
ElseIf KalanSure=5 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 5 gün sonra bitiyor</strong>")
ElseIf KalanSure=4 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 4 gün sonra bitiyor</strong>")
ElseIf KalanSure=3 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 3 gün sonra bitiyor</strong>")
ElseIf KalanSure=2 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 2 gün sonra bitiyor</strong>")
ElseIf KalanSure=1 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert""> 1 gün sonra bitiyor</strong>")
ElseIf KalanSure=0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert-box""> sigortanız bugün bitti</strong>")
ElseIf KalanSure=<0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert kesik"">" &KalanSure & " gün geçmiş</strong>")
Else
Response.Write("<strong class=""yesil mdi mdi-check"">" &KalanSure & " gün kaldı</strong>")
End If
%>
    ve sonuç olarak.
    Hocam yanlış anlamayın siz direk kopyalıyım çalışsın mantığındasınız yani uğraşmıyım hiç sevmediğim bir hareket ama neyse yardımcı olayım bu şekilde yazacağınıza kodun kolayı var işte.

    <%
BaslamaTarihi = sikalan
BitisTarihi = rsArac("AracSigorta")
ToplamSure =  DateDiff("d",BaslamaTarihi,BitisTarihi)
GecenSure =   DateDiff("d",BaslamaTarihi,Date)
KalanSure = ToplamSure-GecenSure

If KalanSure=<15 Then
Response.Write("<strong class=""yesil fas fa-info""> "&KalanSure&" gün sonra bitiyor</strong>")
ElseIf KalanSure=0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert-box""> sigortanız bugün bitti</strong>")
ElseIf KalanSure=<0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert kesik"">" &KalanSure & " gün geçmiş</strong>")
Else
Response.Write("<strong class=""yesil mdi mdi-check"">" &KalanSure & " gün kaldı</strong>")
End If
%>
    Aslında altta yazmışsın sıfırdan sonrakinde bunu üste 15 de uyarlıyacan.

    Bu arada 15 şin yerine ne yazarsan o gün kaladan itibaren yazar okadar basit...
  • 22-09-2021, 01:17:29
    #9
    mehmetkul
    mehmetkul
    YerelTeknoloji adlı üyeden alıntı: mesajı görüntüle
    Hocam

    Geri dönüş yapmadınız. Pm ila gsm no atın whatsapp üstünden plesk/ftp bilgilerinizi paylaşın yapayım isterseniz.

    Saygılarımla
    YerelTeknoloji adlı üyeden alıntı: mesajı görüntüle
    Hocam yanlış anlamayın siz direk kopyalıyım çalışsın mantığındasınız yani uğraşmıyım hiç sevmediğim bir hareket ama neyse yardımcı olayım bu şekilde yazacağınıza kodun kolayı var işte.

    <%
BaslamaTarihi = sikalan
BitisTarihi = rsArac("AracSigorta")
ToplamSure =  DateDiff("d",BaslamaTarihi,BitisTarihi)
GecenSure =   DateDiff("d",BaslamaTarihi,Date)
KalanSure = ToplamSure-GecenSure

If KalanSure=<15 Then
Response.Write("<strong class=""yesil fas fa-info""> "&KalanSure&" gün sonra bitiyor</strong>")
ElseIf KalanSure=0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert-box""> sigortanız bugün bitti</strong>")
ElseIf KalanSure=<0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert kesik"">" &KalanSure & " gün geçmiş</strong>")
Else
Response.Write("<strong class=""yesil mdi mdi-check"">" &KalanSure & " gün kaldı</strong>")
End If
%>
    Aslında altta yazmışsın sıfırdan sonrakinde bunu üste 15 de uyarlıyacan.

    Bu arada 15 şin yerine ne yazarsan o gün kaladan itibaren yazar okadar basit...
    Beni yanlış anlamayın yani sizin yazdığınızı küçümsüyor veya benimsemiyor değilim. Sadece hafıza mantık durdu bende baya bir uğraş halindeyim bugün yarına yetiştirmek açısından sadece bu bölüm değil paneli tamamen halletmem gerekiyordu.