Data em Clipper

Manipulando datas e horas

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
SET DATE BRITISH
DataToda=Date()
Dia_do_mes=Day(DataToda)
Dia_da_semana=Dow(DataToda)
Mes=Month(DataToda)
Ano=Year(DataToda)
// ---------------------------------------
tempo = seconds()
Horas=int(tempo/(60*60))
Minutos=int(tempo/60)-(Horas*60)
Segundos=int(tempo)-(Horas*60*60)-(Minutos*60)
// ---------------------------------------
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
? "Sao: ",Horas," horas, ",Minutos," minutos e ",Segundos," segundos."

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