Current date
Current date ( * ) : Date
| Parâmetro | Tipo | Descrição | |
|---|---|---|---|
| * | Operador | → | Devolve a data atual do servidor |
| Resultado | Date | ← | Data atual |
Descrição
O comando Current date retorna a data atual tal como está definida no relógio do sistema.se passado o parâmetro asterisco (*) durante a execução desta função em um equipo cliente 4D Client, a função devolve a data atual do servidor.
Exemplo 1
O seguinte exemplo mostra uma caixa de diálogo de alerta com a data atual:
ALERT("The date is "+String(Current date)+".")
Exemplo 2
Se desenvolve uma aplicação para o mercado internacional, necessita saber se a versão de 4D com a qual é executada sua aplicação funciona com as datas de formato MM/DD/YYYY (versão US) ou DD/MM/YYYY (versão francesa). Esta informação é útil para personalizar corretamente as áreas de entrada.
O seguinte método de projeto permite fazer isso:
// Função global Sys date format
// Sys date format -> String
// Sys date format -> Formato de dados 4D por padrão
#DECLARE -> $format : Text
var $vsDate;$vsMDY;$vsMonth;$vsDay;$vsYear : Text
var $vlPos : Integer
var $vdDate : Date
//Obter uma data na qual os valores de mês, dia e ano sejam todos diferentes
$vdDate:=Current date
Repeat
$vsMonth:=String(Month of($vdDate))
$vsDay:=String(Day of($vdDate))
$vsYear:=String(Year of($vdDate)%100)
If(($vsMonth=$vsDay)|($vsMonth=$vsYear)|($vsDay=$vsYear))
vOK:=0
$vdDate:=$vdDate+1
Else
vOK:=1
End if
Until(vOK=1)
$format:="" // Inicialização do resultado da função
$vsDate:=String($vdDate)
$vlPos:=Position("/";$vsDate) // Procurar o primeiro separador / na string ../../../../..
$vsMDY:=Substring($vsDate;1;$vlPos-1) // Extrair os primeiros dígitos da data
$vsDate:=Substring($vsDate;$vlPos+1) // Eliminar os primeiros dígitos e o primeiro separador /
Case of
:($vsMDY=$vsMonth) // Os dígitos expressam o mês
$format:="MM"
:($vsMDY=$vsDay) //Os dígitos expressam o dia
$format:="DD"
:($vsMDY=$vsYear) //Os dígitos expressam o ano
$format:="YYYY"
End case
$format:=$format+"/" //Iniciar a construção do resultado da função
$vlPos:=Position("/";$vsDate) // Procurar o segundo separador na string ../../..
$vsMDY:=Substring($vsDate;1;$vlPos-1) // Extrair os seguintes dígitos da data
$vsDate:=Substring($vsDate;$vlPos+1) // Reduzir a string aos últimos dígitos da data
Case of
:($vsMDY=$vsMonth) // Os dígitos expressam o mês
$format:=$format+"MM"
:($vsMDY=$vsDay) // Os dígitos expressam o dia
$format:=$format+"DD"
:($vsMDY=$vsYear) // Os dígitos expressam o ano
$format:=$format+"YYYY"
End case
$format:=$format+"/" //Iniciar a construção do resultado da função
Case of
:($vsDate=$vsMonth) // Os dígitos expressam o mês
$format:=$format+"MM"
:($vsDate=$vsDay) // Os dígitos expressam o dia
$format:=$format+"DD"
:($vsDate=$vsYear) // Os dígitos expressam o ano
$format:=$format+"YYYY"
End case
//Neste momento $format é igual a MM/DD/YYYY ou DD/MM/YYYY ou...
Ver também
Propriedades
| Número do comando | 33 |
| Thread-seguro | yes |