You are not logged in.

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

A1880

Intermediate

  • "A1880" is male
  • "A1880" started this thread

Posts: 500

Date of registration: Jan 1st 2009

Location: Hanover, Germany

Occupation: Software Engineer

Hobbies: Hilbert Curves

  • Send private message

1

Sunday, July 26th 2009, 2:10pm

Format and Timer

Hi,
in VB6 "Format" is a handy function to format date/time strings and numeric strings.
The current implementation in Jabaco is limited to dates and does not really work.
"Timer" is a useful function returning the time since mindnight in seconds.

My current experimental version:

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Public Function Format(x As Double, fmt As String) As String
   Dim df As New java#text#DecimalFormat(fmt)
   
   Format = df.format(x)
End Function

Public Function Format(d As Date, fmt As String) As String
   Dim df As New java#text#SimpleDateFormat(fmt)
   
   Format = df.format(d)
End Function

Public Function Timer() As Single 
   Dim cal As Calendar = java#util#Calendar.getInstance()
   Dim hh As Integer = cal.get(java#util#Calendar.HOUR)
   Dim mm As Integer = cal.get(java#util#Calendar.MINUTE)
   Dim ss As Integer = cal.get(java#util#Calendar.SECOND)
   Dim ms As Integer = cal.get(java#util#Calendar.MILLISECOND)
   
   Timer = 0.001 * ms + ss + 60.0 * (mm + 60.0 * hh)
End Function


It would be nice, to have a VB6 compliant "Format".

Cheers!

A1880

This post has been edited 1 times, last edit by "A1880" (Jul 26th 2009, 7:39pm)

Similar threads

Rate this thread
WoltLab Burning Board