![]() |
![]() |
#6
|
|||
|
|||
![]()
StartOfAMonth(Yıl, Ay);
Parametreyle belirtilen yıla, yine ikinci parametreyle belirtilen adet kadar ay ekler. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StartOfAMonth(2003, 6); // 6 Ay ekle Caption := DateToStr(Tarih); //01/06/2003 yazar end; StartOfAWeek(Yıl, Hafta); Parametreyle belirtilen yıla, yine ikinci parametreyle belirtilen hafta sayısını ekler, yeni bir tarih hesaplar. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StartOfAWeek(2003, 3); // 3. Haftayı bul Caption := DateToStr(Tarih); // 13/01/2003 yazar end; Fonksiyondan geriye dönen değer tarihsel içerik içerdiğinden, yazdırmak için DateToStr fonksiyonundan faydalanmalısınız. StartOfAYear(Yıl); Parametreyle belirtilen yılın ilk gününe ait tarih değerini döndüren fonksiyondur. Fonksiyondan geriye dönen değer tarihsel veri içerdiği için yazdırmak ancak DateToStr fonksiyonu sayesinde olabilecektir. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StartOfAYear(2004); Caption := DateToStr(Tarih); //01/01/2004 yazar end; StartOfTheMonth(Yıl); Parametre ile belirtilen tarihteki ilk günü bulmak için kullanılan bir fonksiyondur. (ay ve yıl değişmez sadece günün değerini 1 yapar) Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StartOfTheMonth(Date); // 11/07/2003 Caption := DateToStr(Tarih); //01/07/2003 yazar end; StartOfTheWeek(Tarih); Parametre olarak girilen tarihteki ilk gününün tarihini hesaplayan bir fonksiyondur. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StartOfTheWeek(Date); // 11/07/2003 Caption := DateToStr(Tarih); //07/07/2003 yazar end; Örnekte yer alan aktif tarih 11/07/2003 tür ve Cuma gününe karşılık gelmektedir.O haftaya ait pazartesi, pazartesi gününün tarihi ise 07/0/7/2003 tür. Bu yüzden fonksiyın tarihinin bulunfuğu haftaya ait ilk günü döndüreceği için sonuç 07/07/2003 olacaktır. StrToDate(Stirng_Tarih); Parametre ile verilen string değişkeni tarihsel veriye dönüştürmek için kullanılan bir fonksiyondur. Dikkat edeceğiniz husus parametre değerini tarihe çeviremez ise program hata verecektir. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StrToDate(Edit1.Text); // Tarihe çevir Caption := DateToStr(Tarih+10); // 10 Gün ekle end; StrToDateDef(Tarih, Varsayılan_Tarih); StrToDate fonksiyonu yanlış tarih girildiği zaman hata veriyordu. Bu fonksiyon ise yanlış tarih girilmesi durumunda ikinci parametre ile belirtilen değeri tarih olarak kabul edecektir. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StrToDateDef(Edit1.Text, Date); // Eğer yanlış tarih girilmişse bugünün tarihini baz al Caption := DateToStr(Tarih); end; Fonksiyonun yaptığı iş Edit1 kutusuna tarihe dönüştürülemeyecek bir değerin girilmesi durumunda oluşacak hatayı engellemek ve (bir çok durumda bu günkü tarihin yazılması için bilerek yaptırılabilir) aktif tarihin işleme sokulmasını sağlamaktır. StrToDateTime(String_Tarih); Parametre ile belirtilen değişkenin değerini Tarih_Zaman içerikli değişkene aktarmak için kullanılan bir fonksiyondur. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StrToDateTime(Edit1.Text); // Tarih ve zamana çevir Caption := DateTimeToStr(Tarih+10); // 10 Gün ekle end; StrToDateTimeDef(Tarih_Zaman , Varsayılan_Tarih_Zaman); Tip çevirme işleminde hata oluşursa (tarih girilmez veya yanlış girilirse) ikinci parametre ile verilen değeri kabul ederek işlemlere devam eden fonksiyondur. Procedure TForm1.Button1Click(Sender; Object); Var Tarih : TDateTime; begin Tarih := StrToDateTimeDef(Edit1.Text, Now); // Eğer yanlış tarih girilirse şu anki tarih_zamanı al Caption := DateTimeToStr(Tarih); end; StrToTime(String_Zaman); Parametre ile belirtilen string veriyi zamansal değere çevirebilen bir fonksiyondur. Şayet parametre değeri zamana çevrilemiyorsa, programınız hata mesajı verecektir. Procedure TForm1.Button1Click(Sender; Object); Var Zaman : TDateTime; begin Zaman := StrToTime(Edit1.Text); // Zamana çevir Caption := TimeToStr(Zaman); end; Bu örnek için Edit kutusuna (10:06:45) gibi saati gösteren bir değer girmelisiniz. StrToTimeDef(String_Zaman , Varsayılan_Zaman); StrToTime fonksiyonu Edit kutusuna yanlış değer girildiğinde kırılıyordu. Bu fonksiyonda yanlış değer (zaman çevrilemeyecek string) girilmesi durumunda ikinci parametre ile verilen zaman değeri kabul edilecek ve işlemler devam edecektir. Dolayısı ile programın kırılmasınıda engellemiş olacaksınız. Procedure TForm1.Button1Click(Sender; Object); Var Zaman : TDateTime; begin Zaman := StrToTimeDef(Edit1.Text , Time); // Yanlış değer girilirse şu an ki zamanı kabul et Caption := TimeToStr(Zaman); end; Time – GetTime : İki fonksiyonu kullanarak da aktif saati öğrenebilirsiniz.Fonksiyondan geriye dönen değer zaman içerikli olacağı için yazdırmak için TimeToStr tip dönüşüm fonksiyonunu kullanmalısınız. Procedure TForm1.Button1Click(Sender; Object); Var Zaman1, Zaman2 : TDateTime; begin Zaman1 := Time; Zaman2 := GetTime; Caption := ‘Time : ’+TimeToStr(Zaman1)+’ GetTime : ’+TimeToStr(Zaman2); end; TimeOf(Zaman); Procedure TForm1.Button1Click(Sender; Object); Var Zaman1, Zaman2 : TDateTime; begin Zaman1 := Time; Zaman2 := TimeOf(Now); Caption := ‘Time : ’+TimeToStr(Zaman1)+’ TimeOf : ’+TimeToStr(Zaman2); end; TimeToStr(Tarih_Zaman); Parametre ile belirtilen tarih ve zamanın sadece zaman ile ilgili kısmını string e çevirip yazdırmak için kullanılır. Aşağıdaki örnekte TimeToStr ile DateTimeToStr arasındaki fark anlatılmıştır. Procedure TForm1.Button1Click(Sender; Object); Var Zaman : TDateTime; begin Zaman := Now; Caption := ‘TimeToStr : ’+TimeToStr(Zaman)+’ DateTimeToStr : ’+DateTimeToStr(Zaman); end; |
|
|