Como crear funciones en Openoffice Calc
Publicado por JM Ansola (1 intervención) el 27/08/2008 17:00:37
Quiero crear una funcion para que me calcule el paso, teniendo como parametros el tiempo de carrera y los Kilometros.
En Excel lo siguiente me funciona:
Function paso_km(tiempo, ckm) As String
Rem tiempo = "00:40:07"
km = Val(ckm)
w1 = Val(Left(tiempo, 2)) * 3600
w2 = Val(Mid(tiempo, 4, 2)) * 60
w3 = Val(Mid(tiempo, 7, 2))
Rem MsgBox w1 & " " & w2 & " " & w3
wmedia = (w1 + w2 + w3) / km
wmedia = wmedia / 60
WMedia1 = Int(wmedia)
WMedia2 = (wmedia - WMedia1) * 60
paso_km = Format(WMedia1, "##") + "'" + Format(WMedia2, "##") + Chr(34)
Rem MsgBox wmedia
Rem ActiveCell.FormulaR1C1 = WXMedia
End Function
pero al abrilo el OO me da error.
No veo la opcion de crear una nueva funcion.
En Excel lo siguiente me funciona:
Function paso_km(tiempo, ckm) As String
Rem tiempo = "00:40:07"
km = Val(ckm)
w1 = Val(Left(tiempo, 2)) * 3600
w2 = Val(Mid(tiempo, 4, 2)) * 60
w3 = Val(Mid(tiempo, 7, 2))
Rem MsgBox w1 & " " & w2 & " " & w3
wmedia = (w1 + w2 + w3) / km
wmedia = wmedia / 60
WMedia1 = Int(wmedia)
WMedia2 = (wmedia - WMedia1) * 60
paso_km = Format(WMedia1, "##") + "'" + Format(WMedia2, "##") + Chr(34)
Rem MsgBox wmedia
Rem ActiveCell.FormulaR1C1 = WXMedia
End Function
pero al abrilo el OO me da error.
No veo la opcion de crear una nueva funcion.
Valora esta pregunta


0