AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de fechas y horas
  • Formato AAAAMMDD
  • Varios
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Otros
Procedimientos almacenados
Convierte un número entero en una fecha en formato AAAAMMDD.
Ejemplo
IntegerToDate(73773)       // Returns "20011225"
IntegerToDate(73773, "Y")  // Returns "2001"
IntegerToDate(73773, "M")  // Returns "12"
IntegerToDate(73773, "D")  // Returns "25"
 
// Calculate tomorrow's date
let Tomorrow = IntegerToDate(DateToInteger(DateSys()) + 1)
Sintaxis
<Result> = IntegerToDate(<Date> [, <Format>])
<Result>: Cadena de caracteres o variable de tipo Date
Fecha en formato AAAAMMDD.
<Date>: Entero
Número de días transcurridos desde el 1 de enero de 1800 + 1 (el 1 de enero de 1800 es el número 1).
<Format>: Cadena de caracteres opcional
Formato de la fecha a obtener:
  • A para obtener el año en formato AAAA,
  • M para obtener el mes en formato MM,
  • D para obtener el día en formato DD.
Si no se especifica este parámetro, el formato utilizado de forma predeterminada es AAAAMMDD (AAAA corresponde al año, MM al mes y DD al día).
Observaciones

Formato AAAAMMDD

Para obtener la fecha en un formato diferente a AAAAMMDD, se debe definir el formato de la cadena con las funciones DateToString, Right, Left, etc.
Se eligió el formato AAAAMMDD porque permite comprobar el orden de las fechas. Esto no sería posible con los formatos AAAADDMM o DDMMAAAA, por ejemplo.
Reportes y ConsultasWindowsProcedimientos almacenados

Varios

Esta función no permite obtener fechas anteriores al 14 de octubre de 1582 (el cambio del calendario juliano al gregoriano no se tendrá en cuenta).
Clasificación Lógica de negocio / UI: Código neutro
Componente: wd290std.dll
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
Data Fora Feriado?
PROCEDURE Rules_DataForaFeriado(gData)

bDataForaFeriado is boolean = True

HReset(T031_FERIADOS)
FOR EACH T031_FERIADOS
IF HFound(T031_FERIADOS) = True
IF T031_FERIADOS.T031_DIA = Middle(gData,7,2) AND T031_FERIADOS.T031_MES = Middle(gData,5,2) THEN
bDataForaFeriado = False
END
END
END

IF bDataForaFeriado = False THEN
Info("A data é um feriado!")
END

RESULT bDataForaFeriado
BOLLER
03 04 2019
Exemplo: A data é invalida pois é um domingo!!!!
PROCEDURE Rules_DataValida(dDataValida)
bvalida is boolean = False
dataFormatada is Date
dataFormatada..Year = Middle(dDataValida,1,4)
dataFormatada..Month = Middle(dDataValida,5,2)
dataFormatada..Day = Middle(dDataValida,7,2)
dDataMinima is Date
dDataMinima = dataFormatada
dDataMinima..Year -= 5
dDataMaxima is Date
dDataMaxima = dataFormatada
dDataMaxima..Year += 5
IF dataFormatada >= dDataMinima AND
dataFormatada <= dDataMaxima AND
Lower(DateToDayInAlpha(dataFormatada)) <> "domingo" AND
Lower(DateToDayInAlpha(dataFormatada)) <> "sábado"
bvalida = True
ELSE
bvalida = False
IF Lower(DateToDayInAlpha(dataFormatada)) = "domingo" OR
Lower(DateToDayInAlpha(dataFormatada)) = "sábado"
Info("Data Inválida, é um "+DateToDayInAlpha(dataFormatada)) ////
ELSE
Info("Data Inválida")
END
END
RESULT bvalida
BOLLER
03 04 2019

Última modificación: 27/05/2022

Señalar un error o enviar una sugerencia | Ayuda local