Type: Posts; User: isnoend07
Search took 0.11 seconds.
Found it was version number generated with vb6
I have a saved MsHflexgrid that looks like below
the 8 stands is for rows
the 12 is columns
what does the 5 stand for Y
"","Entry Date","Reminder Description","Date/Time","Reminder...
this works for adding a week to a date
Dim newdate 'add a wreek
mydate = gridMaster.textmatrix(mintgridMasterCurRow, 3)
newdate = DateAdd("ww", 1, mydate) add a week...
Found the problem The file was 0 length, don't know how did a copy and paste
thanks for your reply
The path/Filename you listed is the old path that works fine
i have moved the file here
I have double checked the...
I have manually moved the file
I am trying to move a text file( Customer.dat) to a new location and cannot get get the LOF(miFilenumber) to stop displaying 0
Public Sub LoadMyFile
this seems to work
If InStr(1, .TextMatrix(lngReminder, GRD_NEXT_REMINDER), "Hours") > 0 Then'it has hours
MyHours = Left(.TextMatrix(lngReminder, GRD_NEXT_REMINDER),...
Thanks I will use that if my parsing doesnt work
i am using the code the coder wrote to determine between dates and times
If InStr(1, .TextMatrix(lngReminder, GRD_TIME_DATE), "M") > 0 'its a time
Thanks the data is stored in a textfile no database
i am trying to parse the data in the Next Reminder column which seems to be accurate to get the info i need
Never realized dates-times were so sensitive-involved. good thing this is just for me and my kids. looks like i am stuck with strings as all the calculations are done on data in a mshflexgrid....
The programmer wrote it where if a alert is due it opens another flexgrid with no way to mark it as done, instead of message boxes
when i say it works i mean it properly displays times and dates in...
Thanks for your feedback. i plan on adding a sound with the messagebox the code works fine and is hooked to a timer.and is updated every ten seconds.
the coder wrote this using strings and it works....
The grid looks like this:
Actually I am trying to modify code written by a coder that is more advanced that my capabilities.
this is a reminder program that uses a mshflegrid to hold values. the coder scans the date/time...
Dim Time As String
Time = "09:58 AM"
Minutes = DateDiff("n", Time, Format(Now, "short time"))
when ran at 8:57PM
the minutes say 661, but should be 780
what is wrong ?
All you people have helped me. thank you
each got a message "to spread reputation"
good eye, finally got it to work
Had already checked that
Debug.Print .TextMatrix(i, GRD_TIME_DATE) produces 07-04-216
next line the error
also tried this
MyDate = CDate(.TextMatrix(i, GRD_TIME_DATE))<-Type Mismatch error
tried that and still get the overflow problem
You are right about the overflow
changed Days from integer to long and now Days = 657290
I am using datepicker to enter values
the grid only has 1 row for now
maybe i should change the format to 07/26/2016
this gives an overflow error
dates are in this format: 07-26-2016
Dim i As Integer
GRD_TIME_DATE = 3 'hard coded
Dim Days As Integer
For i = 1 To .Rows - 1
If DateDiff("n", Time, TimeValue(DTPicker1.Value)) < 5 Then
MsgBox "You must increase the time by at least 5 minutes."
Thanks , but need to check total time, if hours are increased then it wold be more than 5 minutes
I have a time picker that sets reminders it opens to the current time. I want to make sure the time is increased by 5 minutes when the OK button is clicked
if DTPicker1.value < 5 minutes from now
got it handled
thanks did not realize i could do this to overcome the error in trying to show vbmodal
the grid also has a hidden column where the date determines the filename eg:
C:\Program Files (x86)\Microsoft Visual Studio\VB10\Tasks\Personal\Tasks\10-25-2016.rtf
if a date is changed then the...
thanks i tried showing frmCalendar vbmodal, but got an error saying
"Form alrady displayed cannot show modally" don't know why it has not been accessed previously
I have mshlexgrid that has a column of dates if the date is clicked it opens another form with a calendar
if a new date is selected it replaces the selected date
how can i wait to see if a new date...
Date picker displays 7:30 Pm
How can i get the time to a 24 hour variable ? using vb6
Dim mytime as date
mytime = 1730
I tested the code and it produces 30
what does 30 mean ?
Thanks for your help
just trying to make a little app to remind my sister when to take her medicine with a messagebox
my problem is i do have a date the 1700 is part of a file name
Dy1700.rtf with the Dy and .rtf removed i am trying compare the current time to the 1700
this outputs 2490120
I have some 24 hour times that i am trying to compare to the users pc time
task time = 0500 thats 5:AM
say the users pc time is 3:AM
The Difference is 2 hours
task time = 1700 thats 5:PM
I have a vb6 program that checks for reminders. the files are saved with the due date as the file name
i am trying to modify it to create a file 1 year later when the file is deleted
Thanks Bonnie West Idid this:
Private Sub cmdFind_Click()
Dim NewStart As Integer
Dim str As String
Static Start As Integer
Dim Length As Integer
str = Me.txtFind...
Click Here to Expand Forum to Full Width
Survey posted by VBForums.