başlangıç ve bitiş tarihi

[mazhargemci]

2 farklı tarihimiz var. birisi başlangıç tarihi diğeri bitiş tarihi.
diyelimki başlangıç tarihi 23/05/2015 bitiş tarihi ise 27/05/2015 bunun süresi dolduğunda bana süresi doldu diye bilgi verecek dolmadı ise süresi devam ediyor diye uyarı verecek.
biz bunu excelde otomatik olarak günü belirliyorduk =(BUGÜN) değince otomatik olarak gün değişiyordu.
=eğer(a hücresi> b hücresi) duruma göre mesajı veriyordu. burda a hücresi bitiş tarihi b hücresi ise o günün tarihi.
bunu delphide nasıl uyarlarız ?

[brs]

Kod: Tümünü seç

procedure TForm1.Lisans(Sender: TObject); // Lisans
var
  GunSay: Integer;
begin
  try
     if (GunSay <= 1) then
        begin
          Caption := 'Bugün Son Gün';
        end
        else
        begin
          if (GunSay <= 5) then
          begin
            Caption := 'Son ' + IntToStr(GunSay) + ' Gün';
          end
          else
          begin
            if (GunSay <= 10) then
            begin
              Caption := 'Son ' + IntToStr(GunSay) + ' Gün';
            end
            else
            begin
              if (GunSay <= 20) then
              begin
                Caption := 'Son ' + IntToStr(GunSay) + ' Gün';
              end
              else
              begin
                if (GunSay <= 30) then
                begin
                  Caption := 'Son ' + IntToStr(GunSay) + ' Gün';
                end
                else
                begin
                  Caption := 'Son ' + IntToStr(GunSay) + ' Gün';
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  except
  end;
end;

[mazhargemci]

bu lisans dediği ne ve caption neyin captionu

[denizfatihi]

http://www.delphibasics.co.uk/RTL.asp?Name=Date

Delphide yukarıda ki gibi veri tabanı türünü söylersen yine yardımcı oluruz.

[dogan]

bu lisans dediği ne ve caption neyin captionu

lisans yerine sen butona yaz fark etmez ,captionda form captionu, istersen label1.caption diyebilirsin...

[Lord_Ares]

Ayrıca ek bilgi olarak iki tarihin birbirine eşit olup olmadığını kontrol etmek için tarih fonksiyonlarından yararlanabilirsin. örneğin
ComparaDate fonksiyonu verilen iki tarih aynı ise geriye sıfır değeri döndürür.