隨機抽取時間問題! |
尚未結案
|
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 ; // 前後共30分 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; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |