Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Need help converting a VBA macro from excel to outlook.

Posted on 2004-03-23
3
Medium Priority
?
334 Views
Last Modified: 2008-02-01
I have an excel vba/macro that works out how long a particular job takes based on on different working hours and what not. It works great in excel, and being a lazy person I pretty much copied it as is to an outlook macro that has to work out the same information.

However the excel macro refers to 'application.min' which outlook doesn't recognise, additionally I can't actually work out exactly what function 'application.min' has so I could try to make a work around. I would appreciate any suggestions on how to get the current script to work to save me the effort of rebuilding it from scratch.

Here is the part outlook has a problem with.
If i > 0 And i < Int(EndTime) - Int(StartTime) Then
     totnew = WeekDay_End - WeekDay_Start
ElseIf i = 0 And WeekDay_End - TimeValue(Hour(StartTime) & ":" & Minute(StartTime)) > 0 And i = (Int(EndTime) - Int(StartTime)) Then
     totnew = Application.Min(WeekDay_End, TimeValue(Hour(EndTime) & ":" & Minute(EndTime))) - TimeValue(Hour(StartTime) & ":" & Minute(StartTime))
ElseIf i = 0 And WeekDay_End - TimeValue(Hour(StartTime) & ":" & Minute(StartTime)) > 0 Then
     totnew = WeekDay_End - TimeValue(Hour(StartTime) & ":" & Minute(StartTime))
ElseIf i = (Int(EndTime) - Int(StartTime)) And TimeValue(Hour(EndTime) & ":" & Minute(EndTime)) - WeekDay_Start > 0 Then
     totnew = Application.Min(WeekDay_End, TimeValue(Hour(EndTime) & ":" & Minute(EndTime))) - TimeValue(Hour(WeekDay_Start) & ":" & Minute(SunDay_Start))
End If
....
    tot = tot + totnew * 24
0
Comment
Question by:Gryff
  • 2
3 Comments
 
LVL 44

Expert Comment

by:Arthur_Wood
ID: 10659671
It appears the Application.Min is the Min function (Min as in MINimum), which returns the smaller of the two values that are the two arguments.

What version of Outlook are you using?

0
 
LVL 44

Accepted Solution

by:
Arthur_Wood earned 750 total points
ID: 10659703
you may need to write your own Min function:

Public Function Min(byVal Val1 as Date, ByVal Val2 as Date) as Date
   if Val1 < Val2 then
       Min = Val1
   Else
       Min = Val2
End Function

This is assuming that the WeekDay_Start or WeekDay_End variables are Date type values.

can you show the part of your code where the variables WeekDay_Start, WeekDay_End and totnew are DECLARED (Dim totnew as ????)

AW
0
 

Author Comment

by:Gryff
ID: 10667021
I am using outlook 2000.

Weekday_start and weekday_end are declared as Date Totnew was originially undeclared which should mean that are variants if I am correct. As such I have activated OPTION EXPLICIT and declared them as VARIANT.

I started making some changes based on your comments but found some other areas of the code that are not wroking as expected in outlook 2000 so have decided to write it from scratch myself. This also has the advantage that at least I will understand all of it.

As it turns out my codes is alot shorter as well :)

Thank you for your help and as your answer did tell me what was wrong with the original code snippet I am accepting it as THE answer :)
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

824 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question