COMO SALVAR UM VALOR EM PORCETAGEM VIA SQL?

GUSTAVOSEVERO 27/08/2009 19:21:41
#321161

Oi pessoal
Tenho esse código:

If RsSalvarMarkUpMensal_Jan.EOF Then
db.Execute [Ô]insert into MarkupMensal_FFS (DataMarkUpMensalFFS, ValorMarkUpMensalFFS) values (# [Ô] & DataFinal_Jan & [Ô]#[Ô] & [Ô],[Ô] & Quoted(Label1(651)) & [Ô])[Ô]
Else
Wnewval = flimpa(Label1(651))
db.Execute [Ô]update MarkupMensal_FFS set DataMarkUpMensalFFS=#[Ô] & DataFinal_Jan & [Ô]#, ValorMarkUpMensalFFS=[Ô] & Wnewval & [Ô] where DataMarkUpMensalFFS = #[Ô] & DataFinal_Jan & [Ô]#[Ô]
End If

Porém, o [Ô]Quoted[Ô] salvar valores em [Ô]reais[Ô]... Como eu poderia para salvar valores em 0,0%?

OBS: No [Ô]Modules[Ô] tenho um Genérico com o seguinte código:

Public Function Quoted(ByVal valor As String) As String

Quoted = [Ô][ô][Ô] & Replace(valor, [Ô][ô][Ô], [Ô][ô][ô][Ô]) & [Ô][ô][Ô]

End Function

Esse código salva valores em reais... Eu não teria que criar algo parecido para salvar valores com porcentagem? E como eu faria isso?

Muito obrigado pela atenção