Cómo modificar el calendario usando código en VFp
oForm = createobject("SetDate ")
oForm.show(1)
Leitu
Establezca la fecha para el categoría Definida de la siguiente forma
Arriba = 0
Izquierda = 0
Alto = 140
Ancho = 339
HacerCrear = .T.
Caption = "Establecer fecha del sistema"
WindowType = 1
Nombre = "Form1 "
Agregar etiqueta de objeto 1 como etiqueta ;
AutoSize = .F.,;
Caption = " Año
Altura = 16,;
Izquierda = 34,;
Superior = 24,;
Ancho = 14,;
TabIndex = 7,;
Nombre = "Etiqueta1" p>
p>
Agregar etiqueta de objeto 2 como etiqueta;
AutoSize = .F.,;
Caption = "mes
Altura = 16,
Izquierda = 34,
Arriba = 61,
Ancho = 14,
TabIndex = 8,
p>
p>
Nombre = "Label2 "
Agregar etiqueta de objeto 3 como etiqueta;
AutoSize = .F.,;
Caption = " Día
Alto = 16,
Izquierda = 34,
Arriba = 97,
Ancho = 14,
p>
TabIndex = 9,;
Nombre = "Etiqueta3 "
Agregar objeto comando1 como botón de comando CON
Arriba = 19,;
p>Izquierda = 223,
Alto = 25,
Ancho = 84,
Título = "Configuración " ,
p>
TabIndex = 4,;
Nombre = "Comando1 "
Agregar objeto comando2 como botón de comando CON
Arriba = 54,;
p>Izquierda = 223,
Alto = 25,
Ancho = 84,
Título = " Ver fecha del sistema";
TabIndex = 5,;
Nombre = "Comando2 "
Agregar objeto comando3 como botón de comando CON
Arriba = 91,;
Izquierda = 223,
Alto = 25,
Ancho = 84,
Título = " Cerrar p>
TabIndex = 6,;
Nombre = "Command3 "
Agregar objeto spinner1 como spinner CON
Altura = 20,;
Izquierda = 59,
SpinnerHighValue = 2100,00,
SpinnerLowValue = 1980,00,
TabIndex = 1,
Arriba = 18,;
Ancho = 120,;
Nombre = "Spinner1"
Agregar objeto spinner 2 como un spinner;
Alto = 20,
Izquierda = 59,
SpinnerHighValue = 12,00,
SpinnerLowValue = 1,00,
TabIndex = 2, p>
Superior = 57,;
Ancho = 120,;
N
ame = "Spinner2 "
Agregar objeto spinner 3 como spinner;
Altura = 20,;
Izquierda = 59,;
SpinnerHighValue = 31,00,;
SpinnerLowValue = 1,00,;
TabIndex = 3,;
Superior = 92,;
Ancho = 120,;
Nombre = "Spinner3 "
Programa decimal2hex
l parámetro tnvalue,;
Ubicación TN
posición local;
lchex,;
lcout,;
índice logarítmico de reacción de neutralización
lnplaces = IIF (pcount() = 1, 4, tnplaces)
LC hex = esta forma decimal inverso 2 hex(valor TN, lnplaces)
lcout = ' '
Para lni = 1 a lnplaces
lcout = lcout + SUBSTR(lchex, lnplaces - lni + 1, 1)
Siguiente lni
Devolver lcout
Finalizar proceso
Programa decimal inverso 2 hexadecimal
l parámetro tnvalue,;
Ubicación TN
Productos locales;
lchex,;
ldecimales incurr,;
En local,;
lni,;
lnexponent,;
Interm
lndecimal = tnvalue
lchex = ' '
lncurrdecimals = SET('DECIMALS ')
lnplaces = IIF(pcount() = 1, 4, tnplaces)
Establezca el decimal en 17
Para lni =, vaya al paso 1 -1
lnexponent = 256 ^ (lni - 1)
ln temp = INT(ln decimal/ln exponente)
lchex = lchex + CHR(lntemp )
ln decimal = ln decimal-in temp * ln exponent
Siguiente lni
Establecer el decimal al decimal actual
Devolver lchex
Finalizar proceso p>
Proceso de inversión hexadecimal 6 decimal
Lparámetros tcword
Producto nativo local;
Índice logarítmico medio y de reacción
lndecimal = 0
Para lni = LEN(tcword) a 1 tamaño de paso -1
lndecimal = lndecimal+ASC(substr( TC word, lni, 1)) * 256^(LEN (tcword) - lni)
Siguiente lni
Volver al directorio
Finalizar proceso
Programa hex2decimal
l parámetro tcvalue,;
Firmado
Producto nativo local;
lnlen,;
lni,;
lnmsb,;
lnmax
lndecimal = 0
lnlen = LEN(
tcvalue)
Para lni = 1 a lnlen
lndecimal = lndecimal+ASC(substr(valor TC,lni,1)) * 256 ^ (lni - 1)
Siguiente lni
Si está firmado
lnmsb = (lnlen * 8) - 1
Si prueba de bits (lndecimal, lnmsb)
lnmax = 2 ^ (lnmsb + 1)
lndecimal = lnresultado - lnmax
Endif
Endif
Volver al directorio
Finalizar proceso
Inicialización de proceso
Declarar GetLocalTime en Win32API STRING @lpSystemTime
Declarar SetLocalTime en Win32API string lpSystemTime
lpsystemtime = ESPACIO(16)
Si! getlocaltime(@lpsystemtime)
Esperar a que aparezca la ventana "No se puede leer la fecha del sistema"
Regresar.
Otros
este formulario. valor del spinner 1 = este formulario hexadecimal 2 (SUBSTR(lpsystem time, 1, 2))
este formulario. valor del girador 2 = este formulario. hexadecimal 2 decimal(SUBSTR(lpsystem time, 3, 2))
este formulario ,2))
Endif
Finalizar proceso
Comando de proceso 1. Haga clic
lpsystemtime = SPACE(16)
¡Si! getlocaltime(@lpsystemtime)
Ventana de espera "No se puede leer la fecha del sistema"
Endif
lpsystemtime =;
este formato decimal. 2 hexadecimal (esta forma. hilandero 1. valor, 2)+;
esta forma. decimal 2 hexadecimal (esta forma. hilandero 2. valor, 2)+;
SUBSTR( lpsystemtime, 5, 2)+;
esta forma . decimal 2 hexadecimal (esta forma . spinner 3 . valor, 2)+
right (lpsystemtime, 8)
¡Si! Establecer hora local (lpsystemtime)
Ventana de espera "No se puede establecer la fecha del sistema"
Otros
Ventana de espera "Establecer la fecha del sistema correctamente"
Endif
Finalizar proceso
Comando del programa 2. Haga clic en
Ejecutar/n para controlar la hora y la fecha cpl
Finalizar proceso
Comando del programa 3. Haga clic en
Este formulario
Finalizar proceso
Finalizar definición
.