VB expert, Pls Fall in Now [Urgent]

babymac13
29 Jan 06, 20:39

A very happy chinese new yr to you.

Can anyone pls show me how to calculate the total number days by using VB 6.0.
e.g. How do u formulate "Date Return - Return Loan" to calculate the difference in number of days?

Thanks.
ndmmxiaomayi
29 Jan 06, 23:00
Use Select ... Case lor. I think so.
code:
```
Dim date return as integer
Dim return as integer = 30
Dim return loan as integer

Select date return

Case 1
return loan = 30 - 1
```
So on and so forth

I forget to add that you need to do a drop down list or those lists that let you checked the box.

launtpc

1 Feb 06, 21:14

ndmmxiaomayi, your code wrong lah. It's VB6. Laughing

What do you mean by that? Do you mean subtracting the number of days? If ndmmxiaomayi's code is what you wanted, then the correct and more efficient version should be

code:


Dim date_return as integer

Dim return as integer

Dim return_loan as integer

Sub Main()

date_return = InputBox("What day of the month did XX return XX","Enter day" )    'Ignore this totally if you have your own data input algorithm
return = 30
return_loan = return - date_return
Msgbox "The number of days is " & return_loan,vbInformation,"Number of days"

End Sub

ndmmxiaomayi
1 Feb 06, 21:35
Originally posted by launtpc:
ndmmxiaomayi, your code wrong lah. It's VB6.

What do you mean by that? Do you mean subtracting the number of days? If ndmmxiaomayi's code is what you wanted, then the correct and more efficient version should be
code:

Dim date_return as integer

Dim return as integer

Dim return_loan as integer

Sub Main()

date_return = InputBox("What day of the month did XX return XX","Enter day" ) 'Ignore this totally if you have your own data input algorithm
return = 30
return_loan = return - date_return
Msgbox "The number of days is " & return_loan,vbInformation,"Number of days"

End Sub
Don't know leh. I always like that write. Can work can liao. Not quite sure with codes. Just as long as they work, I am fine with it.
babymac13
3 Feb 06, 17:54

Sorry, i wasn't following the forums lately as i'm very tied up with my project.
Well, it seem alittle more complicated than it is.

First of all, it involves different category of car e.g economy, standard, compact type etc, hence different rental rates on weekday, weekends and weekly basis.

The program will have to base on the category selected and provide with correct rental rates based with given schedule.

Mainly, i believe you need to use SQL to input this coding.
Feel free to input ur contribution and suggestion, keep them coming.

Thanks guys, for your contributions.
ndmmxiaomayi
3 Feb 06, 18:52

Originally posted by babymac13:
Sorry, i wasn't following the forums lately as i'm very tied up with my project.
Well, it seem alittle more complicated than it is.

First of all, it involves different category of car e.g economy, standard, compact type etc, hence different rental rates on weekday, weekends and weekly basis.

The program will have to base on the category selected and provide with correct rental rates based with given schedule.

Mainly, i believe you need to use SQL to input this coding.
Feel free to input ur contribution and suggestion, keep them coming.

Thanks guys, for your contributions.
Wah... very complicated.

Wait for launtpc to help you.

launtpc

3 Feb 06, 19:04

I try not to use SQL, as it is complicated.

How to set up
Make a form, put 3 option buttons on it (named Option1,2 and 3) and a button named Command1.
Recommended to edit the Option button captions to "Economy","Compact" and "Standard" respectively.

What this program do
Reads rental rates from a text file (rates.txt, in the same directory as the EXE file) in the order of Economy, Compact and Standard. Each category will have 1 value. Each value will be seperated with a new line.

What I assume
The rates are by daily basis, calculated by multiplying rate by day.

code:


Public Rates(2) as Integer
Public RentDays as Integer
Public CatType as Integer
Public ErrMet as Boolean
'Add more as required, counts from zero instead of one, so this can store 6 values.

Private Sub Form_Load()
'Executed when program starts up
ReadFile
If ErrMet = True then
End 'end program as not all values needed are there.
End If
End Sub

Private Sub Command1_Click()
On Error Goto ErrorH:   'in case of any error
'Asks user for number of days.
RentDays = Inputbox("Please enter the number of days","Number of days" )
'In case some dumb user enter 0
If RentDays < 0 Then
Msgbox "Please enter a valid number.",vbExclamation,"Invalid number!"
Exit Sub   'exits the current code
Else   'if everything in order, ask for category.
CatType = InputBox("Please enter categoy type." & vbCrLf & "1 = Economy" & vbCrLf & "2 = Compact" & vbCrLf & "3 = Standard","Enter category number")
If CatType < 0 Then
Msgbox "Please enter a valid number.",vbExclamation,"Invalid number!"
Else
Msgbox CatAnalyze
End If
End If
ErrorH:   'error handler
Msgbox "Input error " & Err.Number & " " & Err.Description,vbCritical,"Input Error!"
End Sub

Private Function ReadFile()
Dim tempString as String
Dim x as Integer
x = 0
If Dir$(App.Path & "\rates.txt" ) = "" Then    'if rates file do not exist
Msgbox "Unable to find Rates.txt in the directory of this EXE.",vbExclamation,"Rates file not found"
ErrMet = True
Exit Function
Open App.Path & "\rates.txt" For Input As 1
While Not EOF(1)
Line Input #1, tempString
Rates(x) = tempString
x = x + 1
Wend
Close 1
'Check incase file do not contain all values empty...
For x = 0 to Rates().UBound
If Rates(x) = "" Then
Msgbox "Please ensure Rates.txt contain all required values.",vbExclamation,"Not all values present"
ErrMet = True
Exit Function
End If
Next
End If
End Function

Private Function CatAnalyze()
CatAnalyze = Rates(CatType - 1) * RentDays
End Function