Bir Tarihe zaman eklemek

[Commandx]

Öncelikle herkese çalışmalarında başarılar dilerim

Arkadaşlar bir proje üzerinde butona basıldığında edit nesnesinde olan örneğin 21.11.2008 15:50 zamanını sayıya çevirmek istiyorum
elde ettiğim sayıya 30 dakika ekleyip çıkan sonucu tekrar şimdiki zamandan çıkarıp edit2 ye yazması gerekiyor



(21.11.2006 15:50) <---- sanırım önce bunun tarihini daha sonra saatini sayıya çevrilmesi lazım
kusura bakmayın bende çok şey istiyorum ama başaramadım aradan uzun bir zaman geçti
paslandım malesef, tekrar eski dökümanlara gözattım kafam karıştı tarih zaman konusunda bilgim sıfır nerdeyse

[oklawa]

Kod: Tümünü seç

Var
 MyDateTime:TDateTime;
Begin
  MyDateTime:=StrToDateTime(edit1.Text);
  //incminute DateUtils unitinin fonksiyonudur.
  incminute(mydatetime,30);
End;

iki tarih arasındaki farkı hangi değerde göstereceksiniz?

DateUtils'de ki şu fonksiyonlar belki işinizi görür..

Kod: Tümünü seç

function YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;