線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1078
推到 Plurk!
推到 Facebook!

如何將Now()或Time()的分或秒取出給一個變數

尚未結案
jjkk86
一般會員


發表:8
回覆:6
積分:2
註冊:2005-01-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-01-22 17:40:00 IP:211.74.xxx.xxx 未訂閱
因為我想寫一個會隨著時間而改變的一個函數比如說P(t),t是現在時間的秒數,請問各大大要如何將Now()或Time()的分或秒取出後給一個變數t (t是目前時間的秒數) 發表人 - jjkk86 於 2005/01/22 20:09:02
Zard
尊榮會員


發表:24
回覆:396
積分:539
註冊:2003-11-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-01-22 19:54:35 IP:61.64.xxx.xxx 未訂閱
引言: 因為我想寫一個會隨著時間而改變的一個函數比如說P(t),t是現在時間的秒數,請問各大大要如何將Now()或Time()的分或秒取出給一個變數
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Word wHour, wMin, wSec, wMSec;
  DecodeTime(Now(), wHour, wMin, wSec, wMSec);
  ShowMessage("時: "   IntToStr(wHour));
  ShowMessage("分: "   IntToStr(wMin));
  ShowMessage("秒: "   IntToStr(wSec));
  ShowMessage("微秒: "   IntToStr(wMSec));
}
jjkk86
一般會員


發表:8
回覆:6
積分:2
註冊:2005-01-02

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-01-22 22:18:41 IP:211.74.xxx.xxx 未訂閱
這個方法好像沒辦法把秒丟給變數t耶
ubong
一般會員


發表:2
回覆:42
積分:23
註冊:2002-10-02

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-01-22 23:38:19 IP:218.160.xxx.xxx 未訂閱
Zard 的回答是正確的,DecodeTime(Now(), wHour, wMin, wSec, wMSec); 秒數的值是存在wSec, 其型態是Word,其引數是時分秒及微秒,你應依序給予引數,而不可能只給予秒的引數。 以下是我比較笨的方法。 void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString s; char second[3],str[21]; TDateTime DateTime = Time(); s = TimeToStr(DateTime);//取得時間字串 strcpy(str,s.c_str()); // 將字串存入c字串 strrev(str); // 將字串反轉 second[0]=str[4]; // 十位數在第五字 second[1]=str[3]; // 個位數在第四字 second[2]='\0'; Label1->Caption=s; Label2->Caption=second; } ubong
------
ubong
系統時間:2024-11-23 10:37:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!