<div dir="ltr"><div dir="ltr"><br></div><div>About RegExp, you could do something like this :<br></div><div>(always to the puttanesca :-P) <br></div><div><br></div><div>[code]</div><div>Private hGrid As GridView<br><br>Public Sub Form_Open()<br><br>  Dim hPan As HBox<br>  Dim hButton As Button<br>  Dim hDate As Date<br><br>  Component.Load("gb.pcre")<br>  hGrid = New GridView(Me) As "GridView1"<br><br>  With Me<br>    .H = 512<br>    .W = 512<br>    .Arrangement = Arrange.Vertical<br>    .Margin = True<br>  End With<br>  With hGrid<br>    .Expand = True<br>    .Header = GridView.Horizontal<br>    .Rows.Count = 4<br>    .Columns.Count = 1<br>    .Columns[0].Title = "DATE"<br>  End With<br>  hDate = Date(Now)<br>  hGrid[0, 0].text = Format(hDate, "dd/mm/yyyy")<br>  hGrid[1, 0].text = "6/Jan/2022"<br>  hGrid[2, 0].text = "06/September/2021"<br>  hGrid[3, 0].text = "Goofy"<br>  With hPan = New HBox(Me)<br>    .h = 40<br>  End With<br>  With hButton = New Button(hPan) As "Button1"<br>    .AutoResize = True<br>    .Text = "CLICK HERE"<br>  End With<br><br>End<br><br>Public Sub Button1_Click()<br><br>  Print IsAProbableDate(hGrid[0, 0].Text)<br>  Print IsAProbableDate(hGrid[1, 0].Text)<br>  Print IsAProbableDate(hGrid[2, 0].Text)<br>  Print IsAProbableDate(hGrid[3, 0].Text)<br><br>End<br><br>Private Sub IsAProbableDate(value As String) As Boolean<br>  <br>  If RegExp.Match(value, "([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})") Then <br>    Return True<br>  Else If RegExp.Match(value, "(([0-9]{1,2}))/([a-zA-Z]{3,10})/([0-9]{2,4})") Then<br>    Return True<br>  Else <br>    Return False<br>  Endif<br>  <br>End</div><div>[code]<br></div><div><br></div><div>Regards</div><div>Gianluigi<br></div><div><br></div><div><br></div><div><br></div></div>