10-11-2012, 01:20 PM
السلام عليكم
ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30
هدا الكود محاولتي
ما هي طريقة حساب الفرق بين تاريخين بحيت عدد أيام الاشهر 30
هدا الكود محاولتي
كود :
VAR
DATE1,DATE2 : TDATETIME;
Diff : Extended;
N,Y1,M1,D1,Y2,M2,D2 : INTEGER;
begin
Y1:=STRTOINT(COPY(DU.Text,7,4));
M1:=STRTOINT(COPY(DU.Text,4,2));
D1:=STRTOINT(COPY(DU.Text,2,1));
DATE1:=ENCODEDATE(Y1,m1,d1);
Y2:=STRTOINT(COPY(AU.Text,7,4));
M2:=STRTOINT(COPY(AU.Text,4,2));
D2:=STRTOINT(COPY(AU.Text,2,1));
DATE2:=ENCODEDATE(Y2,m2,d2);
Diff := Date2-Date1;
NJOUR.Text:=FLOATTOSTR(DIFF);
end;