DateEdit賦值之問題 |
|
答題得分者是：老大仔
|
|
lzkevin
一般會員   發表：13 回覆：14 積分：5 註冊：2008-07-28 發送簡訊給我 |
|
|
herbert2
尊榮會員  發表：58 回覆：640 積分：894 註冊：2004-04-16 發送簡訊給我 |
程式碼為基本功，請自己寫，邏輯如下：
將日期型態的今日值，轉文字型態 'yyyy/mm/dd'，取左邊８碼，加 '01'，得 'yyyy/mm/01'，存入月初的 Edit。 將日期型態的今日值，轉文字型態 'yyyy/mm/dd'，取左邊４碼及中間６碼起之２碼， 若２碼='12'，則月底文字型='yyyy/12/31'； 否則，次月年月份初='yyyy' '/' (('mm'轉數值 100)轉文字取中間２碼起之兩碼) '/01'， 文字型態次月年月份初轉日期型-1，即為本月底日期， 本月底日期轉文字型即可存入本月底的 Edit。 若是要計算指定日期之月初與月底，同理可得。 |
|
chenyk
高階會員 發表：14 回覆：95 積分：171 註冊：2002-07-08 發送簡訊給我 |
|
|
老大仔
尊榮會員 發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
看來...應該是沒做功課
請善用Delphi本身有的Function... function StartOfTheMonth(const AValue: TDateTime): TDateTime; function EndOfTheMonth(const AValue: TDateTime): TDateTime; 詳細用法請自己爬文... ===================引 用 lzkevin 文 章=================== 各位大俠， 請教一下有兩個 DateEdit感謝！ |
|
ANDY8C
資深會員  發表：114 回覆：582 積分：299 註冊：2006-10-29 發送簡訊給我 |
擅用 pc 的萬年曆函式....以上大大都有提了 原理: 每月的月初,就是上個月的月底 1 反之....本月的月底是幾日(29/30/31),也可以用下月的月初 - 1 天, 即可求得. 此法也可以用來測試 2 月是否 29 天 ( 潤年 ) (3月1日) - 1 = > 28 或 29 ===================引 用 lzkevin 文 章=================== 各位大俠， 請教一下有兩個 DateEdit感謝！
------
--------------------------------------- 偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩. |
|
lzkevin
一般會員 發表：13 回覆：14 積分：5 註冊：2008-07-28 發送簡訊給我 |
發表時間：2013-08-23 08:53:00
IP:27.46.xxx.xxx 訂閱
系統時間：2024-04-25 19:56:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |