日期操作问题，在线等！！1

Question

计算两个日期间的月份差
date2是 当前时间 
可是date1却是存储在数据库中的这样的‘2004-11’字符串
大家帮忙给解决一下

Answer 1

有个土办法，不一定是最好的，但肯定能实现var Year1, Month1, Day1
,Year2, Month2, Day2: Word;
s:string;
begin
DecodeDate(DateTimePicker1.Date,Year1,Month1,Day1);
DecodeDate(DateTimePicker2.Date,Year2,Month2,Day2);
s:=IntToStr((Year1-Year2)*12+Month1-Month2);
ShowMessage(s);

Answer 2

你就确定是这个格式的吗？那不更简单，直接截取前四个字符串，第2次截取最后两个字符串
转换成INT，再计算不就行了，截取字符串用COPY（string，从第几个字符开始，取几个字符）

Answer 3

谢谢  hsmserver(撒哈拉之雨的悲伤)  问题已经解决；
我用的leftstr 和 rightstr