>>156-160
即レス感謝です!! Editなどに日付を入力するので、次のような形にしてみました。
なんていうか、うまいやり方が思いつきません。＿|￣|○
if(Now()<EncodeDateTime(yd,md,dd,0,0,0,0))
　　　cntdn=DaysBetween(Now(),EncodeDateTime(yd,md,dd,0,0,0,0))+1;
else if(DaysBetween(Now(),EncodeDateTime(yd,md,dd,0,0,0,0))==0)
　　　cntdn="今日";
else
　　　cntdn="過ぎた";