|
11-26-2007, 11:35 AM
|
#1 (permalink) |
|
*BUNALIMLARIN ADMİNİ*
 
|
Ayın Son Gününü Bulma
Ayın Son Gününü Bulma
unction LastDayOfCurrentMonth: TDate; var y  m d: word; begin decodedate(now y m d); m := m + 1; if m > 12 then begin y := y + 1; m := 1; end; result := encodedate(y m 1) - 1; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(DateToStr(LastDayOfCurrentMonth)); end; |
|
    
|
 |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | UslanmaM | Cevaplar | Son Mesaj |
| Bugün ayın kaçı....?? | iyra | Amatör Aşk Şiirleri | 0 | 10-24-2007 05:20 PM |
| Kutupta ayın doğuşu.. | SuyunGizemi | Fotoğrafçılık ve Resim Design | 0 | 07-02-2007 09:40 PM |
| 15 ŞUBAT osmancıklı hayrinin doğum gününü kutlama günü | OSMANCIKLI | Özel Günleriniz | 1 | 04-22-2007 01:57 PM |
| Müslümanın Sevgililer Gününü Nasıl Kutlar... | HeLiN | Tanışalım-Kaynaşalım/Geyik Bölümü | 0 | 02-14-2007 05:40 PM |
| Ayın gariplikleri | ByemonaR | Bilgi Deposu | 0 | 01-17-2007 10:38 PM |
Normal
