algoritmo Duvida co algoritmo visualg

[estevamnet10 0]

Bom dia galera. Bom não sei se minha duvida esta no local certo. se não estiver me perdoem.

gostaria de u ajuda para validar a data desse algoritmo. porque do jeito que esta pode colocar qualquer data que dar certo e teria que ser a data atual.

desde já obrigado pela ajuda.

 

Algoritmo "Alg_Estoque"
// Disciplina  :  [Informática Aplicada] 
// Professor   : Sergio Lins 
// Descrição   : criar um sistema que exiba o menu com uso adequado de estrutura
// de controle combinado com laço de repetição. Conforme as regras.
// Autor(a)    : Manoel Estevam Neto
// Data atual  : 20/02/2018
Var
// variáveis
opcao, saldoIni, saldoTot: inteiro
prod, dCompra, dVenda: caractere
vUnit, vTot: Real
qCompra, qVenda: inteiro

Inicio
repita
      escreval("-------------------------------")
      escreval("***    Sistema de Estoque   ***")
      escreval("-------------------------------")
      escreval("* 1.Compra                    *")
      escreval("* 2.Venda                     *")
      escreval("* 3.Saldo                     *")
      escreval("* 4.Resumo                    *")
      escreval("* 5.Sair                      *")
      escreval("-------------------------------")
      
      escreva("Digite a opção desejada: ")
      leia(opcao)
      
      escolha(opcao)
      
         caso 1
             escreval("-------------------------------")
             escreval("***    Sistema de Compras   ***")
             escreval("-------------------------------")
             escreva("Digite o nome do produto: ")
             leia(prod)
             escreva("Digite a quantidade do produto: ")
             leia(qCompra)
             escreva("Digite a data da compra (dd/mm/AAAA): ")
             leia(dCompra)
             escreva("Digite o valor unitário: ")
             leia(vUnit)
             // escreva("Digite o valor total: ")
             // leia(vTot)
             vTot <- (qCompra*vUnit)
             escreval("Compra realizada com sucesso")
             escreval("| Produto | Data da Compra |   Quant.  | Valor Unit | Total |")
             escreval("| ", prod, " |  ", dCompra, "  |  ", qCompra, "  |  ", vUnit, "  |  ", vTot, " |")

         caso 2
             escreval("-------------------------------")
             escreval("***     Sistema de Vendas   ***")
             escreval("-------------------------------")
             escreva("Digite o nome do produto: ")
             leia(prod)
             escreva("Digite a quantidade do produto: ")
             leia(qVenda)
             escreva("Digite a data da venda (dd/mm/AAAA): ")
             leia(dVenda)
             escreva("Digite o valor unitário: ")
             leia(vUnit)
             vTot <- (vUnit*qVenda)
             escreval("Venda realizada com sucesso")
             escreval("| Produto | Data da Venda |   Quant.  | Valor Unit | Total |")
             escreval("| ", prod, " |  ", dVenda, "  |  ", qVenda, "  |  ", vUnit, "  |  ", vTot, " |")

         caso 3
              saldoIni <- 10
             se (saldoIni < 10) entao
                escreval("Hora de ir as compras!")
             senao
                saldoTot <- saldoIni + qCompra
                escreval(prod," em estoque é = ", saldoTot)
             fimse

         caso 4
             saldoIni <- 10
             saldoTot <- saldoIni + qCompra
             escreval("-----------------------------------------")
             escreval("***             Resumo                ***")
             escreval("-----------------------------------------")
             escreval("| Saldo Inicial... ",saldoIni,        " |")
             escreval("| Compras ........ ",qCompra,         " |")
             escreval("| Vendas ......... ",qVenda,          " |")
             escreval("| Saldo Atual..... ",saldoTot-qVenda, " |")

         caso 5
             escreval("Obrigado! E volte sempre")
         outrocaso
             escreval("Opção inválida!")
      fimescolha
ate opcao = 5


Fimalgoritmo

.Inclusive no caso 3 seria necessário dar baixa no saldo do estoque.