Titolo: Importare numeri negativi da Excel o FileMaker
Categoria: Codice |
|
Ultimo Aggiornamento: 10/10/05 |
Il comando
Num di 4D non riconosce come negativi i numeri passati racchiusi tra parentesi, mentre alcuni programmi come FileMaker o Excel possono utilizzare questo formato per l'esportazione di tali numeri, senza dunque la presenza del segno "-".
Ecco dunque un frammento di codice che consente di ottenere il numero corretto a partire da un testo passato come parametro:
C_TEXT($1;$tNumText_t)
C_REAL($0)
C_LONGINT($iLen:l)
$tNumText_t:=$1
$iLen_l:=Length($tNumText_t)
If ($tNumText_t[[1]]=Char(40)) & ($tNumText_t[[$iLen_l]]=Char(41))
` il numero è negativo
$tNumText_t:=Replace string($tNumText_t;"(";"-")
$tNumText_t:=Replace string($tNumText_t;")";"")
End if $0:=Num($tNumText_t)
Inviato da: PierPaolo Sichera |
|
Visite: 12201 |
Se accedi con utente e password, puoi aggiungere dei commenti.