Sub DateBtn_onClick(objName, returnedField)
   if objName.value="" then
      objName.value=date      
   End if
   if not isGreekDate(objName.value) then
      msgbox "Δώσατε Λανθασμένη Ημερομηνία." & chr(10) & chr(13)  & "Παρακαλώ Χρησιμοποιήστε τη Μορφή DD/MM/YYYY.",64," ΠΡΟΣΟΧΗ !" 
      objName.focus
   else 
      objName.value=day(objName.value) & "/" & month(objName.value) & "/" & year(objName.value)
      show_calendar returnedField, objName.value, objName.value, "DD/MM/YYYY"
    End If   
End Sub	

function isGreekDate(d)
 if not isDate(d) then
  isGreekDate=False
  exit function
 else 'because 15/5/75 isDate:
     if not isNumeric(Trim(Right(d,4))) then
       isGreekDate=False
       exit Function
     end if     

    'because 2/17/1999 isDate:
     dim s 'eg s=2/15
     s=mid(d,1, len(d)-5) 
     'we are sure that the year is YYYY
     dim m
     m=Trim(Right(s,2))
      if isNumeric(m) then 
      'the user entered 02 or 55!!
     
        if m>12 then
          isGreekDate=False
          exit Function
        end if
     end if  
 end if 
isGreekDate=True
end function

Function CheckValidDate(DateFrom, DateTo)
  If DateDiff("d", DateFrom, DateTo) < 0 Then
    CheckValidDate = False
  Else
    CheckValidDate = True
  End If
End Function