广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 4086 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为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.055206 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言