隨機抽取時間問題! |
|
尚未結案
|
|
xiaoning79627
初階會員   發表：46 回覆：60 積分：26 註冊：2002-11-10 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
引言: 我想在給定的時間的前后30分鐘內隨機抽取時間該如何做,謝謝! 如:給定18:30,想在18:00-19:00范圍內隨机取得時間. 努力，相信会做的更好！xiaoning79627 你好
假設精確度到分,試看看以下程式碼 Var
precision : Integer ;
SetDateTime : TDateTime ;
TrgDataTime : TDateTime ;
begin
SetDateTime := Now; // 指定的時間
precision := 60 ; // 前後共３０分
Randomize;
TrgDataTime := SetDateTime ((Random(precision)-30)/1440) ; // 一天有1440分
ShowMessage(FormatDateTime('hh:mm',TrgDataTime ));
end;
祝好運...........
|
|
jeffreck
高階會員 發表：247 回覆：340 積分：197 註冊：2003-01-23 發送簡訊給我 |
引言: 我想在給定的時間的前后30分鐘內隨機抽取時間該如何做,謝謝! 如:給定18:30,想在18:00-19:00范圍內隨机取得時間. 努力，相信会做的更好！procedure TForm1.Button2Click(Sender: TObject); Var //USes DateUtils RandomTime : TDateTime; i : Integer; begin RunTime:= StrToTime('18:30'); Randomize; i := Random(60); RandomTime:=IncMinute(RunTime,i-30); ShowMessage(TimeTostr(RandomTime)); end; |
發表時間：2004-02-27 20:26:39
IP:218.16.xxx.xxx 未訂閱
系統時間：2024-06-07 22:26:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |