folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Delphide İki Tarih Arası Fark



Delphide İki Tarih Arası Fark

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ferhatmartin
    ferhatmartin's avatar
    Kayıt Tarihi: 14/Eylül/2005
    Erkek

    delphi e book indirdim netten. ordaki uygulamaları teker teker yapıyorum. fakat bi yerde takıldım. şimdi tanımlanmış 2 tarihim var. biri önceden belirlenmiş diğeri ise kullanıcıya bırakılmış. yani adam programı açıp bi tarih girecek, delphide belirli olan tarihten adamın yazdığı tarihi çıkartacak ve söleyecek.

    procedure TForm1.Button1Click(Sender: TObject);

    var
    b:tdate;
    f:tdate;
    const

    asd:tdate=13/11/2007;


    begin

    b:=strtodate(edit2.text);
    f:=b-asd;
    form1.caption:=floattostr(f);
    end;

    end.

     

    böyle yaptım. ama sonuç tarih olarak değilde. sayı olarak çıkıyor. çalışmıyor yani böyle. hatam nerdedir acaba? 

     

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    andidit
    andidit's avatar
    Kayıt Tarihi: 23/Ağustos/2005
    Erkek
    Kardes valla cok guzel anlatmıssın sorununu ozendım :)  bıldıgım bı konu degıl yoksa valla yardım ederdım.
    Boynumuz yiğit boynu, bükerse sevda büker.
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cxa1191s
    cxa1191s's avatar
    Kayıt Tarihi: 10/Mart/2007
    Erkek

    Yanlış anlamadıysam floattostr(f); ifaden yanlış. Burada string olarak tarihi değil, sayıyı çevirmeye kalkıyorsun.  Tdate tipi değişkenlerde tarih bildiğimiz sayı şeklinde saklanır, gerektiğinde tarih formatında programcıya sunulur. Programcı bu dönüşümden habersizdir.

    ...tostr komutlarının içerisinde işini görecek bir tanesi olabilir.  

    Ahanda adresim www.bdy.gen.tr
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ferhatmartin
    ferhatmartin's avatar
    Kayıt Tarihi: 14/Eylül/2005
    Erkek
    eyvallah hocalar sağolun. floattostr yi datetostr olarak değiştirdim. tarih sonucunu alıyorum fakat bu seferde doğru sonucu vermiyor. Bu sorun hele durşun şöyle köşede bakalım biraz daha okuyalım kitabı. Zamanla anlarız illaki. hadi kolay gele
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ferhatmartin
    ferhatmartin's avatar
    Kayıt Tarihi: 14/Eylül/2005
    Erkek

    olayı uzun yoldan çözdüm. ilk önce 1. butona sabit tarih ekledim. sonra onu kutuya yazdırdım. 2. kutucuğa güncel tarihi istedim. daha sonrada 2. butonda tanımlanmış 2 tarihin farkını istedim. bu şekilde çalıştı. 

    procedure TForm1.Button1Click(Sender: TObject);
    var
    sabittarih:TDate;
    begin
    sabittarih:=StrToDate ('13.11.2006');
    edit1.Text:=DateToStr(sabittarih);
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    var
    sabittarih:TDate;
    gunceltarih:Tdate;
    fark:Extended;
    begin
    sabittarih:=StrToDate(edit1.text);
    gunceltarih:=StrToDate (Edit2.Text);
    fark:=gunceltarih-sabittarih;
    form1.Caption:=FloatToStr(fark);

    end;

    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cxa1191s
    cxa1191s's avatar
    Kayıt Tarihi: 10/Mart/2007
    Erkek
    Bişi değil.
    Ahanda adresim www.bdy.gen.tr
    Reply With Quote Alıntı yap
Toplam Hit: 3375 Toplam Mesaj: 6