廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 3731 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
nomaid 手機 會員卡
個人頭像
個人文章 個人相簿 個人日記 個人地圖
知名人士
級別: 知名人士 該用戶目前不上站
推文 x0 鮮花 x34
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Delphi][範例] [範例]這是會員求助之數學函式的範例[已除錯]
1/26 Code已修復..原因出於判斷閏年二月的時候多了一個end..
現已修正 並重新整理code (稍微修改一下if的判斷 以便縮短行數)
重新上傳檔案完成
並再煩請各位大大們幫我找一下看還有沒有bug 謝謝

1/20 再次抱歉~ 我的判斷迴圈的邏輯錯誤
導致又有bug產生 真是不好意思
這幾天比較忙 故可能暫時無法Debug
等小弟星期一或二有空閒的時候定會更新完成~
在此之前先暫停下載~ 不好意思ㄛ!!^^

1/18 抱歉 修改一下裡面有關於閏年的判斷
因為我同學幫我測了以後有說有問題產生 (2000年)
故重新修改了有關閏年判斷的程序
並重新編譯了附件~
有興趣的大大們可以下載來看看^^

這是之前在程式設計版那邊 有會員所問的問題
請詳見
轉貼他原本的問題
--------------問 題---------------------------------------------------------------------
就是 入境日期+工作期滿=期滿日

例如:2000年1月1日+1年5月30日=2001年7月1日

然後2000年1月1日跟1年5月30日這部分是要自己輸入的
然後有分大月跟小月和潤月的 所以不是那種一班的數學函式
有人知道怎麼寫的話或者哪個網站有關這類的可以告訴一下嗎 3q
小弟我滿急的要用這個函式 所以知道的告訴小弟一下我嚕 在這先感謝嚕~
-------------------------------------------------------------------------------------------------------

那以下這個程式碼包含程式便是我針對它的問題所作出來的一個小程式
由於寫的很笨 所以請各位大大多包含~@@"
就先讓它能跑就可以了 呵呵~~

流程我在那篇已經有大概的解說 不過還是在這邊再次解說一下
---------------------我的回答---------------------------------------------------------------
年份 月份 日期 各分為三個框框
也就是說
2000年 1月 1日 + 1年 5月 30日 = 2001年7月1日
EDIT1 EDIT2 EDIT3 EDIT4 EDIT5 EDIT6 後面結果可用label或是edit都可 也可用messagebox

程式寫法就讓 EDIT1的值 + EDIT 4的值 等於 一個變數 (PS:變數1)
EDIT2的值 + EDIT 5的值 等於 一個變數 (PS:變數2)
EDIT3的值 + EDIT 6的值 等於 一個變數 (PS:變數3)
然後
判斷句就加在加法後面 使用 IF ELSE 去判斷

個人寫法是 一. 變數2 先判斷是否大於12 (判斷月份)
如果大於 12的話 則 變數1 加 1
二. 判斷是否為閏年可用上面大大的寫法
潤年:
1. 西元年/4的餘數為0:是潤年
2. 西元年/100的餘數為0:不是潤年
3. 西元年/400的餘數為0:是潤年
如果為閏年的話 則跳到副程式 year 去做日期判斷
否則為接著下面判斷是否為大小月
三.大月則判斷變數2 是否為1,3,5,7 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



[ 此文章被nomaid在2005-01-26 12:21重新編輯 ]

此文章被評分,最近評分記錄
支持度:10 (by panasonic732) | 理由: 滿用心替會員解答,故追加10點支持度
財富:100 (by panasonic732)




阿咧..謝謝各位送花大隊的版友們辛苦的送花
小弟非常感謝你們 不過 小弟很懶的每次都去開訊息
所以請你們之後可以不用送花給小弟了 謝謝你們了^^"
獻花 x0 回到頂端 [樓 主] From:局域網對方和您在同一內部網 | Posted:2005-01-17 15:03 |
panasonic732 手機
個人頭像
個人文章 個人相簿 個人日記 個人地圖
特殊貢獻獎
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x2 鮮花 x30
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

以後抓圖
按ALT+'PRINT SCRN'
只會抓到目前在執行的圖喔

有包括閏年??嘿嘿


憂慮不斷,心未寧靜
綿綿春雨,花失嬌艷
凋零磨滅,事情難回
得意失意,不再回想
放棄它吧,唯有如此
獻花 x0 回到頂端 [1 樓] From:台灣中華電信 | Posted:2005-01-17 21:50 |
nomaid 手機 會員卡
個人頭像
個人文章 個人相簿 個人日記 個人地圖
知名人士
級別: 知名人士 該用戶目前不上站
推文 x0 鮮花 x34
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

是有做到啦 ~
不過小弟僅以 2004年去做測試
目前尚不知道有其他bug~
希望其他的大大們能幫忙找一下^^


歡迎各位大大指教^^

另外 閏年顯示 是否有問題? 還是?



阿咧..謝謝各位送花大隊的版友們辛苦的送花
小弟非常感謝你們 不過 小弟很懶的每次都去開訊息
所以請你們之後可以不用送花給小弟了 謝謝你們了^^"
獻花 x0 回到頂端 [2 樓] From:台灣台灣索尼 | Posted:2005-01-18 01:00 |
panasonic732 手機
個人頭像
個人文章 個人相簿 個人日記 個人地圖
特殊貢獻獎
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x2 鮮花 x30
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

呵呵...
應該是沒有...

您會哪幾種程式語言呢
怎麼不報名一下 高手駐版解答呢

這樣COCO比較好賺


憂慮不斷,心未寧靜
綿綿春雨,花失嬌艷
凋零磨滅,事情難回
得意失意,不再回想
放棄它吧,唯有如此
獻花 x0 回到頂端 [3 樓] From:台灣中華電信 | Posted:2005-01-18 09:01 |
nomaid 手機 會員卡
個人頭像
個人文章 個人相簿 個人日記 個人地圖
知名人士
級別: 知名人士 該用戶目前不上站
推文 x0 鮮花 x34
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

我會一點點的 C ,VB , Delphi
不過都是這幾年學校在教的~
都學的很資淺~
尤其是C (逃..)呵呵
還是一個正在摸索的新手學生哩~

最近是因為在學Delphi才比較會一點點而已~
所以就沒去報名高手駐版解答~ (小弟還沒像大大們那麼厲害@@")



阿咧..謝謝各位送花大隊的版友們辛苦的送花
小弟非常感謝你們 不過 小弟很懶的每次都去開訊息
所以請你們之後可以不用送花給小弟了 謝謝你們了^^"
獻花 x0 回到頂端 [4 樓] From:局域網對方和您在同一內部網 | Posted:2005-01-18 09:46 |
panasonic732 手機
個人頭像
個人文章 個人相簿 個人日記 個人地圖
特殊貢獻獎
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x2 鮮花 x30
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

沒關係...程式本來就是慢慢學

我也只會vb..c#而已 ˊˋ
要不要試試看...


憂慮不斷,心未寧靜
綿綿春雨,花失嬌艷
凋零磨滅,事情難回
得意失意,不再回想
放棄它吧,唯有如此
獻花 x0 回到頂端 [5 樓] From:台灣中華電信 | Posted:2005-01-18 10:09 |
nomaid 手機 會員卡
個人頭像
個人文章 個人相簿 個人日記 個人地圖
知名人士
級別: 知名人士 該用戶目前不上站
推文 x0 鮮花 x34
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

嗯 多謝大大哩

那小弟願意試試看 ~

還請多多指教吶^^"



阿咧..謝謝各位送花大隊的版友們辛苦的送花
小弟非常感謝你們 不過 小弟很懶的每次都去開訊息
所以請你們之後可以不用送花給小弟了 謝謝你們了^^"
獻花 x0 回到頂端 [6 樓] From:局域網對方和您在同一內部網 | Posted:2005-01-18 10:37 |
panasonic732 手機
個人頭像
個人文章 個人相簿 個人日記 個人地圖
特殊貢獻獎
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x2 鮮花 x30
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

圖 1.



我不小心發現的BUG
1987 7/22是我的出生年月日
2/15是某的女生的生日...呵呵


憂慮不斷,心未寧靜
綿綿春雨,花失嬌艷
凋零磨滅,事情難回
得意失意,不再回想
放棄它吧,唯有如此
獻花 x0 回到頂端 [7 樓] From:台灣中華電信 | Posted:2005-01-21 00:38 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.013728 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言