Date functions.
Funciones
Text Dte2Spa(Date dteHor)//////////////////////////////////////////////////////////////////////////////
Text Dte2Spa(Date dteHor) // Spanish
//////////////////////////////////////////////////////////////////////////////
{
Real yeaNum = Year(dteHor);
Text yeaTxt = FormatReal(yeaNum, "%.0lf");
Real mthNum = Month(dteHor);
Text mthTxt = DteSpanishMonth[mthNum];
Real dayNum = Day(dteHor);
Text dayTxt = FormatReal(dayNum, "%.0lf");
dayTxt+" de "+mthTxt+" de "+yeaTxt
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns a date as a spanish text.",
Dte2Spa);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// FILE : dte.tol
// AUTHOR : http://www.asolver.com
// PURPOSE : Date functions.
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set DteSpanishMonth =
[[ "enero", "febrero", "marzo", "abril", "mayo", "junio",
"julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre" ]];
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Set of spanish months names.",
DteSpanishMonth);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Text Dte2Spa(Date dteHor) // Spanish
//////////////////////////////////////////////////////////////////////////////
{
Real yeaNum = Year(dteHor);
Text yeaTxt = FormatReal(yeaNum, "%.0lf");
Real mthNum = Month(dteHor);
Text mthTxt = DteSpanishMonth[mthNum];
Real dayNum = Day(dteHor);
Text dayTxt = FormatReal(dayNum, "%.0lf");
dayTxt+" de "+mthTxt+" de "+yeaTxt
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns a date as a spanish text.",
Dte2Spa);
//////////////////////////////////////////////////////////////////////////////
iForense construye las paginas del sitio sobre informática forense Forense.Info
2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio