Kod: Tümünü seç
sprintf(c_saat_1,"%s",Query1->FieldByName("saat_1")->AsString.c_str());
sprintf(c_saat_2,"%s",Query1->FieldByName("saat_2")->AsString.c_str());
Kod: Tümünü seç
sprintf(c_saat_1,"%s",Query1->FieldByName("saat_1")->AsString.c_str());
sprintf(c_saat_2,"%s",Query1->FieldByName("saat_2")->AsString.c_str());
Kod: Tümünü seç
var
yil1,ay1,gun1,saat1,dk1,saniye1,ms1:Word;
yil2,ay2,gun2,saat2,dk2,saniye2,ms2:Word;
SaatFarki,DakikaFarki,SaniyeFarki:String;
zaman_1,zaman_2:string;
saat_1,saat_2:integer;
fark :integer;
begin
zaman_1:='23.11.2006 11:10:15';
DecodeDateTime(strtodatetime(zaman_1),yil1,ay1,gun1,saat1,dk1,saniye1,ms1);
saat_1:=saat1*3600000+dk1*60000+saniye1*1000+ms1;
zaman_2:='24.11.2006 17:20:15';
DecodeDateTime(strtodatetime(zaman_2),yil2,ay2,gun2,saat2,dk2,saniye2,ms2);
saat_2:=saat2*3600000+dk2*60000+saniye2*1000+ms2;
if saat_1<saat_2 Then
begin
fark:=saat_2-saat_1;
SaatFarki:=IntToStr(fark div 3600000);
fark:=fark mod 3600000;
DakikaFarki:=IntToStr(fark div 60000);
fark:=fark mod 60000;
SaniyeFarki:=IntToStr(fark div 1000);
label1.caption :=SaatFarki+' '+ DakikaFarki;
end;
end;
Kod: Tümünü seç
char c_tarih_1[16];
char c_saat_1[16];
char c_tarih_2[16];
char c_saat_2[16];
char c_zaman_1[32];
char c_zaman_2[32];
char c_toplam_sure[16];
Word yil1,ay1,gun1,saat1,dk1,saniye1,ms1;
Word yil2,ay2,gun2,saat2,dk2,saniye2,ms2;
AnsiString saat_farki,dk_farki,saniye_farki;
AnsiString saat_1,saat_2,str;
int fark;
memset(c_tarih_1 ,'\0',sizeof(c_tarih_1 ));
memset(c_saat_1 ,'\0',sizeof(c_saat_1 ));
memset(c_zaman_1 ,'\0',sizeof(c_zaman_1 ));
sprintf(c_tarih_1,"%s",Query1->FieldByName("tarih_1")->AsString.c_str());
sprintf(c_saat_1,"%s",Query1->FieldByName("saat_1")->AsString.c_str());
sprintf(c_zaman_1,"%s %s",c_tarih_1,c_saat_1);
DecodeDateTime(StrToDateTime(c_zaman_1),yil1,ay1,gun1,saat1,dk1,saniye1,ms1);
saat_1=saat1*3600000+dk1*60000+saniye1*1000+ms1;
memset(c_tarih_2 ,'\0',sizeof(c_tarih_2 ));
memset(c_saat_2 ,'\0',sizeof(c_saat_2 ));
memset(c_zaman_2 ,'\0',sizeof(c_zaman_2 ));
sprintf(c_tarih_2,"%s",Query1->FieldByName("tarih_2")->AsString.c_str());
sprintf(c_saat_2,"%s",Query1->FieldByName("saat_2")->AsString.c_str());
sprintf(c_zaman_2,"%s %s",c_tarih_2,c_saat_2);
DecodeDateTime(StrToDateTime(c_zaman_2),yil2,ay2,gun2,saat2,dk2,saniye2,ms2);
saat_2=saat2*3600000+dk2*60000+saniye2*1000+ms2;
if (saat_1 < saat_2 ) {
fark=saat_2-saat_1;
saat_farki=IntToStr(fark / 3600000);
fark=fmod(fark,3600000);
dk_farki=IntToStr(fark / 60000);
fark=fmod(fark,60000);
saniye_farki=IntToStr(fark / 1000);
str=saat_farki+" sa "+ dk_farki+" dk";
}
sprintf(c_toplam_sure,"%s",str.c_str());