各位大大好 小弟自從有計算時間(加減.即1分20秒 40秒等於2分的意思.而非日期上的計算)需求開始.每天不斷的在網路上尋找.直至今天都未能找到ㄧ個可用的程式.我不敢奢望大大們幫我製作這個程式.但是能否拜託告訴小弟.怎樣才能製作一個做時間加減的程式.拜託了.感謝! 發表人 - laichunmin 於 2005/09/26 23:27:09

laichunmin 您好：    請配合您的實際問題將您的標題修改一下，以便他人瀏覽標題時不會誤解。    關於您的問題，我不清楚您的實際為何？如果只是單純的做日期加減的話，可以先參考一下下列作法：

TDate d1 = TDateTime("2005/09/20");  // 設定 d1 為 2005 年 9 月 20 日
TDate d2 = d1.CurrentDate();  // 設定 d2 為今天日期
int d3 = d2-d1;  // 將 d2 減掉 d1 就是兩個日期的相差天數了

7 天天敲鍵盤 v 時時按滑鼠 8

Hi laichunmin,    大概邏輯是這樣，你參考看看：    h1,m1,s1 --> input1 h2,m2,s2 --> input2 h3,m3,s3 --> output i1,i2,i3 --> 變數

1.i1 = (h1 * 60 * 60)   (m1 * 60)   s1 --> 將 input1 轉換為總秒數
2.i2 = (h2 * 60 * 60)   (m2 * 60)   s2 --> 將 input2 轉換為總秒數
3.i3 = i1   (or - ) i2 --> 計算 output 總秒數
4.if i3 < 0 then
    i3 = abs(i3) --> 取絕對值
    結果為負
  else
    結果為正
end if
5.h3 = int(i3 / (60 * 60)) --> 計算 output 小時數
6.m3 = int((i3 - (h3 * 60 * 60)) / 60) --> 計算 output 分數
7.s3 = i3 mod 60 --> 計算 output 秒數

發表人 -

------
Fishman

laichunmin 您好：    除非是有絕對的必要對錯字做修正或是因為版面顯示問題而重貼程式碼，否則的話請您以後在他人做回覆後，不要直接修改原文的語意，如果有發現原文有詞不達意或是讓人誤解之處，可以接著回覆加以說明。 否則就會顯得回覆者 (在本篇裡指的就是本人) 好像看不懂問題而答非所問似的。 <> <>> 天天敲鍵盤 <>> 時時按滑鼠 <>>

查一下 time() 這個指令。 你可以找出所謂的”秒數” 兩個時間。也只是兩個”秒數”的值。 相減就可以知道差幾秒了。

感謝各位大大的幫助.小弟大有收穫.也對版主深感抱歉.小弟不懂這裡的規矩.造成版主或其他網友的困擾.還請見諒海涵

您好
我目前也遇到這個問題，給您參考看看！
var t1 : ttime;
s1 : string;
t1 := Now;
s1 := FormatDateTime('hhmmss', t1-StrToTime('00:30:00'));
t1後面的strtotime()裡面請直接放您要運算的值，範例是要扣掉30分鐘，如果要做秒數就請放到秒數的地方。
希望有幫上您的忙！

------
Pillar Wang

This is an easy calculation if you know the how Datetime value get stored in the system, actually it is a Double.
The basic idea is that 1 = 1 day. So, 0.5 = 12 hours.
=> 1/24 = 1 hour
1/24*60 = 1 minute
1/24*60*60 = 1 second
Therefore, base on this, you can find the difference between two times by using time1-time2 = td (a double value)
Then,
td/ 1/ 24*60*60 = how many seconds are between time1 and time2.
As a result, you can write your own DateTimeDiff() function.

===================引 用 laichunmin 文 章===================
各位大大好
小弟自從有計算時間(加減.即1分20秒 40秒等於2分的意思.而非日期上的計算)需求開始.每天不斷的在網路上尋找.直至今天都未能找到ㄧ個可用的程式.我不敢奢望大大們幫我製作這個程式.但是能否拜託告訴小弟.怎樣才能製作一個做時間加減的程式.拜託了.感謝!






發表人 - laichunmin 於 2005/09/26 23:27:09

------
===波士頓夜未眠===
What a wonderful world!!
Jazz up the world with jazz!!
==================

When I am not programming...
you can find me here:
http://www.holy-war.de/EN/World3/bin/?advertiser=63190