Public Function DBToDate(ByVal prmdate As Date) As Date
Dim d As String = DateAndTime.Day(prmdate).ToString("##00")
Dim m As String = DateAndTime.Month(prmdate).ToString("##00")
Dim y As String = DateAndTime.Year(prmdate).ToString("##00")
If y < 2500 Then
y = y + 543
End If
Return DateValue(d & "/" & m & "/" & y)
End Function
