Something like this ?
...
StartDate = DateSerial(Year(Now()),Month(Now())-1,2)
EndDate = DateSerial(Year(Now()),Month(Now()),2)
...
If StartDate <= objFile.DateLastModified and EndDate > objFile.DateLastModified Then
...
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
Something like this ?
UPDATE tblTEST A
SET Val2=-(SELECT B.Val1 FROM tblTEST B WHERE B.Row=A.Row AND B.Val1=A.Val2)
WHERE Val2=0
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
Why using arrays ?
#!/bin/ksh
IFS=",$IFS"
checkshells() {
for a in $S1; do
if [[ ",$S2," != *",$a,"* ]]; then
printf "$a(-),"
fi
done
for a in $S2; do
if [[ ",$S1," != *",$a,"* ]]; then
printf "$a(+),"
fi
done
}
checkshells | awk '{sub(/,$/,"");print}'
Hope This Helps, PH...
Sorry fot the typo:
Set F = Selection.Fields.Add[!]([/!]Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"DATE ", PreserveFormatting:=True[!])[/!]
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
What about this ?
Dim F As Field
Set F = Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"DATE ", PreserveFormatting:=True
F.Locked = True
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
What about this ?
qryinssub = "INSERT INTO section_load(sec_id,subj_id) SELECT 'sec01',subj_id FROM subjects WHERE level_id='lvl01'"
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
Provided that A1 and B1 are strings, you may create this 2 functions:
Public Function MY2Y(MY As String) As Long
Dim a
a = Split(MY, ".")
MY2Y = 1760 * a(0) + a(1)
End Function
Public Function Y2MY(Y As Long) As String
Y2MY = Y \ 1760 & "." & Format(Y Mod 1760, "0000")
End Function
and then in...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.