Validare una data con RegExp

[paolo bosani]

Ciao a tutti,
devo validare un campo data e ho usato una regexp, ma non funziona, dove sbaglio?

FUNCTION validData(data)

  Dim Reg
  Set Reg = New RegExp 	'inizializzo la regexp
  Reg.Global = True
  Reg.Ignorecase = True
  Reg.pattern = "^([0]?[1-9]|[1|2][0-9]|[3][0|1])[./-]([0]?[1-9]|[1][0-2])[./-]([0-9]{4}|[0-9]{2})$"

  validData = Reg.Test(data)

  set Reg = Nothing

END FUNCTION