735 uygun sonuç bulundu
- 14 Kas 2008 03:32
- Forum: Programlama
- Başlık: Word'e aktarma ?
- Cevaplar: 2
- Görüntüleme: 2097
Word'e aktarma ?
Herkese hayırlı günler... Editlerdeki bilgileri worde aktarma konusunda adam gibi bir kod bulamadım ,açıkcası işi çözemedim... Forumda da aradım ama net bir bilgi yok ,yada ben bulmayı başaramadım.. Bu konuda yardım istiyorum ... İyi çalışmalar... ----------------------------------------------------...
- 14 Ağu 2008 05:13
- Forum: Programlama
- Başlık: Yıl Ay Gün olarak verilen tarihin yarısını bulmak
- Cevaplar: 8
- Görüntüleme: 2848
Re: Yıl Ay Gün olarak verilen tarihin yarısını bulmak
SysUtils ve DateUtils unitlerinde IncYear, IncMonth ve IncDay fonksiyonları mevcut. Bunları kullanarak istediğini yapabilirsin. Şu fonksiyondan istifade edebilirsin: function TarihinYarisi(const aStartDate: TDateTime; const aYear, aMonth, aDay: Word): Double; begin Result := (IncDay(IncMonth(IncYea...
- 13 Ağu 2008 11:55
- Forum: Programlama
- Başlık: Yıl Ay Gün olarak verilen tarihin yarısını bulmak
- Cevaplar: 8
- Görüntüleme: 2848
Re: Yıl Ay Gün olarak verilen tarihin yarısını bulmak
Verdiğiniz cevapları deniycem ; Şunu yazmadan geçmeyeyim , mesela 5 yılı 365 ile çarparsak1825 gün çıkıyor ve bunun yarısı 912,5 tir bunun üzerine 16 ayında yarısı 8 eder 7 günün yarısıda 3,5 gün olarak hesaplarsak ,, 912,5 / 365 dersek kaç yıl olduğunu bulmak istersek sonuç 2,5 küsüratlı çıkıyor as...
- 13 Ağu 2008 04:42
- Forum: Programlama
- Başlık: Yıl Ay Gün olarak verilen tarihin yarısını bulmak
- Cevaplar: 8
- Görüntüleme: 2848
Yıl Ay Gün olarak verilen tarihin yarısını bulmak
Arkadaşlar herkese kolay gelsin diyorum... İŞten güçten eski günler kadar aktif olamıyordum forumu takip ediyordum ama aktif olamıyordum.. Benim sorum şu olacak arkadaşlar.. 5 yıl 16 ay 7 gün olarak verilen zamanın yarısını almak... Cebirsel olarak yapacağımız işlemde bunu aşağıdaki şekilde yapıyoru...
- 13 Nis 2007 11:37
- Forum: Delphi VCL
- Başlık: Memory edit bileşeni
- Cevaplar: 1
- Görüntüleme: 1647
Memory edit bileşeni
Arkadaşlar hayırlı günler hepinize...
Daha önce edite yazdığımız bir yazıyı ikinci defa yazmak istediğimizde otomatik tamamlayan edit bileşeni bulamadım..Forumu altüst getirdim bulamadım yoksa benmi gözden kaçırdım..Bu konuda bana yardımcı olan arkadaşlardan yardım istiyroum..Kolay gelsin herkese.
Daha önce edite yazdığımız bir yazıyı ikinci defa yazmak istediğimizde otomatik tamamlayan edit bileşeni bulamadım..Forumu altüst getirdim bulamadım yoksa benmi gözden kaçırdım..Bu konuda bana yardımcı olan arkadaşlardan yardım istiyroum..Kolay gelsin herkese.
- 10 Mar 2007 09:47
- Forum: Programlama
- Başlık: onGuard bileşenleri
- Cevaplar: 5
- Görüntüleme: 2233
- 24 Şub 2007 12:56
- Forum: Programlama
- Başlık: DbGridteki sütun toplamları nasıl alınır
- Cevaplar: 1
- Görüntüleme: 1019
var Bookmark : TBookmark; toplamBorc : Real; begin Bookmark := Table1.GetBookmark; Table1.DisableControls; toplamBorc := 0; try Table1.First; while not Table1.EOF do begin toplamBorc := toplamBorc + Table1BORC.Value;(Toplanacak alan) Table1.Next; Edit1.Text := FloatToStr(toplamBorc); end; finally T...
- 24 Şub 2007 12:52
- Forum: Makale ve İpucu
- Başlık: Run time da kod yazıp işlemek
- Cevaplar: 19
- Görüntüleme: 12423
- 24 Oca 2007 11:18
- Forum: Makale ve İpucu
- Başlık: Html sayfasındaki ressimleri koşturmak.
- Cevaplar: 5
- Görüntüleme: 3075
- 22 Oca 2007 09:45
- Forum: Programlama
- Başlık: Proğram Kullanılmıyorsa şifre ekranı gelsin
- Cevaplar: 8
- Görüntüleme: 3171
Şöyle yapabilirsin hocammm.. Programa en son müdehaleyi (giriş birimlerinden klavye, fare) tespit edip bu zamandan itibaren 15 dakikalık bir zaman dilimi tutan bir kod parçası ile iş biter herhalde diye düşünüyorum.. Yani 15 dakika zaman dolunca zaten programa bağlantı kesilecek ve sen ilk müdehalen...
- 17 Oca 2007 11:40
- Forum: Programlama
- Başlık: if not(Error(11830 2E36))then
- Cevaplar: 5
- Görüntüleme: 1738
belki şu şekilde bir kontrol sana bir fikir verecektir. Key violation hatasını yakalamak.. procedure TForm1.TablePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin if (E is EDBEngineError) then with EDBEngineError(E) do begin if Errors[ErrorCount - 1].ErrorCode = DBIERR_...
- 28 Ara 2006 04:25
- Forum: Programlama
- Başlık: karşılaştırma sonucu
- Cevaplar: 13
- Görüntüleme: 4963
- 27 Ara 2006 02:03
- Forum: Programlama
- Başlık: karşılaştırma sonucu
- Cevaplar: 13
- Görüntüleme: 4963
With AdoQuery3 do begin for i:=0 to AdoQuery3.fields.count-1 do begin begin Dbgrid1.Columns[i+1].FieldName:= ADOQuery3.Fields[i].AsString; end; Şu anda delphiyi açmaya müsati olmadığım için böyle yaptım yapman gereken dbgridin fieldname ine istediğin alanı göstermen için query nin kayıtları için dö...
- 24 Ara 2006 06:32
- Forum: Programlama
- Başlık: Esas mesleğiniz nedir?
- Cevaplar: 79
- Görüntüleme: 40861
- 14 Ara 2006 03:13
- Forum: Programlama
- Başlık: form açılır açılmaz diğer formun gelmesi
- Cevaplar: 3
- Görüntüleme: 1576
Açılış ekranı için bir form oluşturun. Formun BorderStyle özelliğini bsNone yapın. Project Options kısmından formu Auto-Create değil, Avaible forms yapın. Daha sonra Project->View Source ile proje dosyanıza(.dpr uzantılı) aşağıdaki kodları ekleyin. begin SplashForm := TSplashScreen.Create(Applicati...