TECHNOLOGIES
FORUMS
JOBS
BOOKS
EVENTS
INTERVIEWS
Live
MORE
LEARN
Training
CAREER
MEMBERS
VIDEOS
NEWS
BLOGS
Sign Up
Login
No unread comment.
View All Comments
No unread message.
View All Messages
No unread notification.
View All Notifications
Answers
Post
An Article
A Blog
A News
A Video
An EBook
An Interview Question
Ask Question
Forums
Monthly Leaders
Forum guidelines
Thach Le
NA
7
13.3k
How to convert this code from vb6 to c#
Aug 30 2011 10:37 PM
Dear All,
I'm new in C#, It's difiifcult for me to change this code in vb6 to c#
Could anybody help me to convert this code to c#
Private Static Sub ShowData(Data As String)
Dim stx, ret, ret1 As Integer
Dim valcom As Variant
Dim strg As String
strg = strg & Data
stx = InStr(strg, Chr$(2))
If stx Then
ret = InStr(stx + 1, strg, Chr$(13))
Else
ret = 0
End If
If ret Then
If ret - stx <> 16 Then
strg = vbNullString
Exit Sub
End If
If Len(strg) < 17 Then Exit Sub
valcom = Val(Mid(strg, stx + 4, 6))
If Not IsNumeric(valcom) Then
strg = vbNullString
Exit Sub
End If
ret = Asc(Mid(strg, stx + 2, 1)) And 2
ret1 = Asc(Mid(strg, stx + 1, 1)) And 7
strg = vbNullString
If ret1 = 2 Then
lbldaucan = Format(IIf(ret - 2, valcom, valcom * (-1)), "#,#")
ElseIf ret1 = 3 Then
lbldaucan = Format(IIf(ret - 2, valcom / 10, (valcom / 10) * (-1)), "0.0")
ElseIf ret1 = 4 Then
lbldaucan = Format(IIf(ret - 2, valcom / 100, (valcom / 100) * (-1)), "0.00")
ElseIf ret1 = 5 Then
lbldaucan = Format(IIf(ret - 2, valcom / 1000, (valcom / 1000) * (-1)), "0.000")
End If
'lblcom1.Caption = valcom
If lbldaucan = "" Then
lbldaucan = 0
End If
End If
End Sub
Reply
Answers (
7
)
C#.net two active directory comparisons
How to update sql database without using dataadapter?