hergün 1 dakika artırmak ve azaltmak...

[frolunda]

sa.delphide yeniyim önce onu belirtiyim.yaz saati uygulamasına gecinceye kadar hergün zamanı 1 dakika ileri atacak kış saatinden sonrada 1 dakilka geri sayacak bi kod yazmak istiyorum yanlız makine 3 gun kapalı kalıp tekrar acıldıgındada dogru bi şekilde devam etmesi gerekiyor zamanın yardımcı olursanız sevinirim.

[frolunda]

procedure TForm1.Button3Click(Sender: TObject);
var
zaman : TDateTime;
tarih :TDateTime;
tarih1:TDate;
tarih2:TDate;
tarih3:TTime;
tiempo:SYSTEMTIME;
saat:string;

begin
GetSystemTime(tiempo);
tarih1:= EncodeDateTime(YearOf(Now),10,23,23,0,0,0);
tarih2:= EncodeDateTime(YearOf(Now),03,27,23,59,0,0);

if WithinPastYears(tarih1,tarih2,300)=True then
begin

memo1.Lines.Add('Date: '+IntToStr(tiempo.wDay)+'/'+IntToStr(tiempo.wMonth)+'/'+IntToStr(tiempo.wYear)+'/'+IntToStr(tiempo.wHour)+'/'+ IntToStr(tiempo.wMinute)+'/'+ IntToStr(tiempo.wSecond));
memo1.Lines.Add('Day of Week '+IntToStr(tiempo.wDayOfWeek));

tarih := EncodeDateTime(YearOf(Time), MonthOf(Time),DayOf(Time),HourOf(Time), MinuteOf(Time), SecondOf(Time), 0);

zaman := IncMinute(tarih);
//Caption :=('dakika + 1 = '+DateTimeToStr(zaman));
Caption :=TimeToStr(zaman);


end
end;


bu tarz bişeyler yapmaya calıstım ama olmadı zamanı bi ini dosyasına yazıp ordan okutmak gibi dusuncem var ama nasıl yaparım yardımcı olursanız sevınırım...

[aslangeri]

Lütfen Forum Kurallarını Okuyunuz ve Uyunuz!!!!!!