Existe apenas uma função para que se possa obter a data e a hora. É a função Date(). Esta funão devolve data e hora no formanto: Dia da semana, Nome do mês, Dia do mês, Hora:Minuto:Segundo e Ano
Para se obter os dados separadamente, existem os seguintes métodos:
No exemplo 1 abaixo obteremos o dia da semana e as horas. Para tal, utilizaremos a variável DataToda para armazenar data e hora.
Exemplo 1 |
SET CENTURY ON |
exemplo 2: alterando a data
Para criar uma variável tipo Date com o conteúdo informado pela aplicação. Os mas importantes são:
Exemplo 2 |
SET CENTURY ON SET DATE BRITISH DataToda=CTOD("28/04/1997") Dia_do_mes=Day(DataToda) Dia_da_semana=Dow(DataToda) Mes=Month(DataToda) Ano=Year(DataToda) // --------------------------------------- declare semana[7] semana[1]="Domingo" semana[2]="Segunda" semana[3]="Terça" semana[4]="Quarta" semana[5]="Quinta" semana[6]="Sexta" semana[7]="Sabado" Semana_atual=semana[Dia_da_semana] //------------------------- declare Mes2[12] Mes2[1]="Janeiro" Mes2[2]="Fevereiro" Mes2[3]="Março" Mes2[4]="Abril" Mes2[5]="Maio" Mes2[6]="Junho" Mes2[7]="Julho" Mes2[8]="Agosto" Mes2[9]="Setembro" Mes2[10]="Outubro" Mes2[11]="Novembro" Mes2[12]="Desembro" Mes_atual=Mes2[Mes] ? Semana_atual,", ",Dia_do_mes," de ",Mes_atual," de ",Ano |