oWord = createobject("word.application")

IF VARTYPE(oWord) # "O"

     =Messagebox("Word no se encuentra instalado
en este equipo")

    
return

endif

cFecha = "05/05/2000"

RUN DATE &cFecha

Puedes utilizar un TextBox y luego
conviertes el valor de este a tipo fecha con la función DTOC()
y corres la aplicación; así el valor del texto será la nueva
fecha.

El único inconveniente es que te
aparece una ventana DOS pero utilizando la función SHOWWindows
del API es fácil corregir.

En  verdad  algunos  efectos  
especiales   como  el  que mostrare cambian  la  dinámica   de  los  
objetos  y  contribuyen a darle más
vistosidad.

En  este  ejemplo haré  que 
un Combo Box 
muestre sus valores en distintos colores de letra. Así como lo muestra la
siguiente figura:

Para esto en el evento Init del
Combo Box colocamos el siguiente código:

#DEFINE BarraRoja ,RGB(150,0,0)

#DEFINE BarraVerde ,RGB(0,150,0)

#DEFINE BarraAzul ,RGB(0,0,255)

#DEFINE BarraAmarillo ,RGB(255,255,0)



DEFINE POPUP Colores



DEFINE BAR 1 of Colores ;

Prompt "Rojo" COLOR BarraRoja



DEFINE BAR 2 of Colores ;

Prompt "Verde" COLOR BarraVerde



DEFINE BAR 3 of Colores ;

Prompt "Azul" COLOR BarraAzul



DEFINE BAR 4 of Colores ;

Prompt "Amarillo" COLOR BarraAmarillo

Cambie las siguientes propiedades de
Combo Box

RowSourceType = 9 - Emergente

RowSource = Colores

Y en el evento InteractiveChange del
Combo agregué el siguiente código:

   DO CASE

      	   CASE This.Value = "Red"

	            This.Forecolor = RGB(150,0,0)

	   CASE This.Value = "Green"

	            This.Forecolor = RGB(0,150,0)

	   CASE This.Value = "Blue"

	            This.Forecolor = RGB(0,0,255)

	  CASE This.Value = "Yellow"

	            This.Forecolor = RGB(255,255,0)

      ENDCASE

Espero las allá gustado este ejemplo
		

cCadena = "78x5p88yt"

nAnchoCadena = len(cTest)



FOR nCnt = 1 TO nAnchoCadena



      ? ISDIGIT(SUBSTR(cCadena, nCnt, 1))



ENDFOR

El resultado debe ser
el siguiente:

.T.

.T.

.F.

.T.

.F.

.T.

.T.

.F.

.F.

KEYBOARD _{F4}_ 

En este caso agregamos este código
al evento GOTFOCUS( ) y cuando el Combo reciba el enfoque entonces este se
desplegara mostrando la información contenidas en él.

For  each Form 
in  Application.Forms

     Form.Width  =  Form.Width 
+  200

EndFor

&&thisform.olecontrol1.SETTINGS="9800,N,8,1"

&&
(Supongo el modem conectado al
com4)

thisform.olecontrol1.COMMPORT = 4 

thisform.olecontrol1.PORTOPEN = .T.

thisform.olecontrol1.OUTPUT  =  "ATDT6608196" +chr(13)

La secuencia de números después de ATDT es
el numero telefónico al que queremos marcar

With thisform

   If thisform.MDown Then 

      ThisForm .Left = ThisForm .Left + nXCoord - .ejex 

      ThisForm .Top = ThisForm .Top + nYCoord - .ejey

   EndIf 

EndWith

En el evento MouseDown
del form agregamos lo siguiente

ThisForm.MDown = .F. 

 

En el evento MouseDown
del form agregamos lo siguiente

Thisform.MDown = .T. 

Thisform.ejex = nXCoord 

Thisform.ejey = nYCoord

cCadena = "512 96 m sd 7ecbx */ t553rdv"  



cAnchoCadena = len(cCadena)  



cNumeros = ""        



FOR nCnt = 1 TO cAnchoCadena  

    cCharacter = SUBSTR(cCadena, nCnt, 1) 

        IF ISDIGIT(cCharacter)   

                 
cNumeros = cNumeros + cCharacter   

                 
? cNumeros

       ENDIF

ENDFOR

El primer paso es tener la cadena de caracteres a
evaluar. Luego determinamos el ancho de la cadena a través de la función
LEN; Utilizamos una variable donde almacenaremos los caracteres que sean dígitos
(de 0 - 9). Hacemos un ciclo hasta el numero de caracteres de la cadena y vamos
evaluando numero por numero; si el carácter es digito entonces será agregado a la
variable cNumeros.

LOCAL nIndex

FOR nIndex  = 1 TO Thisform.List1.ListCount 



       IF UPPER( Thisform.List1.ListItem(nIndex)
) = UPPER( ALLTRIM( this.Value ) )

           
Thisform.List1.ListIndex  =  nIndex 

           
EXIT 

     
ENDIF



ENDFOR



Thisform.List1.Refresh 

Este código aun esta
en prueba pero realmente funciona, lo programe porque necesitaba
que el ancho del botón se ajustara a medida que yo escribiera
en un TextBox. Si alguien desea aportar y modificar el código
le ruego me envíe una demostración para luego publicarla a su
nombre.

En el Evento InteractiveChange
del TextBox programe lo siguiente:

cNoCaracteres =
len(alltrim(thisform.text1.value)) * 5



Thisform.Command1.Width = cNoCaracteres + 70

Thisform.Command1.Width = cNoCaracteres + 60

Thisform.Command1.Caption = Alltrim(Thisform.Text1.Value)

Local F, X, Y, U, K

F = Sys(2023)
+ ""
+
SubStr(Sys(2015),1,8)
+ ".txt"


X = SubStr(sys(0),1,
At("
",
Sys(0))-1)



Run PING &X > &F

Y = FileToStr(F)


Delete File &F

U = At("[",
Y) + 1

K = At("]",
Y)

? SubStr(Y,U,K-U)