Mudar data

[crisvam]

Senhores, bom dia

 

Uma pergunta idiota, mas que não sei como faz.

 

Como mudo a data da máquina de dentro de meu programa

[kapiaba]

Chame o TIMEDATE.CPL:

 

// relogio e data do windows
FUNCTION ATRASA_RELOGIO_10MINUTOS()
	   LOCAL Nome_Arq, nRegistro, cHoraIni, cHoraFin
	   AEVAL(DIRECTORY( "RELOG.BAT"     ),{ |aFILE| FERASE(aFILE[F_NAME]) } )
	   IF .NOT. FILE( "RELOG.BAT" )
	      NOME_ARQ := FCREATE("RELOG.BAT")
	      NREGISTRO := "@ECHO OFF"                                             ;
                   + CRLF        +                                         ;
                   "CLS"         +                                         ;
                   + CRLF + CRLF +                                         ;
                   "TIMEDATE.CPL"  +                                       ;
                   + CRLF + CRLF +                                         ;
                   "CLS"         +                                         ;
                   + CRLF        +                                         ;
                   "EXIT"
	      FWRITE( NOME_ARQ, NREGISTRO )
      FCLOSE( NOME_ARQ )
	   ENDIF
	   WinExec( "RELOG.BAT", 0 )
	   SYSWAIT(1)
	RETURN NIL

Regards, saludos.

[Theotokos]

        SetDate( nDay, nMonth, nYear )
        SetTime( nHoras, nMinutos, nSegundos )
 

[kapiaba]

26 minutos atrás, Theotokos disse:

        SetDate( nDay, nMonth, nYear )
        SetTime( nHoras, nMinutos, nSegundos )
 

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37193&p=222025&hilit=SetDate&sid=f8d67a127fc459e949b3caebf894b513#p222025

Interessante. Regards, saludos.