FiveTech Support Forums

FUNCTION main()
   ? dia(Date())
   RETURN (NIL)

//------------------------------------------------------------------------------

FUNCTION dia(dDate)

   LOCAL anio:= Year(dDate)

   LOCAL aDias := {6, 2, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4}
   LOCAL cDias := {"Lunes", "Martes", "Miercoles", "jueves", "viernes", "sabado", "domingo"}
   LOCAL anio2 := Val(SubStr(Str(Year(dDate)), 4, 2))
   LOCAL b     := int(anio2 + (anio2/4))
   LOCAL c     := IF ( int(Year(dDate) / 4 ) * 4 == Year(dDate), IF (Month(dDate) IN {1,2}, -1, 0),0)
   LOCAL d     := aDias[Month(ddate)]
   LOCAL e     := Day(dDate)
   LOCAL a     := 0
   LOCAL f     := 0

   IF (anio >=1700 .and. anio <=1799)
      a:= 5
   ELSEIF (anio >= 1800 .and. anio <=1899)
      a:= 3
   ELSEIF (anio >=1900 .and. anio <=1999)
      a:= 1
   ELSEIF (anio >=2000 .and. anio <= 2099)
      a:= 0
   ELSEIF (anio >=2100 .and. anio <=2199)
      a:= -2
   ELSEIF (anio >= 2200 .and. anio <=2299)
      a:= -4
   ENDIF

   f:=  (a + b + c + d + e) % 7

   RETURN (cDias[f])

    aDias := {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado" }
   SET DATE FORMAT TO "dd-mm-yyyy"
   ? dow(Date())
   ? aDias[dow(Date())]               // Jueves
   ? aDias[dow(CTOD("24-12-2012"))]   // Lunes

#include "FiveWin.ch"REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESMWIN  
Function Main()
     HB_LANGSELECT( 'ESWIN' )
    HB_SetCodePage("ESMWIN") //ó  "ES850"
   ?cDow(Date())   //Jueves
   ?cMonth(Date())  //Abril

Return

REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESMWIN