Write float number with a format - vba

[wwj]

Use the "Round" function.

Code: Select all

Write #1, wlNm, wlX, wlY, wlLyr, numFieldData
            
            For j = 2 To lastRow
                Sheets(dataSht).Cells(j, obsCol + 1).NumberFormat = "mm/dd/yyyy"
                obsDate = Sheets(dataSht).Cells(j, obsCol + 1)
                Tm = DateValue(obsDate) - DateValue("10/1/1996") + 1              ' Elapsed time from 10/1/1996.
                Hw = Sheets(dataSht).Cells(j, obsCol + 2)
                
                If Hw <> "" Then
                    Hw = Round(Hw, 2)
                    ' Write data.
                    Write #1, Tm, Hw, 1
                    
                    ctr = ctr + 1
                End If
            Next j

[wwj]

2 decimal digits.