با سلام . من مي خوام يك فيلد از نوع Time رو تو دلفي تبديل به روز كنم يعني اگه اون فيلد 24:00 بود بشه معادل يك روز درضمن بانكم اكسس . از راهنماييتون ممنونم . با تشكر
Printable View
با سلام . من مي خوام يك فيلد از نوع Time رو تو دلفي تبديل به روز كنم يعني اگه اون فيلد 24:00 بود بشه معادل يك روز درضمن بانكم اكسس . از راهنماييتون ممنونم . با تشكر
با سلامنقل قول:
میتونید از تابع زیر استفاده کنید :برای تست تابع من به این صورت عمل کردم :کد:private
function ConvertTimeToDate(H: Real): Integer;
.
.
.
function TForm1.ConvertTimeToDate(H: Real): Integer;
var
temp: Real;
begin
temp := H / 24;
Result := Round(temp);
end;
که عدد 2 را به من نشان داد.کد:procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(inttostr(ConvertTimeToDate(49.3)));
end;
* میتونید به جای عدد را مستقیم وارد کنید ان را از DataBase بگیرید.
موفق باشید.
با تشکر
ضمن تشکر از شما دوست عزیز - مقادیر من به صورت 00:00 ذخیره میشن .نقل قول:
با سلامنقل قول:
شما می توانید با یک function ورودی خود را استاندارد کنید.
* خروجی این تابع را به ورودی تابع پست قبلی من وارد کنید.کد:private
function StandardInput(Input: string): real;
.
.
.
function TForm1.StandardInput(Input: string): real;
var
temp: string;
i: integer;
begin
for i := 1 to Length(Input) do
if Input[i] <> ':' then
temp := temp + Input[i]
else
temp := temp + '.';
Result := StrToFloat(temp);
end;
* البته این کد در صورت صحیح بودن ورودی کار میکند.
با تشکر