converter essa funçao para vb.net

03/05/2009

0

Function Datatosqlreli
parameters wdata, whora
private sqldata_,wdata,whora

if PCOUNT() = 1
WHORA = ´00:00:00´
ENDIF

IF EMPTY(WDATA)
SQL_DATA=´NULL´
ELSE
SQL_DATA = STR(YEAR(WDATA), 4)+´-´+ PADL(ALLTRIM(STR(MONTH(WDATA),2)),2´0´)+PADL(ALLTRIM(STR(DAY(WDATA),2)),2 ´0´)+´ ´ +WHORA
ENDIF
RETURN SQL_DATA

Minha dúvida esta no PCOUNT não sei que comando utilizar no vb.net para substituí-lo, a função é do fox pro.

Os outros comando td bem é tranquilo para substituir, só o PCOUNT que eu não sei o que ele faz.

Se alguém puder me dar uma orientação, agradeço !!


Oliverjer10

Oliverjer10

Responder

Posts

04/05/2009

Oliverjer10

Fiz assim, acho que não vai precisar do pcount.

Function Datatosqlreli(ByVal wdata As String)
Dim sql_data As String
Dim whora As String = ´00:00:00´
If wdata = ´´ Then
sql_data = ´DBNull.Value´
Else
sql_data = Trim(Str(Year(wdata))) + ´-´ + Trim(Str(Month(wdata))) + ´-´ + Trim(Str(Day(wdata))) + ´ ´ + whora
End If
Return sql_data
End Function


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar