Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

GÜNLER FAZLA HESAPLANIYOR

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
3
Cevap
0
Favori
209
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Merhaba Arkadaşlar
    Acemice Delphi ile uğraşıyorum.
    procedure TForm1.Button2Click(Sender: TObject);
    var
    Sayi1,Sayi2,Sayi3,Sonuc:Integer;
    begin
    Sayi1:=StrToInt(Edit3.Text);//Toplam gün
    Sonuc:=Sayi1 div Yil;//Yil cont olarak tanımlandı
    Edit4.Text:=FloatToStr(Sonuc);//Toplam Yıl
    Sayi2:=Sayi1-(Sonuc*Yil);//Toplam gün- Toplam Yıl*365/Sayi2=Kalan gün sayısı
    Edit5.Text:=FloatToStr(Sayi2 div Ay);// Ay
    Sayi3:=Sayi2 div Ay;
    Edit6.Text:=FloatToStr(Sayi2-Sayi3*Ay);
    end;
    Bu kotlar gün sayısını 13 gün fazla çıkartıyor.Sebebini anlayamadım yardımcı olursanız memnun olurum.



  • herhalde verilen gün e göre kaç yıl kaç ay kaç gün eder hesabi yapıyorsunuz aşağıdaki işinizi görebilir günü 31 gün olarak aldım




    procedure TForm1.Button1Click(Sender: TObject);

    var
    Sayi1,Sayi2,Sayi3,Sonuc:Integer;
    begin
    Sayi1:=StrToInt(Edit1.Text);
    Sonuc:=Sayi1 div 365;
    Edit2.text:=FloatToStr(Sonuc);
    Sayi2:=Sayi1-(Sonuc*365);
    Edit3.Text:=FloatToStr(Sayi2 div 31);
    Sayi3:=Sayi2 div 31;
    Edit4.Text:=FloatToStr(Sayi2-Sayi3*31);
    end;
  • Arkadaşım yardımın için çok TEŞEKKÜR ederim.
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız