Can't tell you how nice this is to read.
on ConvertDateTimeToAgeInDHMAgo:
Code: Select all
on mouseUp
-- ConvertDateTimeToAgeInDHMAgo "2012-03-26 08:50 am"
put ConvertDateTimeToAgeInDHMAgo ("03/23/2012 11:50 am") into x
Answer x
end mouseUp
function ConvertDateTimeToAgeInDHMAgo DateTimeStamp
-- NOTE: DateTimeStamp must me in MM/dd/yyyy hh:mm am/pm format
-- Look up convert in the LC Dictionary
-- http://lessons.runrev.com/s/lessons/m/4071/l/12354-how-to-use-date-and-time-in-rev
-- am/pm - if not am/pm then set the twelveHourTime to false -- then convert
Put DateTimeStamp into tStartDate
convert tStartDate to internet date
convert tStartDate to seconds
put the seconds into tEndDate
put tEndDate - tStartDate into tAgeInSeconds
put 60*60*24 into tADayInSeconds
put 60*60 into tAnHourInSeconds
put 60 into tAMinuteInSeconds
put tAgeInSeconds div tADayInSeconds into tTheDays
put tAgeInSeconds mod tADayInSeconds into tHoursLeft
put tHoursLeft div tAnHourInSeconds into tTheHours
put tHoursLeft mod tAnHourInSeconds into tMinutesLeft
put tMinutesLeft div tAMinuteInSeconds into tTheMinutes
If tTheDays > 0 then
if tTheDays > 1 then
put "Days" into DaysWord
else
put "Day" into DaysWord
end if
Put tTheDays && DaysWord into DaysPhrase
else
put empty into DaysPhrase
end if
if tTheHours > 0 then
if tTheHours > 1 then
put "Hours" into HoursWord
else
put "Hour" into HoursWord
end if
Put tTheHours && HoursWord into HoursPhrase
else
put empty into HoursPhrase
end if
if tTheMinutes > 0 then
if tTheMinutes > 1 then
put "Mins" into MinsWord
else
put "Min" into MinsWord
end if
Put tTheMinutes && MinsWord into MinsPhrase
else
if HoursPhrase is empty and MinsPhrase is empty then
put "Less than a Minute" into MinsPhrase
end if
end if
Return DaysPhrase && HoursPhrase && MinsPhrase && "Ago"
--Return tTheDays && DaysWord && tTheHours && HoursWord && tTheMinutes && MinsWord && "Ago"
end ConvertDateTimeToAgeInDHMAgo
========
my notes:
Now that this nice n readable display is done,
I'm working backwards towards storing DateTimeStamp in Valentina.
The DataTimeStamp needs to be readable in vStudio as YYYY-MM-DD hh:mm:ss
Then retrieved from vDB and converted to mm/dd/yyyy hh:mm:ss for this routine. ????
The following routine is smart.
1) first, actually set the Date format for the DB to yyyymmdd
to tell the database ' this is how i will be submitting dates
2) retrieve the date-separator and the Time-seperator
( previously set - maybe should set both FIRST for current system??? how if on mobile)
3) uses retrieved date separator to format date field value
4) uses retrieved time separator to format time field value
5) then adds record
so in the future when retrieving data for LC Age routine,
first, actually set the Date format to Kmdy ??? i.e. make the db do all the work - nice
then retrieve records
so instead of me being nervous or timmid or afraid of the DB.
Probably coming from not know the db or not using the db.
"Oh please DB tell me what format you are in and i'll write code around your settings"
instead I take ownership and have the DB perform cartwheels for me
"Your my DB. (u b mi DByotch!) I'll tell you how I want you to work. The dates will be in this format. Now save my date like I told you to."
Make me feel more in control.
Must remember not to have double shots of coffee in the mornings.
NO NO NO - to add dates with valentina they have to be in mm/dd/yy format
-------------- even if I set the date format to YMD the add must stil be in mm/dd/yyyy
-------------- It may be that the setting the date format in valentina is for retreival only
Code: Select all
function AddRecords
get VDatabase_DateFormat( mDBRef, "kYMD" )
put field DateSepEdit into date_separator
put field TimeSepEdit into time_separator
repeat with i = 1 to 10
get VTable_SetBlank( mTbl )
get VField_Value( mFld1, "2005" & date_separator & "01" & date_separator & i )
put Valentina_ErrString() into msg1
put Valentina_ErrNumber() into num
if num <> 0 then
msgbox msg1
end if
get VField_Value( mFld2, "13" & time_separator & "50" & time_separator & i )
get VTable_AddRecord( mTbl )
end repeat
end AddRecords