<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>DateTimeValidation</Title>
      <Shortcut>DateTimeValidation</Shortcut>
      <Description>DateTimeValidation [VB.NET]</Description>
      <Author>behdad khoshbin</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=4a860719-560e-4cde-a0c7-c72306480c44</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[    Private Sub DteServiceBeginTextEdit_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles DteServiceBeginTextEdit.Validated
        Me.DteServiceBeginTextEdit.ErrorText = ""
    End Sub

    Private Sub DteServiceBeginTextEdit_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles DteServiceBeginTextEdit.Validating
        If Me.DteServiceBeginTextEdit.Text <> "//" Then
            If CustomValidator.IsValidPersianDate(Me.DteServiceBeginTextEdit.Text) Then
            Else
                e.Cancel = True
                Me.DteServiceBeginTextEdit.Select(0, Me.DteServiceBeginTextEdit.Text.Length)
                Me.DteServiceBeginTextEdit.ErrorText = "این یک تاریخ معتبر فارسی نیست"
                ' Me.ErrorProvider1.SetError(Me.DteServiceBeginTextEdit, "این یک تاریخ معتبر فارسی نیست")
            End If
        End If
    End Sub]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>