您的位置：程序门 -> vb -> 基础类

算法的问题？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

算法的问题？

发表于：2007-07-03 18:53:28 楼主

private sub command1_click（)

dim m_year as integer, m_month as integer, m_day as integer
dim temp as long, m_serry as long, m_str as string, str_year as string

if （isnumeric（text1.text) = false) then
msgbox "年份输入有问题 "
exit sub
end if

if （isnumeric（text2.text) = false) then
msgbox "月份输入有问题 "
exit sub
end if

if （isnumeric（text3.text) = false) then
msgbox "日期输入有问题 "
exit sub
end if

str_year = text1.text
str_year = trim（text1.text)

if （len（str_year) > 4) then
msgbox "年份输入有问题 "
exit sub
end if

m_year = int（text1.text)
m_month = int（text2.text)
m_day = int（text3.text)

if （m_month > 12) then
msgbox "月份输入有问题 "
exit sub
end if

if （m_day > 31) then
msgbox "日期输入有问题 "
exit sub
end if

m_year = m_year mod 100

temp = m_year and m_month and m_day

m_serry = m_year
m_serry = m_serry * 256 + m_month
m_serry = m_serry * 256 + m_day
m_serry = m_serry * 256 + temp

m_str = str（m_serry)

text4.text = trim（m_str)

end sub
这段程序是将输入的年月日，生成一段数字。我的问题是如何将这段数字还原成年月日？

发表于：2007-07-03 22:12:261楼得分:0

m_serry = clng（text4.text)
m_serry = m_serry \ 256
m_day = m_serry mod 256
m_serry = （m_serry - m_day) \ 256
m_month = m_serry mod 256
m_serry = m_serry \ 256
m_year = m_serry
text1.text = m_year
text2.text = m_month
text3.text = m_day

发表于：2007-07-03 22:33:482楼得分:0

ls的，怎么跟我一样大晚上的活动

m_serry = clng（text4.text)
m_serry = m_serry \ 256
m_day = m_serry mod 256
m_serry = （m_serry - m_day) \ 256
m_month = m_serry mod 256
m_serry = m_serry \ 256
m_year = m_serry
text1.text = m_year
text2.text = m_month
text3.text = m_day

发表于：2007-07-03 23:35:243楼得分:0

都是夜猫子

发表于：2007-07-05 17:50:594楼得分:0

发现一个专门研究开发语言和软件开发，盗号软件开发的论坛，只可惜这个论坛不让注册，就两个人还要邀请码才能注册，不过人家也是纯技术论坛，可能是为了防止灌水把，但是还是有帖子可以看到的。
http://icesoft.uu1001.com

发表于：2007-07-05 17:58:405楼得分:0

楼主这样做的话不但程序麻烦，用户输入也麻烦。
建议你安装一个日历控件吧，用户直接点一个日期就可以了，在office工具里就有这个控件，你在office安装盘的字定义安装选项中仔细找一下就可以了，美观又好用

下一篇：winsock与windows api的关系
上一篇：如何解开mht文件中的图片，还有网页？

其他资讯