converting from VB

[steffen]

I need to convert the following code from VB to Cbasic.  The Function, FTgetJulian() retrieves a date and a corresponding price from a stock price database.  I don't expect someone to complete this for me I just need some direction.  Thanks.

Code Select Expand

For i = start To maxnumdays
        If (i - 1) Mod 25 = 0 Then
            DoEvents
            Demo.Cls
            Demo.Print "Index  Date                        Price"
            Demo.Print "========================================"
            End If
        julian = FTgetJulian(i)
        Demo.Print Format$(i, "@@@@@  ") & _
            Format$(julian, "mmm dd, yyyy  (") & _
            Format$(julian) & _
            Format$(Format$(prices(i), "0.00"), ")  @@@@@@@@@@")
        Next

[Egil]

A quick search on the forum give this URL: http://www.ionicwind.com/forums/index.php/topic,2529.0.html
The ruoutines discussed there are for EmergenceBasic, but I don't think you should have any difficulties converting the Julian Date subroutines into Creative Basic code.

Good luck!