Delphi’de Saat Süre Ekleme
Delphi, güçlü bir nesne yönelimli programlama dilidir ve zamanla ilgili işlemleri gerçekleştirmek için kapsamlı bir işlevler kümesi sunar. Bu makale, Delphi’de saat sürelerini nasıl ekleyeceğinizi ayrıntılı olarak açıklayacaktır.
Tarih ve Saat Veri Türleri
Delphi, tarih ve saat verilerini işlemek için aşağıdaki veri türlerini sağlar:
- TDateTime: Tarih ve saati temsil eden 64 bitlik bir tamsayı veri türü.
- TDate: Yalnızca tarihi temsil eden 32 bitlik bir tamsayı veri türü.
- TTime: Yalnızca saati temsil eden 32 bitlik bir tamsayı veri türü.
Saat Süresi Ekleme
Saat sürelerini eklemek için aşağıdaki yöntemleri kullanabilirsiniz:
- TDateTime.Add: Bir TDateTime nesnesine bir saat süresi ekler.
- TDate.Add: Bir TDate nesnesine bir saat süresi ekler.
- TTime.Add: Bir TTime nesnesine bir saat süresi ekler.
Örnek Kod
Aşağıdaki kod örneği, bir TDateTime nesnesine 2 saat 30 dakika ekler:
“`delphi
var
DateTime: TDateTime;
begin
DateTime := Now;
DateTime.Add(Hours(2) + Minutes(30));
end;
“`
Saat Süresi Çıkarma
Saat sürelerini çıkarmak için aşağıdaki yöntemleri kullanabilirsiniz:
- TDateTime.Subtract: Bir TDateTime nesnesinden bir saat süresi çıkarır.
- TDate.Subtract: Bir TDate nesnesinden bir saat süresi çıkarır.
- TTime.Subtract: Bir TTime nesnesinden bir saat süresi çıkarır.
Örnek Kod
Aşağıdaki kod örneği, bir TDateTime nesnesinden 1 saat çıkarır:
“`delphi
var
DateTime: TDateTime;
begin
DateTime := Now;
DateTime.Subtract(Hours(1));
end;
“`
Saat Süresi Karşılaştırma
Saat sürelerini karşılaştırmak için aşağıdaki yöntemleri kullanabilirsiniz:
- TDateTime.Compare: İki TDateTime nesnesini karşılaştırır.
- TDate.Compare: İki TDate nesnesini karşılaştırır.
- TTime.Compare: İki TTime nesnesini karşılaştırır.
Örnek Kod
Aşağıdaki kod örneği, iki TDateTime nesnesini karşılaştırır:
“`delphi
var
DateTime1, DateTime2: TDateTime;
begin
DateTime1 := Now;
DateTime2 := Now;
if DateTime1.Compare(DateTime2) = 0 then
ShowMessage(‘Saat süreleri eşit.’);
end;
“`
Faydalı Kaynaklar