Saat'e Ekleme Yapmak

[fiko19]

Merhaba Arkadaslar

sizlere bir sorum olacak

time := TimeToStr(now);

ben bu sistemden aldığım saatin üzerine edit'imde yazan dakika kadar daha ekleyip saatin kaç olacağını bulmak istersem nasıl bir kod döndürmem gerekir

şimdiden teşekkür ederim

[mrmarman]

USES listene DateUtils ekleyince ekstra tarih saat fonksiyonları kullanma imkanın doğar. Internettem DateUtils diye aratırsan hangi fonksiyonlarının olduğunu görebilirsin.

Sorduğun sorunun yanıtı bu mihmalde IncMinute() fonksiyonudur.

Örnek :

Kod: Tümünü seç

Var
  Saat : TTime;
begin
  Saat := Now;
  Saat := IncMinute( Saat, StrToInt(Edit1.Text) );
  ShowMessage( TimeToStr( Saat ) );
end;

başarılar.

[fiko19]

IncMinute Komutunda Hata Veriyor Halen Olmadı

[mrmarman]

Yazdıklarımı aynen uygulamalasınız. USES satırına DATEUTILS kelimesini ekleyin çalışır.

[orhancc]

String çevrimi yapmak istemiyorsan numeric edit gibi birşey kullanabilirsin. usese DateUtils ekle

Kod: Tümünü seç

edit2.Text :=   TimeToStr(GetTime + IncMinute(StrToInt(Edit1.Text)));

[fiko19]

arkadaşlar teşekkür ederim çok işime yaradı sağolun