Array
(
)

converter essa funçao para vb.net

Oliverjer10
   - 03 mai 2009

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
   - 04 mai 2009

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