Public Class Form1
    Public TextDate As Date = Date.Today

    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Escape Then Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = TextDate
    End Sub

    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.Escape Then Me.Close()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        On Error GoTo errH
        TextDate = TextBox1.Text
        Label1.Text = "Valid"
        Exit Sub
errH:
        Label1.Text = "Invalid"
    End Sub
End Class

        If IsDate(InputBox("Enter string to check")) = True Then MsgBox("Is date")

struct tm timeptr;
q = sscanf(data, "%d-%d-%d", &m, &d, &y);
if(q !=3) {
    ругаемся про глюк
}
заполняем timeptr
if(mktime(&timeptr)==-1) {
    ругаемся про неправильные числа вроде 31 февраля
}
sprintf(out_data, "%02d.%02d.%02d", d, m, y%100);

Date.ToString(DateFormat.ShortDate)

uses graph;
var
  x,y,r:integer;
begin
  InitGraph(тут сам параметры заполни так, чтобы твой компилятор схавал и на экране показал картинку);
  r = 20;
  x := 100;
  for y := 100 downto 10 do
  begin
    cleardevice();
    circle(x, y, r);
  end;
  for x:= 100 to 200 do
  begin
    y := (x-100)/2+10;
    cleardevice();
    circle(x, y, r);
   end;
  for x:= 200 downto 10 do
  begin
    cleardevice();
    circle(x, y, r);
   end;
  for y := 60 to 100 do
  begin
    cleardevice();
    circle(x, y, r);
  end;
closegraph;

int * c = new int [deg];
   int j, k, r, i, l, s;
   bool j_flag;
   r=0;
   j_flag = false;
   for (i=0; i<deg; i++)
      c[i]=-1;
   for (k=0; k<deg; k++)
   {
      for (j=0; j<deg; j++)
         if (this->p_Q[k][j]!=0 && c[j]<0)
         {
            j_flag = true;
            for (i=0; i<deg; i++)
               this->p_Q[i][j]*=(-1/this->p_Q[k][j]);
            break;
         }
      if (j_flag)
      {
         for (i=0; i<deg; i++)
         {
            if (i!=j)
            {
               for (l=0; l<deg; l++)
                  this->p_Q[l][i] = this->p_Q[l][i] + this->p_Q[k][i]*this->p_Q[l][j];
               c[j] = k;
            }
         }
         j_flag = false;
      }
      else
      {
         r++;
         for (j=0; j<deg; j++)
            v[r][j] = 0;
         for (s=0; s<deg; s++)
         {
            j = c[s];
            if (j>=0)
               this->v[r][j] = this->p_Q[k][s];
         }
         this->v[r][k] = 1;
      }
   }

   for (k=0; k<deg; k++)
   {
      for (j=0; j<deg; j++)

   for (k=0; k<deg; k++)
   {
      j_flag = false;
      for (j=0; j<deg; j++)

c[j] = k;
            }
         }
         j_flag = false;

 for (i=0; i<deg; i++)
         {
            if (i!=j)
            {
               for (l=0; l<deg; l++)
                  this->p_Q[l][i] = this->p_Q[l][i] + this->p_Q[k][i]*this->p_Q[l][j];
               c[j] = k;
            }
         }