if cdate(label1.caption) = date then
' //fai qualcosa
elseif cdate(label1.caption) > date then
' // fai qualcos'altro
end if